summaryrefslogtreecommitdiff
path: root/lib/VNDB/Releases.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNDB/Releases.pm')
-rw-r--r--lib/VNDB/Releases.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/VNDB/Releases.pm b/lib/VNDB/Releases.pm
index abf3a786..0e95cc5a 100644
--- a/lib/VNDB/Releases.pm
+++ b/lib/VNDB/Releases.pm
@@ -60,7 +60,7 @@ sub REdit {
return $self->ResDenied if !$self->AuthCan('edit') || ($r->{locked} && !$self->AuthCan('lock'));
my %b4 = $rid ? (
- (map { $_ => $r->{$_} } qw|title original language website notes minage type platforms|),
+ (map { $_ => $r->{$_} } qw|title original gtin language website notes minage type platforms|),
released => $r->{released} =~ /^([0-9]{4})([0-9]{2})([0-9]{2})$/ ? [ $1, $2, $3 ] : [ 0, 0, 0 ],
media => join(',', map { $_->{medium} =~ /^(cd|dvd|gdr|blr)$/ ? ($_->{medium}.'_'.$_->{qty}) : $_->{medium} } @{$r->{media}}),
producers => join('|||', map { $_->{id}.','.$_->{name} } @{$r->{producers}}),
@@ -73,6 +73,7 @@ sub REdit {
{ name => 'type', required => 1, enum => [ 0..$#{$VNDB::RTYP} ] },
{ name => 'title', required => 1, maxlength => 250 },
{ name => 'original', required => 0, maxlength => 250, default => '' },
+ { name => 'gtin', required => 0, template => 'gtin', default => '0' },
{ name => 'language', required => 1, enum => [ keys %{$VNDB::LANG} ] },
{ name => 'website', required => 0, template => 'url', default => '' },
{ name => 'released', required => 0, multi => 1, template => 'int', default => 0 },
@@ -101,12 +102,12 @@ sub REdit {
return $self->ResRedirect('/r'.$rid, 'post')
if $rid && $released == $r->{released} &&
(join(',', sort @{$b4{platforms}}) eq join(',', sort @{$frm->{platforms}})) &&
- 10 == scalar grep { $_ ne 'comm' && $_ ne 'released' && $_ ne 'platforms' && $frm->{$_} eq $b4{$_} } keys %b4;
+ 11 == scalar grep { $_ ne 'comm' && $_ ne 'released' && $_ ne 'platforms' && $frm->{$_} eq $b4{$_} } keys %b4;
if(!$frm->{_err}) {
my %opts = (
vn => $new_vn,
- (map { $_ => $frm->{$_} } qw|title original language website notes minage type comm platforms|),
+ (map { $_ => $frm->{$_} } qw|title original gtin language website notes minage type comm platforms|),
released => $released,
media => $media,
producers => $producers,