vndb/yhdev
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bug tracker improvements + added maildir.pl + ncdc FAQ update

Browse source
This commit is contained in:
Yorhel 2012-10-12 12:45:42 +02:00
parent 8341fb9341
commit bf6e6be5f4
6 changed files with 42 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

20
index.cgi
View file

@ -12,6 +12,7 @@ BEGIN { ($ROOT = abs_path $0) =~ s{index\.cgi$}{}; }
my @changes = (
[ '2012-10-07', '/dump#maildir.pl','Added maildir.pl to the code dump' ],
[ '2012-09-27', '/ncdu', 'ncdu 1.9 released.' ],
[ '2012-09-25', '/dump#dbusev.c', 'Added dbusev.c to the code dump' ],
[ '2012-08-16', '/ncdc', 'ncdc 1.13 released.' ],
@ -227,8 +228,23 @@ sub bug_list {
my($s, $p) = @_;
my $is = _bug_init(@_);
$s->htmlHeader(title => "\u$p Bug tracker", page => $p, sec => 'bug');
br; a href => "/$p/bug/new", 'Report new bug'; br; br;
$is->htmlListing((scalar $is->dbListing()), sub { "/$p/bug/".shift });
br; a href => "/$p/bug/new", 'Report new bug';
p class => 'bug_filter';
txt 'filter{';
my $cl = $s->reqParam('cl')||0;
a href => "/$p/bug", 'open' if $cl;
txt 'open' if !$cl;
txt '/';
a href => "/$p/bug?cl=1", 'closed' if $cl != 1;
txt 'closed' if $cl == 1;
txt '/';
a href => "/$p/bug?cl=2", 'all' if $cl != 2;
txt 'all' if $cl == 2;
txt '}';
end;
$is->htmlListing((scalar $is->dbListing(closed => $cl)), sub { "/$p/bug/".shift });
br; a href => "/$p/bug/new", 'Report new bug'; br; br;
$s->htmlFooter;
}