[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Auth.pm,1.9.2.4,1.9.2.5
From: |
Steve Tonnesen |
Subject: |
[Koha-cvs] CVS: koha/C4 Auth.pm,1.9.2.4,1.9.2.5 |
Date: |
Thu, 11 Jul 2002 13:48:25 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv11016/C4
Modified Files:
Tag: rel-1-2
Auth.pm
Log Message:
Added authentication information to installer.pl, modified sample data to work
with new authentication scheme, fix to Auth.pm that was causing userid and
password to show up in the URL after logging out and logging back in again.
Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.9.2.4
retrieving revision 1.9.2.5
diff -C2 -r1.9.2.4 -r1.9.2.5
*** Auth.pm 11 Jul 2002 19:56:33 -0000 1.9.2.4
--- Auth.pm 11 Jul 2002 20:48:23 -0000 1.9.2.5
***************
*** 87,93 ****
$sti->execute($sessionID, $userid);
if ($sti->rows) {
my $stj=$dbh->prepare("delete from sessionqueries where
sessionID=?");
$stj->execute($sessionID);
! my ($selfurl) = $sti->fetchrow;
print $query->redirect($selfurl);
exit;
--- 87,94 ----
$sti->execute($sessionID, $userid);
if ($sti->rows) {
+ my ($selfurl) = $sti->fetchrow;
my $stj=$dbh->prepare("delete from sessionqueries where
sessionID=?");
$stj->execute($sessionID);
! ($selfurl) || ($selfurl=$ENV{'SCRIPT_NAME'});
print $query->redirect($selfurl);
exit;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Auth.pm,1.9.2.4,1.9.2.5,
Steve Tonnesen <=
- Prev by Date:
[Koha-cvs] CVS: koha/C4 Auth.pm,1.9.2.3,1.9.2.4
- Next by Date:
[Koha-cvs] CVS: koha installer.pl,1.2.2.56,1.2.2.57 sampledata-1.2,1.1.2.4,1.1.2.5
- Previous by thread:
[Koha-cvs] CVS: koha/C4 Auth.pm,1.9.2.3,1.9.2.4
- Next by thread:
[Koha-cvs] CVS: koha installer.pl,1.2.2.56,1.2.2.57 sampledata-1.2,1.1.2.4,1.1.2.5
- Index(es):