summaryrefslogtreecommitdiff
path: root/lib/VNDB/Util/DB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNDB/Util/DB.pm')
-rw-r--r--lib/VNDB/Util/DB.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/VNDB/Util/DB.pm b/lib/VNDB/Util/DB.pm
index 87b7ba89..b1372a54 100644
--- a/lib/VNDB/Util/DB.pm
+++ b/lib/VNDB/Util/DB.pm
@@ -865,7 +865,7 @@ sub DBGetRelease { # %options->{ id vid results page rev }
push @join, 'JOIN users u ON u.id = c.requester' if $o{what} =~ /changes/;
push @join, 'JOIN releases_vn rv ON rv.rid = rr.id' if $o{vid};
- my $select = 'r.id, r.locked, r.hidden, rr.id AS cid, rr.title, rr.original, rr.language, rr.website, rr.released, rr.notes, rr.minage, rr.type';
+ my $select = 'r.id, r.locked, r.hidden, rr.id AS cid, rr.title, rr.original, rr.gtin, rr.language, rr.website, rr.released, rr.notes, rr.minage, rr.type';
$select .= ', c.added, c.requester, c.comments, r.latest, u.username, c.prev' if $o{what} =~ /changes/;
my $r = $s->DBAll(qq|
@@ -981,10 +981,11 @@ sub DBEditRelease { # id, %opts->{ columns in releases_rev table + comm + vn + p
sub _insert_release_rev {
my($s, $cid, $rid, $o) = @_;
+ # most GTIN numbers can't be represented in a 32bit integer, so make sure Perl doesn't interpret it as one (%s, not %d)
$s->DBExec(q|
- INSERT INTO releases_rev (id, rid, title, original, language, website, released, notes, minage, type)
- VALUES (%d, %d, !s, !s, !s, !s, %d, !s, %d, %d)|,
- $cid, $rid, @$o{qw| title original language website released notes minage type|});
+ INSERT INTO releases_rev (id, rid, title, original, gtin, language, website, released, notes, minage, type)
+ VALUES (%d, %d, !s, !s, %s, !s, !s, %d, !s, %d, %d)|,
+ $cid, $rid, @$o{qw| title original gtin language website released notes minage type|});
$s->DBExec(q|
INSERT INTO releases_producers (rid, pid)