--- branches/hidra/back2html.pm 2005/01/18 17:17:06 637
+++ branches/hidra/back2html.pm 2005/01/19 22:40:11 640
@@ -33,10 +33,12 @@
# put yyyy back into html
sub mkurl_param($$$$) {
my ($a_href,$url,$text,$a_end) = @_;
- if ($url =~ m#\?#) {
- $url .= "&".$url_params;
- } else {
- $url .= "?".$url_params;
+ if ($url_params) {
+ if ($url =~ m#\?#) {
+ $url .= "&".$url_params;
+ } else {
+ $url .= "?".$url_params;
+ }
}
return '<'.$a_href.'"'.$url.'">'.$text.'<'.$a_end.'>';
}