diff options
author | Yorhel <git@yorhel.nl> | 2009-02-15 13:24:14 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-02-15 13:24:14 +0100 |
commit | 845a214bff824123301fa0bd882b91888903bf46 (patch) | |
tree | 3861a9cd6e449164709155c02549965f6633505e /lib/VNDB/DB/Tags.pm | |
parent | 45bd5743e387e5926cdeb6f0b0ba1d7395084dfe (diff) |
Tag deletion
Diffstat (limited to 'lib/VNDB/DB/Tags.pm')
-rw-r--r-- | lib/VNDB/DB/Tags.pm | 10 |
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; |