my %common_include = ();
my %common_exclude = ();
my $common_raw_sort = 0;
+my $common_bug_reverse = 0;
my $debug = 0;
if ($opt eq "exclude") { %common_exclude = %{$val}; }
if ($opt eq "include") { %common_include = %{$val}; }
if ($opt eq "raw") { $common_raw_sort = $val; }
+ if ($opt eq "bug-rev") { $common_bug_reverse = $val; }
}
sub readparse {
return "<HR><H2>No reports found!</H2></HR>\n";
}
- foreach my $bug (sort {$a<=>$b} @bugs) {
+ if ( $common_bug_reverse ) {
+ @bugs = sort {$b<=>$a} @bugs;
+ } else {
+ @bugs = sort {$a<=>$b} @bugs;
+ }
+ foreach my $bug (@bugs) {
my %status = %{getbugstatus($bug)};
next unless %status;
my @merged = sort {$a<=>$b} ($bug, split(/ /, $status{mergedwith}));
my $include = $param{'include'} || "";
my $exclude = $param{'exclude'} || "";
my $raw_sort = ($param{'raw'} || "no") eq "yes";
+my $bug_rev = ($param{'bug-rev'} || "no") eq "yes";
my $Archived = $archive ? " Archived" : "";
set_option("exclude", { map {if (m/^(.*):(.*)$/) { ($1,$2) } else { ($_,1) }} (split /[\s,]+/, $exclude) })
if ($exclude);
set_option("raw", $raw_sort);
+set_option("bug-rev", $bug_rev);
my $tag;
my @bugs;