Locking and hiding producers works

1 files changed, 10 insertions, 1 deletions

diff --git a/lib/VNDB/DB/Producers.pm b/lib/VNDB/DB/Producers.pm
index d8a46774..ada38ab8 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|;
+our @EXPORT = qw|dbProducerGet dbProducerMod|;
 
 
 # options: results, page, id, search, char, rev
@@ -79,4 +79,13 @@ 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);
+}
+
+
 1;