diff options
author | Yorhel <git@yorhel.nl> | 2008-11-13 18:19:41 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-11-13 18:19:41 +0100 |
commit | 216d48f964896b6e9a29424f0d5c2c95a2e7f559 (patch) | |
tree | d7bba64e23d122885454c04e7fe03071abb5fd40 /lib/VNDB/Util/FormHTML.pm | |
parent | b228de9cd174756aefdf90db1d04a0643f7d7d8b (diff) |
Automatically fill out the producer edit form, added form validation
Diffstat (limited to 'lib/VNDB/Util/FormHTML.pm')
-rw-r--r-- | lib/VNDB/Util/FormHTML.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/VNDB/Util/FormHTML.pm b/lib/VNDB/Util/FormHTML.pm index 54b916d9..c89a2338 100644 --- a/lib/VNDB/Util/FormHTML.pm +++ b/lib/VNDB/Util/FormHTML.pm @@ -15,6 +15,12 @@ my %formerr_names = ( usrpass => 'Password', usrpass2 => 'Password (confirm)', mail => 'Email', + type => 'Type', + name => 'Name', + original => 'Original', + lang => 'Language', + desc => 'Description', + editsum => 'Edit summary', ); my %formerr_exeptions = ( login_failed => 'Invalid username or password', @@ -134,7 +140,7 @@ sub htmlFormPart { } if(/select/) { Select name => $o{short}, id => $o{short}; - option value => $_->[0], $frm->{$o{short}}||'' eq $_->[0] ? (selected => 'selected') : (), $_->[1] + option value => $_->[0], ($frm->{$o{short}}||'') eq $_->[0] ? (selected => 'selected') : (), $_->[1] for @{$o{options}}; end; } |