$fields =~ s/[&?]cmdtype=[^&]*//g;
+my $orderpart;
my $oldorder;
if (defined $::FORM{'order'} && trim($::FORM{'order'}) ne "") {
+ $orderpart = "&order=" . url_quote("$::FORM{'order'}");
$oldorder = url_quote(", $::FORM{'order'}");
} else {
+ $orderpart = "";
$oldorder = "";
}
<A HREF=\"enter_bug.cgi\">Enter New Bug</A>
<A HREF=\"colchange.cgi?$::buffer\">Change columns</A>";
if (!$dotweak && $count > 1) {
- print " <A HREF=\"buglist.cgi?$fields&tweak=1\">";
+ print " <A HREF=\"buglist.cgi?$fields$orderpart&tweak=1\">";
print "Change several bugs at once</A>\n";
}
print "</FORM>\n";