Re-add tag vote deletion moderation feature

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/VNDB/DB/Tags.pm b/lib/VNDB/DB/Tags.pm
index dc542ff8..97852724 100644
--- a/lib/VNDB/DB/Tags.pm
+++ b/lib/VNDB/DB/Tags.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Exporter 'import';
 
-our @EXPORT = qw|dbTagGet dbTTTree dbTagEdit dbTagAdd dbTagMerge dbTagLinks dbTagLinkEdit dbTagStats|;
+our @EXPORT = qw|dbTagGet dbTTTree dbTagEdit dbTagAdd dbTagMerge dbTagLinks dbTagLinkEdit dbTagStats dbTagWipeVotes|;
 
 
 # %options->{ id noid name search state searchable applicable page results what sort reverse  }
@@ -275,5 +275,11 @@ sub dbTagStats {
   return wantarray ? ($r, $np) : $r;
 }
 
+
+# Deletes all votes on a tag.
+sub dbTagWipeVotes {
+  $_[0]->dbExec('DELETE FROM tags_vn WHERE tag = ?', $_[1])
+}
+
 1;