Delete old producer edit form + a few more cleanups

2 files changed, 2 insertions, 44 deletions

diff --git a/lib/VNDB/DB/Misc.pm b/lib/VNDB/DB/Misc.pm
index 2bd18c4c..525d5975 100644
--- a/lib/VNDB/DB/Misc.pm
+++ b/lib/VNDB/DB/Misc.pm
@@ -6,33 +6,10 @@ use warnings;
 use Exporter 'import';
 
 our @EXPORT = qw|
-  dbItemEdit dbRevisionGet
+  dbRevisionGet
 |;
 
 
-# Inserts a new revision into the database
-# Arguments: type [vrpcsd], itemid, rev, %options->{ editsum uid ihid ilock + db[item]RevisionInsert }
-#  rev = changes.rev of the revision this edit is based on, undef to create a new DB item
-# Returns: { itemid, chid, rev }
-sub dbItemEdit {
-  my($self, $type, $itemid, $rev, %o) = @_;
-
-  $self->dbExec('SELECT edit_!s_init(?, ?)', $type, $itemid, $rev);
-  $self->dbExec('UPDATE edit_revision !H', {
-    'requester = ?' => $o{uid}||$self->authInfo->{id},
-    'ip = ?'        => $self->reqIP,
-    'comments = ?'  => $o{editsum},
-    exists($o{ihid})  ? ('ihid = ?'  => $o{ihid} ?1:0) : (),
-    exists($o{ilock}) ? ('ilock = ?' => $o{ilock}?1:0) : (),
-  });
-
-  die if $type ne 'p';
-  $self->dbProducerRevisionInsert(\%o) if $type eq 'p';
-
-  return $self->dbRow('SELECT * FROM edit_!s_commit()', $type);
-}
-
-
 # Options: type, itemid, uid, auto, hidden, edit, page, results, releases
 sub dbRevisionGet {
   my($self, %o) = @_;
diff --git a/lib/VNDB/DB/Producers.pm b/lib/VNDB/DB/Producers.pm
index 9497a8eb..c9d4f95f 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 dbProducerGetRev dbProducerRevisionInsert|;
+our @EXPORT = qw|dbProducerGet dbProducerGetRev|;
 
 
 # options: results, page, id, search, char, sort, inc_hidden
@@ -104,24 +104,5 @@ sub _enrich {
   return wantarray ? ($r, $np) : $r;
 }
 
-
-# Updates the edit_* tables, used from dbItemEdit()
-# Arguments: { columns in producers_rev + relations },
-sub dbProducerRevisionInsert {
-  my($self, $o) = @_;
-
-  my %set = map exists($o->{$_}) ? (qq|"$_" = ?|, $o->{$_}) : (),
-    qw|name original website l_wp l_wikidata type lang desc alias|;
-  $self->dbExec('UPDATE edit_producers !H', \%set) if keys %set;
-
-  if($o->{relations}) {
-    $self->dbExec('DELETE FROM edit_producers_relations');
-    my $q = join ',', map '(?,?)', @{$o->{relations}};
-    my @q = map +($_->[1], $_->[0]), @{$o->{relations}};
-    $self->dbExec("INSERT INTO edit_producers_relations (pid, relation) VALUES $q", @q) if @q;
-  }
-}
-
-
 1;