1005 |
$q->hidden(-name=>'return_url'), |
$q->hidden(-name=>'return_url'), |
1006 |
"<hr>\n", |
"<hr>\n", |
1007 |
"<table>"; |
"<table>"; |
1008 |
my $def_email = $global_prefs{'email_addr'} || ''; |
my $def_email = $global_prefs{'email'} || ''; |
1009 |
print "<tr>\n<td width=\"20%\"><b>Reporter's email:</b></td>\n<td>", |
print "<tr>\n<td width=\"20%\"><b>Reporter's email:</b></td>\n<td>", |
1010 |
$q->textfield(-name=>'email', |
$q->textfield(-name=>'email', |
1011 |
-default=>$def_email, |
-default=>$def_email, |
1104 |
} |
} |
1105 |
# From rkimball@vgi.com, allows @ only if it's followed by what looks |
# From rkimball@vgi.com, allows @ only if it's followed by what looks |
1106 |
# more or less like a domain name. |
# more or less like a domain name. |
1107 |
my $email_addr = '[^@\s]+(@\S+\.\S+)?'; |
my $email = '[^@\s]+(@\S+\.\S+)?'; |
1108 |
if (!$blank && $fieldval !~ /^\s*($email_addr\s*)+$/) |
if (!$blank && $fieldval !~ /^\s*($email\s*)+$/) |
1109 |
{ |
{ |
1110 |
return "'$fieldval' doesn't look like a valid email address (xxx\@xxx.xxx)"; |
return "'$fieldval' doesn't look like a valid email address (xxx\@xxx.xxx)"; |
1111 |
} |
} |
3988 |
} |
} |
3989 |
%global_prefs = (); |
%global_prefs = (); |
3990 |
set_pref('database', \%global_prefs, \%cvals); |
set_pref('database', \%global_prefs, \%cvals); |
3991 |
set_pref('email_addr', \%global_prefs, \%cvals); |
set_pref('email', \%global_prefs, \%cvals); |
3992 |
set_pref($ORIGINATOR_FIELD, \%global_prefs, \%cvals); |
set_pref($ORIGINATOR_FIELD, \%global_prefs, \%cvals); |
3993 |
set_pref($SUBMITTER_ID_FIELD, \%global_prefs, \%cvals); |
set_pref($SUBMITTER_ID_FIELD, \%global_prefs, \%cvals); |
3994 |
|
|
4002 |
$global_prefs{'columns'} = $cvals{'columns'}; |
$global_prefs{'columns'} = $cvals{'columns'}; |
4003 |
} |
} |
4004 |
|
|
4005 |
if (!$cvals{'email_addr'}) { |
if (!$cvals{'email'}) { |
4006 |
$global_prefs{'email_addr'} = $q->param('email') || ''; |
$global_prefs{'email'} = $q->param('email') || ''; |
4007 |
} |
} |
4008 |
|
|
4009 |
# DB prefs. |
# DB prefs. |