diff options
Diffstat (limited to 'lib/VNDB/Util/BrowseHTML.pm')
-rw-r--r-- | lib/VNDB/Util/BrowseHTML.pm | 41 |
1 files changed, 1 insertions, 40 deletions
diff --git a/lib/VNDB/Util/BrowseHTML.pm b/lib/VNDB/Util/BrowseHTML.pm index 09bf55b2..24e657ae 100644 --- a/lib/VNDB/Util/BrowseHTML.pm +++ b/lib/VNDB/Util/BrowseHTML.pm @@ -10,7 +10,7 @@ use VNDB::Types; use POSIX 'ceil'; -our @EXPORT = qw| htmlBrowse htmlBrowseNavigate htmlBrowseHist htmlBrowseVN |; +our @EXPORT = qw| htmlBrowse htmlBrowseNavigate htmlBrowseVN |; # generates a browse box, arguments: @@ -122,45 +122,6 @@ sub htmlBrowseNavigate { } -sub htmlBrowseHist { - my($self, $list, $f, $np, $url) = @_; - $self->htmlBrowse( - items => $list, - options => $f, - nextpage => $np, - pageurl => $url, - class => 'history', - header => [ - sub { td class => 'tc1_1', 'Rev.'; td class => 'tc1_2', ''; }, - [ 'Date' ], - [ 'User' ], - [ 'Page' ], - ], - row => sub { - my($s, $n, $i) = @_; - my $revurl = "/$i->{type}$i->{itemid}.$i->{rev}"; - - Tr; - td class => 'tc1_1'; - a href => $revurl, "$i->{type}$i->{itemid}"; - end; - td class => 'tc1_2'; - a href => $revurl, ".$i->{rev}"; - end; - td class => 'tc2', fmtdate $i->{added}, 'full'; - td class => 'tc3'; - lit fmtuser $i; - end; - td class => 'tc4'; - a href => $revurl, title => $i->{ioriginal}, shorten $i->{ititle}, 80; - b class => 'grayedout'; lit bb2html $i->{comments}, 150; end; - end; - end 'tr'; - }, - ); -} - - sub htmlBrowseVN { my($self, $list, $f, $np, $url, $tagscore) = @_; $self->htmlBrowse( |