summaryrefslogtreecommitdiff
path: root/lib/VNWeb
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-02-29 09:17:26 +0100
committerYorhel <git@yorhel.nl>2020-02-29 09:17:31 +0100
commit7ccde96e897826ce0b6a6b88bd2a5af8ca17b11f (patch)
treeaab1f5f33988d802bbedea4f8b262632dc9e6a66 /lib/VNWeb
parent255dc704f4675326ebf6358c79b5b37fca903e4b (diff)
v2rw/RelEdit: List previously deleted releases when adding a new release
Totally forgot we had that feature, but it's pretty neat.
Diffstat (limited to 'lib/VNWeb')
-rw-r--r--lib/VNWeb/Releases/Edit.pm21
1 files changed, 20 insertions, 1 deletions
diff --git a/lib/VNWeb/Releases/Edit.pm b/lib/VNWeb/Releases/Edit.pm
index f569e7b0..25b304c1 100644
--- a/lib/VNWeb/Releases/Edit.pm
+++ b/lib/VNWeb/Releases/Edit.pm
@@ -94,10 +94,29 @@ TUWF::get qr{/$RE{vid}/add}, sub {
my $v = tuwf->dbRowi('SELECT id, title, original FROM vn WHERE id =', \tuwf->capture('id'));
return tuwf->resNotFound if !$v->{id};
- # TODO: List deleted releases
+ my $delrel = tuwf->dbAlli('SELECT r.id, r.title, r.original FROM releases r JOIN releases_vn rv ON rv.id = r.id WHERE r.hidden AND rv.vid =', \$v->{id}, 'ORDER BY id');
+ enrich_flatten languages => id => id => 'SELECT id, lang FROM releases_lang WHERE id IN', $delrel;
+
framework_ title => "Add release to $v->{title}",
sub {
editmsg_ r => undef, "Add release to $v->{title}";
+
+ div_ class => 'mainbox', sub {
+ h1_ 'Deleted releases';
+ div_ class => 'warning', sub {
+ p_ q{This visual novel has releases that have been deleted
+ before. Please review this list to make sure you're not
+ adding a release that has already been deleted.};
+ br_;
+ ul_ sub {
+ li_ sub {
+ txt_ '['.join(',', $_->{languages}->@*)."] r$_->{id}:";
+ a_ href => "/r$_->{id}", title => $_->{original}||$_->{title}, $_->{title};
+ } for @$delrel;
+ }
+ }
+ } if @$delrel;
+
elm_ 'ReleaseEdit.New' => $FORM_NEW, {
title => $v->{title},
original => $v->{original},