X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=back2html.pm;h=ba224c79acbba03e092a68019ff015133479f37d;hb=59ace2b4b24a63980678c794091a17f6acfb64cb;hp=0fcf9318c7bb83479fe5fdd8e9eb638027ce1b48;hpb=5bd22bec41221e9d5f8b10c570f542898ff6d106;p=webpac

diff --git a/back2html.pm b/back2html.pm
index 0fcf931..ba224c7 100644
--- a/back2html.pm
+++ b/back2html.pm
@@ -33,10 +33,12 @@ sub back2html {
 	# put <a href=xxx>yyyy</a> 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.'>';
 	}