Revision 3758
Added by Jing Tao over 16 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