diff options
Diffstat (limited to 'lib/VNDB/DB/VN.pm')
-rw-r--r-- | lib/VNDB/DB/VN.pm | 23 |
1 files changed, 3 insertions, 20 deletions
diff --git a/lib/VNDB/DB/VN.pm b/lib/VNDB/DB/VN.pm index 254e24e1..23961987 100644 --- a/lib/VNDB/DB/VN.pm +++ b/lib/VNDB/DB/VN.pm @@ -10,7 +10,7 @@ our @EXPORT = qw|dbVNGet dbVNAdd dbVNEdit dbVNImageId dbVNCache dbScreenshotAdd # Options: id, rev, char, search, lang, platform, tags_include, tags_exclude, results, page, order, what -# What: extended categories anime relations screenshots relgraph ranking changes +# What: extended anime relations screenshots relgraph ranking changes sub dbVNGet { my($self, %o) = @_; $o{results} ||= 10; @@ -101,24 +101,14 @@ sub dbVNGet { join(', ', @select), join(' ', @join), \%where, $o{order}, ); - if(@$r && $o{what} =~ /(categories|anime|relations|screenshots)/) { + if(@$r && $o{what} =~ /(anime|relations|screenshots)/) { my %r = map { - $r->[$_]{categories} = []; $r->[$_]{anime} = []; $r->[$_]{relations} = []; $r->[$_]{screenshots} = []; ($r->[$_]{cid}, $_) } 0..$#$r; - if($o{what} =~ /categories/) { - push(@{$r->[$r{$_->{vid}}]{categories}}, [ $_->{cat}, $_->{lvl} ]) for (@{$self->dbAll(q| - SELECT vid, cat, lvl - FROM vn_categories - WHERE vid IN(!l)|, - [ keys %r ] - )}); - } - if($o{what} =~ /anime/) { push(@{$r->[$r{$_->{vid}}]{anime}}, $_) && delete $_->{vid} for (@{$self->dbAll(q| SELECT va.vid, a.* @@ -182,8 +172,7 @@ sub dbVNAdd { # helper function, inserts a producer revision -# Arguments: global revision, item id, { columns in producers_rev + categories + anime + relations + screenshots } -# categories = [ [ catid, level ], .. ] +# Arguments: global revision, item id, { columns in producers_rev + anime + relations + screenshots } # screenshots = [ [ scrid, nsfw, rid ], .. ] # relations = [ [ rel, vid ], .. ] # anime = [ aid, .. ] @@ -197,12 +186,6 @@ sub insert_rev { [ $cid, $vid, @$o{qw|title original desc alias image img_nsfw length l_wp l_encubed l_renai l_vnn|} ]); $self->dbExec(q| - INSERT INTO vn_categories (vid, cat, lvl) - VALUES (?, ?, ?)|, - $cid, $_->[0], $_->[1] - ) for (@{$o->{categories}}); - - $self->dbExec(q| INSERT INTO vn_screenshots (vid, scr, nsfw, rid) VALUES (?, ?, ?, ?)|, $cid, $_->[0], $_->[1]?1:0, $_->[2] |