summaryrefslogtreecommitdiff
path: root/lib/VNDB/Handler/Releases.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2019-07-16 11:24:11 +0200
committerYorhel <git@yorhel.nl>2019-07-16 11:24:11 +0200
commit71619f539044068137664dbc3363bbfc06870dc1 (patch)
tree0f935a802b0974d889d1c46bd9cf9bcdb517b878 /lib/VNDB/Handler/Releases.pm
parentb3b8cdff901d3dfd6bbb9296b1382971d70f5fca (diff)
Releases: Add engine link + list
Diffstat (limited to 'lib/VNDB/Handler/Releases.pm')
-rw-r--r--lib/VNDB/Handler/Releases.pm32
1 files changed, 31 insertions, 1 deletions
diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm
index 9955f0a2..bdc7f9e7 100644
--- a/lib/VNDB/Handler/Releases.pm
+++ b/lib/VNDB/Handler/Releases.pm
@@ -13,6 +13,7 @@ TUWF::register(
qr{r} => \&browse,
qr{r(?:([1-9]\d*)(?:\.([1-9]\d*))?/(edit|copy))}
=> \&edit,
+ qr{r/engines} => \&engines,
qr{xml/releases.xml} => \&relxml,
);
@@ -191,7 +192,7 @@ sub _infotable {
if(length $r->{engine}) {
Tr;
td 'Engine';
- td $r->{engine};
+ td; a href => '/r?fil='.fil_serialize({engine => $r->{engine}}), $r->{engine}; end;
end;
}
@@ -449,6 +450,7 @@ sub _form {
end;
input type => 'text', name => 'engine_oth', id => 'engine_oth', tabindex => 10, class => 'text '.($other ? '' : 'hidden'), value => $frm->{engine}||'';
} ],
+ [ static => content => 'Try to use a name from the <a href="/r/engines">engine list</a>.' ],
[ select => short => 'voiced', name => 'Voiced', options => [
map [ $_, $self->{voiced}[$_] ], 0..$#{$self->{voiced}} ] ],
[ select => short => 'ani_story', name => 'Story animation', options => [
@@ -653,6 +655,34 @@ sub _fil_compat {
}
+sub engines {
+ my $self = shift;
+ my $lst = $self->dbReleaseEngines();
+ $self->htmlHeader(title => 'Engine list', noindex => 1);
+
+ div class => 'mainbox';
+ h1 'Engine list';
+ p;
+ lit q{
+ This is a list of all engines currently associated with releases. This
+ list can be used as reference when filling out the engine field for a
+ release and to find inconsistencies in the engine names. See the <a
+ href="/d3.3">releases guidelines</a> for more information.
+ };
+ end;
+ ul;
+ for my $e (@$lst) {
+ li;
+ a href => '/r?fil='.fil_serialize({engine => $e->{engine}}), $e->{engine};
+ b class => 'grayedout', " $e->{cnt}";
+ end;
+ }
+ end;
+
+ end;
+}
+
+
sub relxml {
my $self = shift;