summaryrefslogtreecommitdiff
path: root/lib/VNWeb/Staff/Edit.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-03-09 09:25:48 +0100
committerYorhel <git@yorhel.nl>2020-03-09 09:26:11 +0100
commit5e61abb08ac44f7fad4a9e992821053cdcf57b39 (patch)
tree18f8030b754564775a158f3570f5f513f4023d73 /lib/VNWeb/Staff/Edit.pm
parent220dfdad9046631bb94f839ea3949daef1c6229e (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.pm12
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
+ };
};
};