diff options
author | Yorhel <git@yorhel.nl> | 2020-02-29 09:17:26 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-02-29 09:17:31 +0100 |
commit | 7ccde96e897826ce0b6a6b88bd2a5af8ca17b11f (patch) | |
tree | aab1f5f33988d802bbedea4f8b262632dc9e6a66 /lib/VNWeb | |
parent | 255dc704f4675326ebf6358c79b5b37fca903e4b (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.pm | 21 |
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}, |