my $common_repeatmerged = 1;
my %common_include = ();
my %common_exclude = ();
+my $common_raw_sort = 0;
my $debug = 0;
if ($opt eq "repeatmerged") { $common_repeatmerged = $val; }
if ($opt eq "exclude") { %common_exclude = %{$val}; }
if ($opt eq "include") { %common_include = %{$val}; }
+ if ($opt eq "raw") { $common_raw_sort = $val; }
}
sub readparse {
sub htmlizebugs {
$b = $_[0];
my @bugs = @$b;
+ my @rawsort;
my %section = ();
next unless ($okay);
}
- $section{$status{pending} . "_" . $status{severity}} .=
- sprintf "<li><a href=\"%s\">#%d: %s</a>\n<br>",
- bugurl($bug), $bug, htmlsanit($status{subject});
- $section{$status{pending} . "_" . $status{severity}} .=
- htmlindexentrystatus(\%status) . "\n";
+ my $html = sprintf "<li><a href=\"%s\">#%d: %s</a>\n<br>",
+ bugurl($bug), $bug, htmlsanit($status{subject});
+ $html .= htmlindexentrystatus(\%status) . "\n";
+ $section{$status{pending} . "_" . $status{severity}} .= $html;
+ push @rawsort, $html if $common_raw_sort;
}
my $result = "";
my $anydone = 0;
+ if ($common_raw_sort) {
+ $result .= "<UL>\n" . join("", @rawsort ) . "</UL>\n";
+ } else {
foreach my $pending (qw(pending forwarded pending-fixed fixed done)) {
foreach my $severity(@debbugs::gSeverityList) {
$severity = $debbugs::gDefaultSeverity if ($severity eq '');
}
}
+ }
$result .= $debbugs::gHTMLExpireNote if ($anydone);
return $result;
}
my $archive = ($param{'archive'} || "no") eq "yes";
my $include = $param{'include'} || "";
my $exclude = $param{'exclude'} || "";
+my $raw_sort = ($param{'raw'} || "no") eq "yes";
my $Archived = $archive ? " Archived" : "";
if ($include);
set_option("exclude", { map {if (m/^(.*):(.*)$/) { ($1,$2) } else { ($_,1) }} (split /[\s,]+/, $exclude) })
if ($exclude);
+set_option("raw", $raw_sort);
my $tag;
my @bugs;