summaryrefslogtreecommitdiff
path: root/lib/VNDB/Util/BrowseHTML.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNDB/Util/BrowseHTML.pm')
-rw-r--r--lib/VNDB/Util/BrowseHTML.pm41
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(