Revision 3758
Added by Jing Tao almost 17 years ago
src/perl/register-dataset.cgi | ||
---|---|---|
946 | 946 |
$returnVal=$returnVal.$_; |
947 | 947 |
} |
948 | 948 |
} else { |
949 |
$returnVal=$returnVal."&#".$var.";"; |
|
949 |
#$returnVal=$returnVal."&#".$var.";"; |
|
950 |
$returnVal=$returnVal.$_; |
|
950 | 951 |
} |
951 | 952 |
} |
952 | 953 |
|
953 |
$returnVal =~ s/&/%26/g; |
|
954 |
#$returnVal =~ s/&/%26/g;
|
|
954 | 955 |
return $returnVal; |
955 | 956 |
} |
956 | 957 |
|
Also available in: Unified diff
Modified the normalize subroutine - don't use 26 (url encoding) to replace x%x