diff options
author | Yorhel <git@yorhel.nl> | 2009-12-05 13:22:53 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-12-05 13:22:53 +0100 |
commit | 7554f305ae27091ccff6a692180a5af7282df766 (patch) | |
tree | e0c93d34c1748b4ad58040550665eb5427df156b /lib/VNDB/DB/Producers.pm | |
parent | fbcadd3ceb50a97dab4dd5cd284cc35e8b89b3b4 (diff) |
Merged db[VN|Producer|Release][Edit|Add] into dbItemEdit and dbItemAdd
And also changed the way the item_table.latest column was updated: it is
now only updated after the revision insert has completed, making it
easier to write trigger functions in SQL.
Diffstat (limited to 'lib/VNDB/DB/Producers.pm')
-rw-r--r-- | lib/VNDB/DB/Producers.pm | 30 |
1 files changed, 6 insertions, 24 deletions
diff --git a/lib/VNDB/DB/Producers.pm b/lib/VNDB/DB/Producers.pm index 0539634c..4a666350 100644 --- a/lib/VNDB/DB/Producers.pm +++ b/lib/VNDB/DB/Producers.pm @@ -5,7 +5,7 @@ use strict; use warnings; use Exporter 'import'; -our @EXPORT = qw|dbProducerGet dbProducerEdit dbProducerAdd|; +our @EXPORT = qw|dbProducerGet dbProducerRevisionInsert|; # options: results, page, id, search, char, rev @@ -100,30 +100,11 @@ sub dbProducerGet { } -# arguments: id, %options ->( editsum uid + insert_rev ) -# returns: ( local revision, global revision ) -sub dbProducerEdit { - my($self, $pid, %o) = @_; - my($rev, $cid) = $self->dbRevisionInsert('p', $pid, $o{editsum}, $o{uid}); - insert_rev($self, $cid, $pid, \%o); - return ($rev, $cid); -} - - -# arguments: %options ->( editsum uid + insert_rev ) -# returns: ( item id, global revision ) -sub dbProducerAdd { - my($self, %o) = @_; - my($pid, $cid) = $self->dbItemInsert('p', $o{editsum}, $o{uid}); - insert_rev($self, $cid, $pid, \%o); - return ($pid, $cid); -} - - -# helper function, inserts a producer revision -# Arguments: global revision, item id, { columns in producers_rev }, relations -sub insert_rev { +# inserts a producer revision, called from dbItemEdit() or dbItemAdd() +# Arguments: global revision, item id, { columns in producers_rev + relations }, +sub dbProducerRevisionInsert { my($self, $cid, $pid, $o) = @_; + $self->dbExec(q| INSERT INTO producers_rev (id, pid, name, original, website, l_wp, type, lang, "desc", alias) VALUES (!l)|, @@ -139,3 +120,4 @@ sub insert_rev { 1; + |