if (defined $pkg) {
my $v = html_escape($version) || "";
- my $pkgsane = html_escape($pkg);
+ my $pkgsane = html_escape($pkg->[0]);
print "<tr><td></td>";
print " <td><input id=\"b_1_3\" name=vt value=bypkg type=radio onchange=\"enable(1);\" $checked_ver>$pkgsane version <input id=\"b_1_3_1\" name=version value=\"$v\"></td></tr>\n";
} elsif (defined $src) {
my $v = html_escape($version) || "";
- my $srcsane = html_escape($src);
+ my $srcsane = html_escape($src->[0]);
print "<tr><td></td>";
print " <td><input name=vt value=bysrc type=radio onchange=\"enable(1);\" $checked_ver>$srcsane version <input id=\"b_1_3_1\" name=version value=\"$v\"></td></tr>\n";
}
for my $include (make_list($param{include})) {
next unless defined $include;
my ($key,$value) = split /\s*:\s*/,$include,2;
- next unless defined $value;
+ unless (defined $value) {
+ $key = 'tags';
+ $value = $include;
+ }
push @{$include{$key}}, split /\s*,\s*/, $value;
}
for my $exclude (make_list($param{exclude})) {