diff options
author | Yorhel <git@yorhel.nl> | 2021-03-07 18:14:46 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2021-03-11 11:07:34 +0100 |
commit | 24fa3ee0bd54f8342345fb785ea87bac59df45d8 (patch) | |
tree | 33ab463c32a71ec203fcda5d9fc37bd048a05e20 /lib/VNWeb/Misc/History.pm | |
parent | f0bbc8b2e4f93b5aed098f97f9965f2aa0c215ae (diff) |
Tags: Convert to vndbids + add edit histories
Another commit with changes all across the tree. But at least we have a
tangible improvement now: edit histories for tags.
Diffstat (limited to 'lib/VNWeb/Misc/History.pm')
-rw-r--r-- | lib/VNWeb/Misc/History.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/VNWeb/Misc/History.pm b/lib/VNWeb/Misc/History.pm index f8e15f27..35d9d6f0 100644 --- a/lib/VNWeb/Misc/History.pm +++ b/lib/VNWeb/Misc/History.pm @@ -41,6 +41,7 @@ sub fetch { UNION ALL SELECT chid, name, original FROM chars_hist UNION ALL SELECT chid, title, '' AS original FROM docs_hist UNION ALL SELECT sh.chid, name, original FROM staff_hist sh JOIN staff_alias_hist sah ON sah.chid = sh.chid AND sah.aid = sh.aid + UNION ALL SELECT chid, name, '' AS original FROM tags_hist ) t(id, title, original) WHERE id IN}), $lst; ($lst, $np) @@ -90,11 +91,12 @@ sub filters_ { my @types = ( [ v => 'Visual novels' ], + [ g => 'Tags' ], [ r => 'Releases' ], [ p => 'Producers' ], [ s => 'Staff' ], [ c => 'Characters' ], - [ d => 'Docs' ] + [ d => 'Docs' ], ); state $schema = tuwf->compile({ type => 'hash', keys => { @@ -163,7 +165,7 @@ sub filters_ { } -TUWF::get qr{/(?:([upvrcsd][1-9][0-9]{0,6})/)?hist} => sub { +TUWF::get qr{/(?:([upvrcsdg][1-9][0-9]{0,6})/)?hist} => sub { my $id = tuwf->capture(1)||''; my $obj = dbobj $id; |