[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Auth.pm,1.1,1.2
From: |
Steve Tonnesen |
Subject: |
[Koha-cvs] CVS: koha/C4 Auth.pm,1.1,1.2 |
Date: |
Thu, 04 Jul 2002 12:42:50 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv30757/C4
Modified Files:
Auth.pm
Log Message:
Minor changes
Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** Auth.pm 4 Jul 2002 19:21:30 -0000 1.1
--- Auth.pm 4 Jul 2002 19:42:48 -0000 1.2
***************
*** 60,63 ****
--- 60,67 ----
$sti->execute($sessionID, $userid, $ENV{'REMOTE_ADDR'}, time());
return ($userid, $sessionID, $sessionID);
+ } elsif ($userid eq 'patron' && $password eq 'koha') {
+ my $sti=$dbh->prepare("insert into sessions (sessionID, userid,
ip,lasttime) values (?, ?, ?, ?)");
+ $sti->execute($sessionID, $userid, $ENV{'REMOTE_ADDR'}, time());
+ return ($userid, $sessionID, $sessionID);
} else {
if ($userid) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Auth.pm,1.1,1.2,
Steve Tonnesen <=