-
Notifications
You must be signed in to change notification settings - Fork 604
Commit
- Loading branch information
There are no files selected for viewing
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -428,21 +428,22 @@ sub hidden_config_cparams | |
sub link_config_cparams | ||
{ | ||
my ($m, $in, $keep) = @_; | ||
my $url = "/$m"; | ||
my $url = "/$m/"; | ||
my @w; | ||
if ($in->{'_cscript'}) { | ||
if ($keep) { | ||
$url .= "/".$in->{'_cscript'}; | ||
push(@w, "_cscript=".&urlize(&un_urlize($in->{'_cscript'}))); | ||
} | ||
else { | ||
push(@w, "_cscript=".&urlize($in->{'_cscript'})); | ||
$url .= $in->{'_cscript'}; | ||
} | ||
} | ||
foreach my $k (keys %$in) { | ||
if ($k =~ /^_cparam_(.*)$/) { | ||
$n = $1; | ||
foreach my $v (split(/\0/, $in{$k})) { | ||
push(@w, &urlize($keep ? $k : $n)."=".&urlize($v)); | ||
push(@w, &urlize($keep ? &un_urlize($k) : | ||
This comment has been minimized.
Sorry, something went wrong.
This comment has been minimized.
Sorry, something went wrong.
iliajie
Author
Collaborator
|
||
&un_urlize($n))."=".&urlize(&un_urlize($v))); | ||
} | ||
} | ||
} | ||
|
Hang on, what are these extra calls to un_urlize for??