Ignore:
Timestamp:
2009-10-15T12:31:32+13:00 (13 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.

File:
1 edited

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'};
Note: See TracChangeset for help on using the changeset viewer.