diff options
author | Yorhel <git@yorhel.nl> | 2009-05-22 16:38:40 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-05-22 16:38:40 +0200 |
commit | 3ad040d6d210fcd7415ddbabd4782a92c23c913e (patch) | |
tree | 9edecce67e30c48009ff82ad6b8853b32c63535a /lib | |
parent | 671b015a2e2a425fbaf8b800737902af65027036 (diff) |
Voiced field for releases
TODO: filter on /r
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNDB/DB/Releases.pm | 6 | ||||
-rw-r--r-- | lib/VNDB/Handler/Releases.pm | 15 |
2 files changed, 16 insertions, 5 deletions
diff --git a/lib/VNDB/DB/Releases.pm b/lib/VNDB/DB/Releases.pm index fa352c1e..89b3d671 100644 --- a/lib/VNDB/DB/Releases.pm +++ b/lib/VNDB/DB/Releases.pm @@ -72,7 +72,7 @@ sub dbReleaseGet { my @select = ( qw|r.id rr.title rr.original rr.language rr.website rr.released rr.minage rr.type rr.patch|, 'rr.id AS cid', - $o{what} =~ /extended/ ? qw|rr.notes rr.catalog rr.gtin rr.resolution r.hidden r.locked| : (), + $o{what} =~ /extended/ ? qw|rr.notes rr.catalog rr.gtin rr.resolution rr.voiced r.hidden r.locked| : (), $o{what} =~ /changes/ ? qw|c.added c.requester c.comments r.latest u.username c.rev| : (), ); @@ -167,9 +167,9 @@ sub insert_rev { my($self, $cid, $rid, $o) = @_; $self->dbExec(q| - INSERT INTO releases_rev (id, rid, title, original, gtin, catalog, language, website, released, notes, minage, type, patch, resolution) + INSERT INTO releases_rev (id, rid, title, original, gtin, catalog, language, website, released, notes, minage, type, patch, resolution, voiced) VALUES (!l)|, - [ $cid, $rid, @$o{qw| title original gtin catalog language website released notes minage type patch resolution|} ]); + [ $cid, $rid, @$o{qw| title original gtin catalog language website released notes minage type patch resolution voiced|} ]); $self->dbExec(q| INSERT INTO releases_producers (rid, pid) diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm index 6656dedb..19de1e4a 100644 --- a/lib/VNDB/Handler/Releases.pm +++ b/lib/VNDB/Handler/Releases.pm @@ -58,6 +58,7 @@ sub page { } @{$_[0]}; } ], [ resolution => 'Resolution', serialize => sub { $self->{resolutions}[$_[0]][0] } ], + [ voiced => 'Voiced', serialize => sub { $self->{voiced}[$_[0]] } ], [ producers => 'Producers', join => '<br />', split => sub { map sprintf('<a href="/p%d" title="%s">%s</a>', $_->{id}, $_->{original}||$_->{name}, shorten $_->{name}, 50), @{$_[0]}; } ], @@ -157,6 +158,13 @@ sub _infotable { end; } + if($r->{voiced}) { + Tr ++$i % 2 ? (class => 'odd') : (); + td 'Voiced'; + td $self->{voiced}[$r->{voiced}]; + end; + } + Tr ++$i % 2 ? (class => 'odd') : (); td 'Released'; td; @@ -255,7 +263,7 @@ sub edit { my $vn = $rid ? $r->{vn} : [{ vid => $vid, title => $v->{title} }]; my %b4 = !$rid ? () : ( - (map { $_ => $r->{$_} } qw|type title original gtin catalog language website released notes minage platforms patch resolution|), + (map { $_ => $r->{$_} } qw|type title original gtin catalog language website released notes minage platforms patch resolution voiced|), media => join(',', sort map "$_->{medium} $_->{qty}", @{$r->{media}}), producers => join('|||', map "$_->{id},$_->{name}", sort { $a->{id} <=> $b->{id} } @{$r->{producers}}), ); @@ -279,6 +287,7 @@ sub edit { { name => 'platforms', required => 0, default => '', multi => 1, enum => [ keys %{$self->{platforms}} ] }, { name => 'media', required => 0, default => '' }, { name => 'resolution',required => 0, default => 0, enum => [ 0..$#{$self->{resolutions}} ] }, + { name => 'voiced', required => 0, default => 0, enum => [ 0..$#{$self->{voiced}} ] }, { name => 'producers', required => 0, default => '' }, { name => 'vn', maxlength => 5000 }, { name => 'editsum', maxlength => 5000 }, @@ -299,7 +308,7 @@ sub edit { !grep !/^(platforms|producers|vn)$/ && $frm->{$_} ne $b4{$_}, keys %b4; my %opts = ( - (map { $_ => $frm->{$_} } qw| type title original gtin catalog language website released notes minage platforms resolution editsum patch |), + (map { $_ => $frm->{$_} } qw| type title original gtin catalog language website released notes minage platforms resolution editsum patch voiced |), vn => $new_vn, producers => $producers, media => $media, @@ -351,6 +360,8 @@ sub _form { options => [ map [ $_, $self->{age_ratings}{$_} ], sort { $a <=> $b } keys %{$self->{age_ratings}} ] ], [ select => short => 'resolution', name => 'Resolution', options => [ map [ $_, @{$self->{resolutions}[$_]} ], 0..$#{$self->{resolutions}} ] ], + [ select => short => 'voiced', name => 'Voiced', options => [ + map [ $_, $self->{voiced}[$_] ], 0..$#{$self->{voiced}} ] ], [ textarea => short => 'notes', name => 'Notes' ], [ static => content => 'Miscellaneous notes/comments, information that does not fit in the above fields. ' .'E.g.: Censored/uncensored or for which releases this patch applies. Max. 250 characters.' ], |