diff options
author | Yorhel <git@yorhel.nl> | 2020-03-22 08:12:06 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-03-22 08:12:10 +0100 |
commit | 54b9d057d22f4470a2c0ce39996e2c5dc2b5ab24 (patch) | |
tree | 762e3673825ddd2960a804b129027742228725a3 /lib/VNDB/DB/Releases.pm | |
parent | 86f5ce595ccef433ef33bba58005789311612b91 (diff) |
Delete old release edit form
So that I can now work on adding a few more fields.
Diffstat (limited to 'lib/VNDB/DB/Releases.pm')
-rw-r--r-- | lib/VNDB/DB/Releases.pm | 49 |
1 files changed, 1 insertions, 48 deletions
diff --git a/lib/VNDB/DB/Releases.pm b/lib/VNDB/DB/Releases.pm index 9813029d..944a72c0 100644 --- a/lib/VNDB/DB/Releases.pm +++ b/lib/VNDB/DB/Releases.pm @@ -7,7 +7,7 @@ use POSIX 'strftime'; use Exporter 'import'; use VNDB::Func 'gtintype'; -our @EXPORT = qw|dbReleaseFilters dbReleaseGet dbReleaseGetRev dbReleaseRevisionInsert dbReleaseEngines|; +our @EXPORT = qw|dbReleaseFilters dbReleaseGet dbReleaseGetRev dbReleaseEngines|; # Release filters shared by dbReleaseGet and dbVNGet @@ -214,53 +214,6 @@ sub _enrich { } -# Updates the edit_* tables, used from dbItemEdit() -# Arguments: { columns in releases_rev + languages + vn + producers + media + platforms } -sub dbReleaseRevisionInsert { - my($self, $o) = @_; - - my %set = map exists($o->{$_}) ? ("$_ = ?", $o->{$_}) : (), - qw|title original gtin catalog website released notes minage type - l_steam l_dlsite l_dlsiteen l_gog l_denpa l_jlist l_digiket l_melon l_mg l_getchu l_getchudl l_itch l_jastusa l_egs l_erotrail - patch resolution voiced freeware doujin uncensored ani_story ani_ero engine|; - $set{'l_dmm = ARRAY[!l]::text[]'} = [ $o->{l_dmm} ] if exists $o->{l_dmm}; - $set{'l_gyutto = ARRAY[!l]::integer[]'} = [ $o->{l_gyutto} ] if exists $o->{l_gyutto}; - $self->dbExec('UPDATE edit_releases !H', \%set) if keys %set; - - if($o->{languages}) { - $self->dbExec('DELETE FROM edit_releases_lang'); - my $q = join ',', map '(?)', @{$o->{languages}}; - $self->dbExec("INSERT INTO edit_releases_lang (lang) VALUES $q", @{$o->{languages}}) if @{$o->{languages}}; - } - - if($o->{producers}) { - $self->dbExec('DELETE FROM edit_releases_producers'); - my $q = join ',', map '(?,?,?)', @{$o->{producers}}; - my @q = map +($_->[0], $_->[1]?1:0, $_->[2]?1:0), @{$o->{producers}}; - $self->dbExec("INSERT INTO edit_releases_producers (pid, developer, publisher) VALUES $q", @q) if @q; - } - - if($o->{platforms}) { - $self->dbExec('DELETE FROM edit_releases_platforms'); - my $q = join ',', map '(?)', @{$o->{platforms}}; - $self->dbExec("INSERT INTO edit_releases_platforms (platform) VALUES $q", @{$o->{platforms}}) if @{$o->{platforms}}; - } - - if($o->{vn}) { - $self->dbExec('DELETE FROM edit_releases_vn'); - my $q = join ',', map '(?)', @{$o->{vn}}; - $self->dbExec("INSERT INTO edit_releases_vn (vid) VALUES $q", @{$o->{vn}}) if @{$o->{vn}}; - } - - if($o->{media}) { - $self->dbExec('DELETE FROM edit_releases_media'); - my $q = join ',', map '(?,?)', @{$o->{media}}; - my @q = map +($_->[0], $_->[1]), @{$o->{media}}; - $self->dbExec("INSERT INTO edit_releases_media (medium, qty) VALUES $q", @q) if @q; - } -} - - sub dbReleaseEngines { shift->dbAll(q{SELECT engine, count(*) as cnt FROM releases WHERE engine <> '' GROUP BY engine ORDER BY COUNT(*) desc, engine}); } |