[Koha-cvs] CVS: koha logout.pl,1.2.2.2,1.2.2.3

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv18237

Modified Files:
      Tag: rel-1-2
	logout.pl 
Log Message:
Cleaned up some unused parts of the logout.pl script


Index: logout.pl
===================================================================
RCS file: /cvsroot/koha/koha/logout.pl,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -C2 -r1.2.2.2 -r1.2.2.3
*** logout.pl	5 Sep 2002 19:44:00 -0000	1.2.2.2
--- logout.pl	9 Dec 2002 20:39:38 -0000	1.2.2.3
***************
*** 26,45 ****
  }
  
- my $sessions;
- open (S, "/tmp/sessions");
- while (my ($sid, $u, $lasttime) = split(/:/, <S>)) {
-     chomp $lasttime;
-     (next) unless ($sid);
-     (next) if ($sid eq $sessionID);
-     $sessions->{$sid}->{'userid'}=$u;
-     $sessions->{$sid}->{'lasttime'}=$lasttime;
- }
- open (S, ">/tmp/sessions");
- foreach (keys %$sessions) {
-     my $userid=$sessions->{$_}->{'userid'};
-     my $lasttime=$sessions->{$_}->{'lasttime'};
-     print S "$_:$userid:$lasttime\n";
- }
- 
  my $dbh=C4Connect;
  
--- 26,29 ----
***************
*** 71,84 ****
  
  print $query->redirect("mainpage.pl");
- 
- exit;
- if ($sessionID) {
-     print "Logged out of $sessionID<br>\n";
-     print "<a href=shelves.pl>Login</a>";
- } else {
-     print "Not logged in.<br>\n";
-     print "<a href=shelves.pl>Login</a>";
- }
- 
- 
  
--- 55,57 ----