diff options
author | Yorhel <git@yorhel.nl> | 2020-05-26 15:15:23 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-05-26 15:15:23 +0200 |
commit | 2cc33f22282fd2a267ed57e7282bc829f57cb04a (patch) | |
tree | 5400044a4ee6ff18ce4cb830f78970255e1890fd /lib | |
parent | 252090b7be10dd1e34f184f1fe7b843c7625c125 (diff) |
Add link to old character edit form + indentation
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNWeb/HTML.pm | 121 |
1 files changed, 63 insertions, 58 deletions
diff --git a/lib/VNWeb/HTML.pm b/lib/VNWeb/HTML.pm index 81e649d8..09e598ad 100644 --- a/lib/VNWeb/HTML.pm +++ b/lib/VNWeb/HTML.pm @@ -763,64 +763,69 @@ sub itemmsg_ { # friendly message pointing to the guidelines and stuff. # Args: $type ('v','r', etc), $obj (from db_entry(), or undef for new page), $page_title, $is_this_a_copy? sub editmsg_ { - my($type, $obj, $title, $copy) = @_; - my $typename = {v => 'visual novel', r => 'release', p => 'producer', c => 'character', s => 'person'}->{$type}; - my $guidelines = {v => 2, r => 3, p => 4, c => 12, s => 16 }->{$type}; - croak "Unknown type: $type" if !$typename; - - div_ class => 'mainbox', sub { - h1_ sub { - txt_ $title; - debug_ $obj if $obj; - }; - if($copy) { - div_ class => 'warning', sub { - h2_ "You're not editing an entry!"; - p_ sub {; - txt_ "You're about to insert a new entry into the database with information based on "; - a_ href => "/$type$obj->{id}", "$type$obj->{id}"; - txt_ '.'; - br_; - txt_ "Hit the 'edit' tab on the right-top if you intended to edit the entry instead of creating a new one."; - } - } - } - # 'lastrev' is for compatibility with VNDB::* - if($obj && ($obj->{maxrev} ? $obj->{maxrev} != $obj->{chrev} : !$obj->{lastrev})) { - div_ class => 'warning', sub { - h2_ 'Reverting'; - p_ "You are editing an old revision of this $typename. If you save it, all changes made after this revision will be reverted!"; - } - } - div_ class => 'notice', sub { - h2_ 'Before editing:'; - ul_ sub { - li_ sub { - txt_ 'Read the '; - a_ href=> "/d$guidelines", 'guidelines'; - txt_ '!'; - }; - if($obj) { - li_ sub { - txt_ 'Check for any existing discussions on the '; - a_ href => '/t/'._board_id($type, $obj), 'discussion board'; - }; - # TODO: Include a list of the most recent edits in this page. - li_ sub { - txt_ 'Browse the '; - a_ href => "/$type$obj->{id}/hist", 'edit history'; - txt_ ' for any recent changes related to what you want to change.'; - }; - } elsif($type ne 'r') { - li_ sub { - a_ href => "/$type/all", 'Search the database'; - txt_ " to see if we already have information about this $typename."; - } - } - li_ 'Fields marked with (*) may cause other fields to become (un)available depending on the selection.' if $type eq 'r'; - } - } - } + my($type, $obj, $title, $copy) = @_; + my $typename = {v => 'visual novel', r => 'release', p => 'producer', c => 'character', s => 'person'}->{$type}; + my $guidelines = {v => 2, r => 3, p => 4, c => 12, s => 16 }->{$type}; + croak "Unknown type: $type" if !$typename; + + div_ class => 'mainbox', sub { + h1_ sub { + txt_ $title; + debug_ $obj if $obj; + }; + if($copy) { + div_ class => 'warning', sub { + h2_ "You're not editing an entry!"; + p_ sub {; + txt_ "You're about to insert a new entry into the database with information based on "; + a_ href => "/$type$obj->{id}", "$type$obj->{id}"; + txt_ '.'; + br_; + txt_ "Hit the 'edit' tab on the right-top if you intended to edit the entry instead of creating a new one."; + } + } + } + # 'lastrev' is for compatibility with VNDB::* + if($obj && ($obj->{maxrev} ? $obj->{maxrev} != $obj->{chrev} : !$obj->{lastrev})) { + div_ class => 'warning', sub { + h2_ 'Reverting'; + p_ "You are editing an old revision of this $typename. If you save it, all changes made after this revision will be reverted!"; + } + } + div_ class => 'notice', sub { + h2_ 'Before editing:'; + ul_ sub { + li_ sub { + txt_ 'Read the '; + a_ href=> "/d$guidelines", 'guidelines'; + txt_ '!'; + }; + if($obj) { + li_ sub { + txt_ 'Check for any existing discussions on the '; + a_ href => '/t/'._board_id($type, $obj), 'discussion board'; + }; + # TODO: Include a list of the most recent edits in this page. + li_ sub { + txt_ 'Browse the '; + a_ href => "/$type$obj->{id}/hist", 'edit history'; + txt_ ' for any recent changes related to what you want to change.'; + }; + } elsif($type ne 'r') { + li_ sub { + a_ href => "/$type/all", 'Search the database'; + txt_ " to see if we already have information about this $typename."; + } + } + li_ 'Fields marked with (*) may cause other fields to become (un)available depending on the selection.' if $type eq 'r'; + } + }; + p_ class => 'center', sub { + txt_ "If you're having trouble using this new form, the "; + a_ href => '/old'.($obj ? "/c$obj->{id}/".tuwf->capture('action') : '/c/new?vid='.tuwf->capture('id')), 'old form'; + txt_ ' is still available.'; + } if $type eq 'c' && tuwf->reqPath() !~ m{^/old/}; + } } 1; |