diff options
author | Yorhel <git@yorhel.nl> | 2009-03-15 09:18:01 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-03-15 09:18:01 +0100 |
commit | 7f44eb32fd097cd918a448860a546b07c07126fa (patch) | |
tree | c701508c93705bd6d1c7ab76400fa9ccdfd177b4 /lib/VNDB/DB/Tags.pm | |
parent | c748ecd8b5a8b6f4f8898adc9fcfff8d01cf443a (diff) |
Removed tag deletion feature
There's no need for that anymore with the merge and state options
Diffstat (limited to 'lib/VNDB/DB/Tags.pm')
-rw-r--r-- | lib/VNDB/DB/Tags.pm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lib/VNDB/DB/Tags.pm b/lib/VNDB/DB/Tags.pm index 1368fe10..88de3b41 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 dbTagTree dbTagEdit dbTagAdd dbTagDel dbTagMerge dbTagLinks dbTagLinkEdit dbTagStats dbTagVNs|; +our @EXPORT = qw|dbTagGet dbTagTree dbTagEdit dbTagAdd dbTagMerge dbTagLinks dbTagLinkEdit dbTagStats dbTagVNs|; # %options->{ id noid name search state page results order what } @@ -104,14 +104,6 @@ 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); -} - - sub dbTagMerge { my($self, $id, @merge) = @_; $self->dbExec('UPDATE tags_vn SET tag = ? WHERE tag IN(!l)', $id, \@merge); |