Wrote a generic function to handle all /[vrp]+/(lock|hide) URIs

They pretty much all work the same anyway

2 files changed, 14 insertions, 11 deletions

diff --git a/lib/VNDB/DB/Misc.pm b/lib/VNDB/DB/Misc.pm
index 6fb82801..d8348e71 100644
--- a/lib/VNDB/DB/Misc.pm
+++ b/lib/VNDB/DB/Misc.pm
@@ -6,7 +6,7 @@ use warnings;
 use Exporter 'import';
 
 our @EXPORT = qw|
-  dbStats dbRevisionInsert dbItemInsert dbRevisionGet
+  dbStats dbRevisionInsert dbItemInsert dbRevisionGet dbItemMod
 |;
 
 
@@ -145,5 +145,17 @@ sub dbRevisionGet {
 }
 
 
+# Lock or hide a DB item
+# arguments: v/r/p, id, %options ->( hidden, locked )
+sub dbItemMod {
+  my($self, $type, $id, %o) = @_;
+  $self->dbExec('UPDATE !s !H WHERE id = ?', 
+    {qw|v vn r releases p producers|}->{$type},
+    { map { ($_.' = ?', int $o{$_}) } keys %o }, $id
+  );
+}
+
+
+
 1;
 
diff --git a/lib/VNDB/DB/Producers.pm b/lib/VNDB/DB/Producers.pm
index 8b8b29aa..99989d80 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 dbProducerMod dbProducerEdit dbProducerAdd|;
+our @EXPORT = qw|dbProducerGet dbProducerEdit dbProducerAdd|;
 
 
 # options: results, page, id, search, char, rev
@@ -79,15 +79,6 @@ sub dbProducerGet {
 }
 
 
-# arguments: id, %options ->( hidden, locked )
-sub dbProducerMod {
-  my($self, $id, %o) = @_;
-  $self->dbExec('UPDATE producers !H WHERE id = ?', {
-      map { ($_.' = ?', int $o{$_}) } keys %o
-    }, $id);
-}
-
-
 # arguments: id, %options ->( editsum + insert_rev )
 # returns: ( local revision, global revision )
 sub dbProducerEdit {