[Koha-cvs] CVS: koha/C4 Auth.pm,1.9.2.13,1.9.2.14

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	Auth.pm 
Log Message:
Strips userid and password parameters off URL parameters list.


Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.9.2.13
retrieving revision 1.9.2.14
diff -C2 -r1.9.2.13 -r1.9.2.14
*** Auth.pm	3 Oct 2002 08:24:02 -0000	1.9.2.13
--- Auth.pm	25 Oct 2002 21:52:31 -0000	1.9.2.14
***************
*** 181,184 ****
--- 181,185 ----
  	    my $self_url = $query->self_url();
  	    foreach my $name (param $query) {
+ 		(next) if ($name eq 'userid' || $name eq 'password');
  		my $value = $query->param($name);
  		push @inputs, {name => $name , value => $value};
***************
*** 191,195 ****
  
  	    $template->param(loginprompt => 1);
! 	    $template->param(url => $query->self_url());
  	    print $query->header(-cookie=>$cookie), $template->output;
  	    exit;
--- 192,202 ----
  
  	    $template->param(loginprompt => 1);
! 
! 	    # Strip userid and password parameters off the self_url variable
! 
! 	    $self_url=~s/\?*userid=[^;]*;*//g;
! 	    $self_url=~s/\?*password=[^;]*;*//g;
! 
! 	    $template->param(url => $self_url);
  	    print $query->header(-cookie=>$cookie), $template->output;
  	    exit;