diff options
author | Yorhel <git@yorhel.nl> | 2010-01-01 15:12:32 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2010-01-01 15:12:32 +0100 |
commit | 0a4395eb4b186ea91e7a69d1556cb50352ade7f7 (patch) | |
tree | 649cbb8a071d65eda7b54a2305727b90bcc4ab16 /lib | |
parent | f146569cc560d64cf91e4386e3291fb45fa90c88 (diff) |
SQL: Revision insertion abstraction for release entries
Also added a little sanity checking on the edit_(vn|release) table,
and added a default value for releases_rev.released.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNDB/DB/Misc.pm | 9 | ||||
-rw-r--r-- | lib/VNDB/DB/Releases.pm | 80 | ||||
-rw-r--r-- | lib/VNDB/Handler/Releases.pm | 8 |
3 files changed, 46 insertions, 51 deletions
diff --git a/lib/VNDB/DB/Misc.pm b/lib/VNDB/DB/Misc.pm index b1f79705..4b14d485 100644 --- a/lib/VNDB/DB/Misc.pm +++ b/lib/VNDB/DB/Misc.pm @@ -27,17 +27,16 @@ sub dbStats { sub dbItemEdit { my($self, $type, $oid, %o) = @_; - die "Only VNs are supported at this moment!" if $type ne 'v'; - $self->dbExec('SELECT edit_!s_init(?)', - {qw|v vn r releases p producers|}->{$type}, $oid); + my $fun = {qw|v vn r release p producer|}->{$type}; + $self->dbExec('SELECT edit_!s_init(?)', $fun, $oid); $self->dbExec('UPDATE edit_revision SET requester = ?, ip = ?, comments = ?', $o{uid}||$self->authInfo->{id}, $self->reqIP, $o{editsum}); $self->dbVNRevisionInsert( \%o) if $type eq 'v'; #$self->dbProducerRevisionInsert(\%o) if $type eq 'p'; - #$self->dbReleaseRevisionInsert( \%o) if $type eq 'r'; + $self->dbReleaseRevisionInsert( \%o) if $type eq 'r'; - return $self->dbRow('SELECT * FROM edit_vn_commit()'); + return $self->dbRow('SELECT * FROM edit_!s_commit()', $fun); } diff --git a/lib/VNDB/DB/Releases.pm b/lib/VNDB/DB/Releases.pm index 161242bc..a2f62a63 100644 --- a/lib/VNDB/DB/Releases.pm +++ b/lib/VNDB/DB/Releases.pm @@ -156,47 +156,47 @@ sub dbReleaseGet { } -# inserts a release revision, called from dbItemEdit() or dbItemAdd() -# Arguments: global revision, item id, { columns in releases_rev + languages + vn + producers + media + platforms } +# Updates the edit_* tables, used from dbItemEdit() +# Arguments: { columns in releases_rev + languages + vn + producers + media + platforms } sub dbReleaseRevisionInsert { - my($self, $cid, $rid, $o) = @_; - - $self->dbExec(q| - INSERT INTO releases_rev (id, rid, title, original, gtin, catalog, website, released, - notes, minage, type, patch, resolution, voiced, freeware, doujin, ani_story, ani_ero) - VALUES (!l)|, - [ $cid, $rid, @$o{qw| title original gtin catalog website released - notes minage type patch resolution voiced freeware doujin ani_story ani_ero|} ]); - - $self->dbExec(q| - INSERT INTO releases_lang (rid, lang) - VALUES (?, ?)|, - $cid, $_ - ) for (@{$o->{languages}}); - - $self->dbExec(q| - INSERT INTO releases_producers (rid, pid, developer, publisher) - VALUES (?, ?, ?, ?)|, - $cid, $_->[0], $_->[1]?1:0, $_->[2]?1:0 - ) for (@{$o->{producers}}); - - $self->dbExec(q| - INSERT INTO releases_platforms (rid, platform) - VALUES (?, ?)|, - $cid, $_ - ) for (@{$o->{platforms}}); - - $self->dbExec(q| - INSERT INTO releases_vn (rid, vid) - VALUES (?, ?)|, - $cid, $_ - ) for (@{$o->{vn}}); - - $self->dbExec(q| - INSERT INTO releases_media (rid, medium, qty) - VALUES (?, ?, ?)|, - $cid, $_->[0], $_->[1] - ) for (@{$o->{media}}); + my($self, $o) = @_; + + my %set = map exists($o->{$_}) ? ("$_ = ?", $o->{$_}) : (), + qw|title original gtin catalog website released notes minage type + patch resolution voiced freeware doujin ani_story ani_ero|; + $self->dbExec('UPDATE edit_release !H', \%set) if keys %set; + + if($o->{languages}) { + $self->dbExec('DELETE FROM edit_release_lang'); + my $q = join ',', map '(?)', @{$o->{languages}}; + $self->dbExec("INSERT INTO edit_release_lang (lang) VALUES $q", @{$o->{languages}}) if @{$o->{languages}}; + } + + if($o->{producers}) { + $self->dbExec('DELETE FROM edit_release_producers'); + my $q = join ',', map '(?,?,?)', @{$o->{producers}}; + my @q = map +($_->[0], $_->[1]?1:0, $_->[2]?1:0), @{$o->{producers}}; + $self->dbExec("INSERT INTO edit_release_producers (pid, developer, publisher) VALUES $q", @q) if @q; + } + + if($o->{platforms}) { + $self->dbExec('DELETE FROM edit_release_platforms'); + my $q = join ',', map '(?)', @{$o->{platforms}}; + $self->dbExec("INSERT INTO edit_release_platforms (platform) VALUES $q", @{$o->{platforms}}) if @{$o->{platforms}}; + } + + if($o->{vn}) { + $self->dbExec('DELETE FROM edit_release_vn'); + my $q = join ',', map '(?)', @{$o->{vn}}; + $self->dbExec("INSERT INTO edit_release_vn (vid) VALUES $q", @{$o->{vn}}) if @{$o->{vn}}; + } + + if($o->{media}) { + $self->dbExec('DELETE FROM edit_release_media'); + my $q = join ',', map '(?,?)', @{$o->{media}}; + my @q = map +($_->[0], $_->[1]), @{$o->{media}}; + $self->dbExec("INSERT INTO edit_release_media (medium, qty) VALUES $q", @q) if @q; + } } diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm index 724ecf4e..7c365af7 100644 --- a/lib/VNDB/Handler/Releases.pm +++ b/lib/VNDB/Handler/Releases.pm @@ -348,7 +348,7 @@ sub edit { } if(!$frm->{_err}) { - my %opts = ( + my $nrev = $self->dbItemEdit(r => !$copy && $rid ? $r->{cid} : undef, (map { $_ => $frm->{$_} } qw| type title original gtin catalog languages website released notes platforms resolution editsum patch voiced freeware doujin ani_story ani_ero|), minage => $frm->{minage} < 0 ? undef : $frm->{minage}, @@ -357,11 +357,7 @@ sub edit { media => $media, ); - $rev = 1; - ($rev) = $self->dbItemEdit(r => $rid, %opts) if !$copy && $rid; - ($rid) = $self->dbItemAdd(r => %opts) if $copy || !$rid; - - return $self->resRedirect("/r$rid.$rev", 'post'); + return $self->resRedirect("/r$nrev->{iid}.$nrev->{rev}", 'post'); } } |