blob: 2583ad132df743977ea1b787f9f8f262ca35cd3b (
plain)
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
package VNDB::Handler::Producers;
use strict;
use warnings;
use YAWF ':html';
YAWF::register(
qr{p([1-9]\d*)} => \&page,
);
sub page {
my($self, $pid) = @_;
my $p = $self->dbProducerGet(id => $pid, what => 'vn')->[0];
return 404 if !$p->{id};
$self->htmlHeader(title => $p->{name});
$self->htmlMainTabs(p => $p);
div class => 'mainbox producerpage';
h1 $p->{name};
h2 class => 'alttitle', $p->{original} if $p->{original};
p class => 'center';
txt "$self->{languages}{$p->{lang}} \L$self->{producer_types}{$p->{type}}";
if($p->{website}) {
txt "\n";
a href => $p->{website}, $p->{website};
}
end;
p class => 'description', $p->{desc}
if $p->{desc};
end;
div class => 'mainbox producerpage';
h1 'Visual Novel Relations';
if(!@{$p->{vn}}) {
p 'We have currently no visual novels related to this producer.';
} else {
ul;
for (@{$p->{vn}}) {
li;
txt "$_->{date} ";
a href => "/v$_->{id}", title => $_->{original}, $_->{title};
end;
}
end;
}
end;
$self->htmlFooter;
}
1;
|