diff options
author | Yorhel <git@yorhel.nl> | 2020-03-09 09:25:48 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-03-09 09:26:11 +0100 |
commit | 5e61abb08ac44f7fad4a9e992821053cdcf57b39 (patch) | |
tree | 18f8030b754564775a158f3570f5f513f4023d73 /lib/VNWeb/Staff/Edit.pm | |
parent | 220dfdad9046631bb94f839ea3949daef1c6229e (diff) |
refactor: Convert Staff edit form to the same initialization approach
As in 220dfdad9046631bb94f839ea3949daef1c6229e
Diffstat (limited to 'lib/VNWeb/Staff/Edit.pm')
-rw-r--r-- | lib/VNWeb/Staff/Edit.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/VNWeb/Staff/Edit.pm b/lib/VNWeb/Staff/Edit.pm index 227da7f2..4503c108 100644 --- a/lib/VNWeb/Staff/Edit.pm +++ b/lib/VNWeb/Staff/Edit.pm @@ -13,8 +13,8 @@ my $FORM = { inuse => { anybool => 1, _when => 'out' }, } }, desc => { required => 0, default => '', maxlength => 5000 }, - gender => { required => 0, default => 'unknown', enum => [qw[unknown m f]] }, - lang => { language => 1 }, + gender => { default => 'unknown', enum => [qw[unknown m f]] }, + lang => { default => 'ja', language => 1 }, l_site => { required => 0, default => '', weburl => 1 }, l_wikidata => { required => 0, id => 1 }, l_twitter => { required => 0, default => '', regex => qr/^\S+$/, maxlength => 16 }, @@ -48,7 +48,7 @@ TUWF::get qr{/$RE{srev}/edit} => sub { framework_ title => "Edit $name", type => 's', dbobj => $e, tab => 'edit', sub { editmsg_ s => $e, "Edit $name"; - elm_ 'StaffEdit.Main' => $FORM_OUT, $e; + elm_ StaffEdit => $FORM_OUT, $e; }; }; @@ -58,7 +58,11 @@ TUWF::get qr{/s/new}, sub { framework_ title => 'Add staff member', sub { editmsg_ s => undef, 'Add staff member'; - elm_ 'StaffEdit.New'; + elm_ StaffEdit => $FORM_OUT, { + elm_empty($FORM_OUT)->%*, + alias => [ { aid => -1, name => '', original => '', inuse => 0 } ], + aid => -1 + }; }; }; |