diff options
author | Yorhel <git@yorhel.nl> | 2019-07-16 11:24:11 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2019-07-16 11:24:11 +0200 |
commit | 71619f539044068137664dbc3363bbfc06870dc1 (patch) | |
tree | 0f935a802b0974d889d1c46bd9cf9bcdb517b878 /lib/VNDB/Handler/Releases.pm | |
parent | b3b8cdff901d3dfd6bbb9296b1382971d70f5fca (diff) |
Releases: Add engine link + list
Diffstat (limited to 'lib/VNDB/Handler/Releases.pm')
-rw-r--r-- | lib/VNDB/Handler/Releases.pm | 32 |
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; |