[Koha-cvs] CVS: koha/C4 Auth.pm,1.9.2.4,1.9.2.5

[Steve Tonnesen]

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;