[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;