diff options
author | Yorhel <git@yorhel.nl> | 2021-03-23 16:35:02 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2021-03-23 16:35:04 +0100 |
commit | 72ae93702f23083d54cb2e1922cbee1caebe7252 (patch) | |
tree | cdbb80132cdb6749da061d55b936537fe08c4d24 /lib/VNWeb/TT/TagPage.pm | |
parent | 5914360c90ee0a8bf6adc365ba8e80abcae0cf89 (diff) |
HTML: Use hiddenmsg for tags/traits and to display awaiting moderation state
This also fixes the issue that the reason for deletion is not displayed
if it's in the message of the last change, which is the case for newly
rejected tags/traits. The edit message is not displayed if the entry was
deleted in the first revision, as that's most likely an import.
Diffstat (limited to 'lib/VNWeb/TT/TagPage.pm')
-rw-r--r-- | lib/VNWeb/TT/TagPage.pm | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/lib/VNWeb/TT/TagPage.pm b/lib/VNWeb/TT/TagPage.pm index 42c1546a..819a6bd1 100644 --- a/lib/VNWeb/TT/TagPage.pm +++ b/lib/VNWeb/TT/TagPage.pm @@ -34,22 +34,6 @@ sub infobox_ { h1_ "Tag: $t->{name}"; debug_ $t; - div_ class => 'warning', sub { - h2_ 'Tag deleted'; - p_ sub { - txt_ 'This tag has been removed from the database, and cannot be used or re-added.'; - br_; - txt_ 'File a request on the '; - a_ href => '/t/db', 'discussion board'; - txt_ ' if you disagree with this.'; - } - } if $t->{hidden} && $t->{locked}; - - div_ class => 'notice', sub { - h2_ 'Waiting for approval'; - p_ 'This tag is waiting for a moderator to approve it. You can still use it to tag VNs as you would with a normal tag.'; - } if $t->{hidden} && !$t->{locked}; - parents_ g => $t; div_ class => 'description', sub { @@ -159,7 +143,7 @@ TUWF::get qr{/$RE{grev}}, sub { my $t = db_entry tuwf->captures('id', 'rev'); return tuwf->resNotFound if !$t->{id}; - framework_ index => !tuwf->capture('rev'), title => "Tag: $t->{name}", dbobj => $t, sub { + framework_ index => !tuwf->capture('rev'), title => "Tag: $t->{name}", dbobj => $t, hiddenmsg => 1, sub { rev_ $t if tuwf->capture('rev'); div_ class => 'mainbox', sub { infobox_ $t; }; tree_ g => $t->{id}; |