From dd5b9b25b5b477ca1b046492f461aeb796370f31 Mon Sep 17 00:00:00 2001
From: ajt <>
Date: Thu, 6 Oct 2005 02:10:42 -0800
Subject: [PATCH] [project @ 2005-10-06 03:10:42 by ajt] don't reference
 undefined variables

---
 cgi/common.pl     | 2 ++
 cgi/pkgreport.cgi | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/cgi/common.pl b/cgi/common.pl
index 85b18bb..a6feece 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -206,6 +206,8 @@ sub readparse {
 	$x =~ s/;\s+/;/g;
         $in = "$x;$in";
     }
+    $in =~ s/&/;/g;
+    $in =~ s/;;+/;/g; $in =~ s/^;//; $in =~ s/;$//;
     foreach (split(/[&;]/,$in)) {
         s/\+/ /g;
         ($key, $val) = split(/=/,$_,2);
diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index ccc9967..86ebba6 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -387,11 +387,13 @@ print "<tr><td></td>";
 print "    <td><input id=\"b_1_2\" name=vt value=bysuite type=radio onchange=\"enable(1);\" $checked_sui>" . pkg_htmlselectsuite(1,2,1) . " for " . pkg_htmlselectarch(1,2,2) . "</td></tr>\n";
 
 if (defined $pkg) {
+    my $v = $version || "";
     print "<tr><td></td>";
-    print "    <td><input id=\"b_1_3\" name=vt value=bypkg type=radio onchange=\"enable(1);\" $checked_ver>$pkg version <input id=\"b_1_3_1\" name=version value=\"$version\"></td></tr>\n";
+    print "    <td><input id=\"b_1_3\" name=vt value=bypkg type=radio onchange=\"enable(1);\" $checked_ver>$pkg version <input id=\"b_1_3_1\" name=version value=\"$v\"></td></tr>\n";
 } elsif (defined $src) {
+    my $v = $version || "";
     print "<tr><td></td>";
-    print "    <td><input name=vt value=bysrc type=radio onchange=\"enable(1);\" $checked_ver>$src version <input id=\"b_1_3_1\" name=version value=\"$version\"></td></tr>\n";
+    print "    <td><input name=vt value=bysrc type=radio onchange=\"enable(1);\" $checked_ver>$src version <input id=\"b_1_3_1\" name=version value=\"$v\"></td></tr>\n";
 }
 
 my $sel_rmy = ($repeatmerged ? " selected" : "");
-- 
2.39.2