lib/VNDB/Util/CommonHTML.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34


package VNDB::Util::CommonHTML;

use strict;
use warnings;
use Exporter 'import';
use VNDB::Func;

our @EXPORT = qw|
  htmlMainTabs htmlDenied htmlSearchBox
|;


# generates the "main tabs". These are the commonly used tabs for
# 'objects', i.e. VN/producer/release entries and users
# Arguments: u/v/r/p/g/i/c/d, object, currently selected item (empty=main)
sub htmlMainTabs {
  my($self, $type, $obj, $sel) = @_;
  $obj->{entry_hidden} = $obj->{hidden};
  $obj->{entry_locked} = $obj->{locked};
  VNWeb::HTML::_maintabs_({ type => $type, dbobj => $obj, tab => $sel||''});
}


# generates a full error page, including header and footer
sub htmlDenied { shift->resDenied }


sub htmlSearchBox {
  shift; VNWeb::HTML::searchbox_(@_);
}


1;