summaryrefslogtreecommitdiff
path: root/lib/VNDB/Handler/Producers.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2008-11-22 10:04:35 +0100
committerYorhel <git@yorhel.nl>2008-11-22 10:04:35 +0100
commit91c9b4428260c9a4b22de78d41d946a95503c50f (patch)
treee7e5b8c24172b67042b41d2e89fc7cf0231a5a01 /lib/VNDB/Handler/Producers.pm
parentaac83c8b840f62d3febf2212b86bf7cf40eb3fa1 (diff)
Created htmlEditMessage() and started on /v+/edit
It'll take a while before the VN edit form is finished... it's one of the most complex things of VNDB.
Diffstat (limited to 'lib/VNDB/Handler/Producers.pm')
-rw-r--r--lib/VNDB/Handler/Producers.pm22
1 files changed, 1 insertions, 21 deletions
diff --git a/lib/VNDB/Handler/Producers.pm b/lib/VNDB/Handler/Producers.pm
index 27f3a852..5669d7b4 100644
--- a/lib/VNDB/Handler/Producers.pm
+++ b/lib/VNDB/Handler/Producers.pm
@@ -129,27 +129,7 @@ sub edit {
$self->htmlHeader(title => $pid ? 'Edit '.$p->{name} : 'Add new producer');
$self->htmlMainTabs('p', $p, 'edit') if $pid;
- div class => 'mainbox';
- h1 $pid ? 'Edit '.$p->{name} : 'Add new producer';
- div class => 'notice';
- h2 'Before editing:';
- ul;
- li; lit 'Read the <a href="/d4">guidelines</a>!'; end;
- if($pid) {
- li; lit qq|Check for any existing discussions on the <a href="/t/p$pid">discussion board</a>|; end;
- li; lit qq|Browse the <a href="/p$pid/hist">edit history</a> for any recent changes related to what you want to change.|; end;
- } else {
- li; lit qq|<a href="/p/all">Search the database</a> to see if we already have information about this producer|; end;
- }
- end;
- end;
- if($rev) {
- div class => 'warning';
- h2 'Reverting';
- p 'You are editing an old revision of this producer. If you save it, all changes made after this revision will be reverted!';
- end;
- }
- end;
+ $self->htmlEditMessage('p', $p);
$self->htmlForm({ frm => $frm, action => $pid ? "/p$pid/edit" : '/p/new', editsum => 1 }, "General info" => [
[ select => name => 'Type', short => 'type',
options => [ map [ $_, $self->{producer_types}{$_} ], sort keys %{$self->{producer_types}} ] ],