[Koha-cvs] CVS: koha/C4 Auth.pm,1.10,1.10.2.1

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv18235

Modified Files:
      Tag: arensb-context
        Auth.pm 
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.


Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.10
retrieving revision 1.10.2.1
diff -C2 -r1.10 -r1.10.2.1
*** Auth.pm     14 Aug 2002 18:12:51 -0000      1.10
--- Auth.pm     4 Oct 2002 02:22:55 -0000       1.10.2.1
***************
*** 24,28 ****
  
  require Exporter;
! use C4::Database;
  
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
--- 24,28 ----
  
  require Exporter;
! use C4::Context;
  
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
***************
*** 52,56 ****
      my $message='';
  
!     my $dbh=C4Connect();
      my $sth=$dbh->prepare("select userid,ip,lasttime from sessions where 
sessionid=?");
      $sth->execute($sessionID);
--- 52,56 ----
      my $message='';
  
!     my $dbh = C4::Context->dbh;
      my $sth=$dbh->prepare("select userid,ip,lasttime from sessions where 
sessionid=?");
      $sth->execute($sessionID);