diff options
author | Yorhel <git@yorhel.nl> | 2016-11-03 18:33:15 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2016-11-03 18:33:15 +0100 |
commit | a9df5c8d7e22874d37938b27913f239ce31f9414 (patch) | |
tree | cc2fea20d37c4466b27e90564f5002dcdbd16207 /lib/VNDB/Handler | |
parent | 1e4cdeaca180bdfee0c552c57fccff8570856efd (diff) |
List deleted releases when adding a new release
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r-- | lib/VNDB/Handler/Releases.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm index 62ba0c5a..31026efe 100644 --- a/lib/VNDB/Handler/Releases.pm +++ b/lib/VNDB/Handler/Releases.pm @@ -370,6 +370,7 @@ sub edit { $self->htmlMainTabs('r', $r, $copy ? 'copy' : 'edit') if $rid; $self->htmlMainTabs('v', $v, 'edit') if $vid; $self->htmlEditMessage('r', $r, $title, $copy); + _listrel($self, $vid) if $vid && $self->reqMethod ne 'POST'; _form($self, $r, $v, $frm, $copy); $self->htmlFooter; } @@ -467,6 +468,28 @@ sub _form { ); } +sub _listrel { + my($self, $vid) = @_; + my $l = $self->dbReleaseGet(vid => $vid, hidden_only => 1, results => 50); + return if !@$l; + div class => 'mainbox'; + h1 'Deleted releases'; + div class => 'warning'; + 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 before.}; + br; + ul; + for(@$l) { + li; + txt '['.join(',', @{$_->{languages}}).'] '; + a href => "/r$_->{id}", title => $_->{original}||$_->{title}, "$_->{title} (r$_->{id})"; + end; + } + end; + end; + end; +} sub browse { my $self = shift; |