Allow us to specify to keep all existing arguments.
Patch by exor674.
diffs (13 lines):
diff -r 3e74d0edc1cc -r 87149db394cb cgi-bin/weblib.pl
--- a/cgi-bin/weblib.pl Thu Dec 30 18:41:30 2010 +0800
+++ b/cgi-bin/weblib.pl Thu Dec 30 18:46:55 2010 +0800
@@ -1204,6 +1204,9 @@ sub create_url {
$out_args{$k} = $vs_args->{$k} unless exists $out_args{$k};
}
}
+
+ $opts{keep_args} = [ keys %$orig_args ] if defined $opts{keep_args} and
$opts{keep_args} == 1;
+ $opts{keep_args} = [] if ref $opts{keep_args} ne 'ARRAY';
# Move over arguments that we need to keep
foreach my $k ( @{$opts{keep_args}} ) {
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
