[Koha-cvs] CVS: koha/opac opac-logout.pl,1.2,1.3

[Andrew Arensburger]

Update of /cvsroot/koha/koha/opac
In directory usw-pr-cvs1:/tmp/cvs-serv5782

Modified Files:
        opac-logout.pl 
Log Message:
Replaced &requireDBI with C4::Context->dbh, thus making the "use
Database" statement unnecessary.
Replaced a prepare()/execute() with a do().


Index: opac-logout.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-logout.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** opac-logout.pl      3 Oct 2002 08:51:29 -0000       1.2
--- opac-logout.pl      11 Oct 2002 12:50:42 -0000      1.3
***************
*** 2,6 ****
  
  use CGI;
! use C4::Database;
  use C4::Output;
  
--- 2,6 ----
  
  use CGI;
! use C4::Context;
  use C4::Output;
  
***************
*** 28,31 ****
--- 28,32 ----
  my $sessions;
  open (S, "/tmp/sessions");
+       # FIXME - Come up with a better logging mechanism
  while (my ($sid, $u, $lasttime) = split(/:/, <S>)) {
      chomp $lasttime;
***************
*** 42,46 ****
  }
  
! my $dbh=C4Connect;
  
  # Check that this is the ip that created the session before deleting it
--- 43,47 ----
  }
  
! my $dbh = C4::Context->dbh;
  
  # Check that this is the ip that created the session before deleting it
***************
*** 57,62 ****
  }
  
! $sth=$dbh->prepare("delete from sessions where sessionID=?");
! $sth->execute($sessionID);
  open L, ">>/tmp/sessionlog";
  my $time=localtime(time());
--- 58,62 ----
  }
  
! $dbh->do("delete from sessions where sessionID=?", $sessionID);
  open L, ">>/tmp/sessionlog";
  my $time=localtime(time());