summaryrefslogtreecommitdiff
path: root/lib/VNDB/DB/Tags.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2009-02-15 13:24:14 +0100
committerYorhel <git@yorhel.nl>2009-02-15 13:24:14 +0100
commit845a214bff824123301fa0bd882b91888903bf46 (patch)
tree3861a9cd6e449164709155c02549965f6633505e /lib/VNDB/DB/Tags.pm
parent45bd5743e387e5926cdeb6f0b0ba1d7395084dfe (diff)
Tag deletion
Diffstat (limited to 'lib/VNDB/DB/Tags.pm')
-rw-r--r--lib/VNDB/DB/Tags.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/VNDB/DB/Tags.pm b/lib/VNDB/DB/Tags.pm
index 9b9a94ae..7327daf2 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 dbTagEdit dbTagAdd|;
+our @EXPORT = qw|dbTagGet dbTagEdit dbTagAdd dbTagDel|;
# %options->{ id name page results order what }
@@ -77,5 +77,13 @@ sub dbTagAdd {
}
+sub dbTagDel {
+ my($self, $id) = @_;
+ $self->dbExec('DELETE FROM tags_parents WHERE tag = ? OR parent = ?', $id, $id);
+ $self->dbExec('DELETE FROM tags_vn WHERE tag = ?', $id);
+ $self->dbExec('DELETE FROM tags WHERE id = ?', $id);
+}
+
+
1;