Changeset 20820

Timestamp:

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

• gsdl/trunk/perllib/cgiactions/baseaction.pm (modified) (3 diffs)

gsdl/trunk/perllib/cgiactions/baseaction.pm

@@ -188 +188 @@
 {
     my $self = shift @_;
-    my ($username,$collection) = shift(@_);
+    my $username = shift(@_);
+    my $collection = shift(@_);
 
     my $gsdl_cgi = $self->{'gsdl_cgi'};
@@ -260 +261 @@
 {
     my $self = shift @_;
-    my ($iis6_mode) = @_;
+    my $iis6_mode = shift(@_);
 
     my $gsdl_cgi = $self->{'gsdl_cgi'};
@@ -308 +309 @@
 {
     my $self = shift @_;
-
-    my ($username,$collection) = shift(@_);
+    my $username = shift(@_);
+    my $collection = shift(@_);
 
     my $gsdl_cgi = $self->{'gsdl_cgi'};