diff options
author | yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b> | 2008-06-09 15:46:20 +0000 |
---|---|---|
committer | yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b> | 2008-06-09 15:46:20 +0000 |
commit | 9c45fc9e59c76e9976afafaaa09d154d2d24894b (patch) | |
tree | 61d37ca4fce0692f4f7ad95b2fadac775229c323 /data/tpl/defs.pl | |
parent | ed35983a0f7850ee8381a9f6f3e58783913e559b (diff) |
Added GTIN field to releases and fixed a very old bug with form validation (this fix may break existing forms, will need a lot of testing)
git-svn-id: svn://vndb.org/vndb@26 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b
Diffstat (limited to 'data/tpl/defs.pl')
-rw-r--r-- | data/tpl/defs.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/data/tpl/defs.pl b/data/tpl/defs.pl index 0845fab7..3982028e 100644 --- a/data/tpl/defs.pl +++ b/data/tpl/defs.pl @@ -269,6 +269,7 @@ sub gettitle{$p{$_}&&($p{PageTitle}=ref($pagetitles{$_}) eq 'CODE' ? &{$pagetitl # F O R M E R R O R H A N D L I N G # my %formerr_names = ( + # this list is rather incomplete... mail => 'Email', username => 'Username', userpass => 'Password', @@ -285,6 +286,7 @@ my %formerr_names = ( media => 'Media', name => 'Name', vn => 'Visual novel relations', + l_vnn => 'Visual-novels.net link', ); my @formerr_msgs = ( sub { return sprintf 'Field "%s" is required.', @_ }, @@ -295,7 +297,8 @@ my @formerr_msgs = ( $_[1] eq 'url' ? 'Invalid URL' : $_[1] eq 'pname' ? sprintf('%s can only contain alfanumeric characters!', $_[0]) : $_[1] eq 'asciiprint' ? sprintf('Only ASCII characters are allowed at %s', $_[0]) : - $_[1] eq 'int' ? sprintf('%s should be a number!', $_[0]) : ''; + $_[1] eq 'int' ? sprintf('%s should be a number!', $_[0]) : + $_[1] eq 'gtin' ? 'Not a valid JAN, UPC or EAN code!' : ''; }, sub { return sprintf '%s: invalid item selected', @_ }, sub { return 'Invalid unicode, are you sure your browser works fine?' }, @@ -316,7 +319,7 @@ sub formerr { my $ret = '<span class="warning"> Error:<ul>'; $ret .= sprintf " <li>%s</li>\n", - /^([a-z0-9]+)_([0-9]+)_?(.*)$/ ? &{$formerr_msgs[$2-1]}($formerr_names{$1}, $3?$3:'') : $formerr_exeptions{$_} + /^([a-z0-9_]+)_([0-9]+)_?(.*)$/ ? &{$formerr_msgs[$2-1]}($formerr_names{$1}||$1, $3||'') : $formerr_exeptions{$_} foreach (@err); $ret .= "</ul>\n</span>\n"; } |