diff --git a/config-lib.pl b/config-lib.pl index f8704fb02..cc7f6e7d3 100755 --- a/config-lib.pl +++ b/config-lib.pl @@ -428,21 +428,22 @@ return $rv; 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) : + &un_urlize($n))."=".&urlize(&un_urlize($v))); } } }