1 files changed, 13 insertions, 1 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;