Changeset 20820

Show
Ignore:
Timestamp:
15.10.2009 12:31:32 (10 years ago)
Author:
mdewsnip
Message:

Fixed a couple of sloppy sloppy bugs in the parameter handling -- obviously never tested!! Found by Shane at DL Consulting Ltd.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/cgiactions/baseaction.pm

    r19499 r20820  
    188188{ 
    189189    my $self = shift @_; 
    190     my ($username,$collection) = shift(@_); 
     190    my $username = shift(@_); 
     191    my $collection = shift(@_); 
    191192 
    192193    my $gsdl_cgi = $self->{'gsdl_cgi'}; 
     
    260261{ 
    261262    my $self = shift @_; 
    262     my ($iis6_mode) = @_; 
     263    my $iis6_mode = shift(@_); 
    263264 
    264265    my $gsdl_cgi = $self->{'gsdl_cgi'}; 
     
    308309{ 
    309310    my $self = shift @_; 
    310  
    311     my ($username,$collection) = shift(@_); 
     311    my $username = shift(@_); 
     312    my $collection = shift(@_); 
    312313 
    313314    my $gsdl_cgi = $self->{'gsdl_cgi'};