version 1.7, 2004/07/19 20:01:56
|
version 1.8, 2004/09/09 05:58:42
|
Line 545 $bodytag
|
Line 545 $bodytag
|
<h3>A support request has been sent to $to</h3> |
<h3>A support request has been sent to $to</h3> |
END |
END |
} else { |
} else { |
$to = 'helpdesk@lon-capa.org'; |
|
$r->print(<<END); |
$r->print(<<END); |
<html> |
<html> |
<head> |
<head> |
Line 555 $bodytag
|
Line 554 $bodytag
|
<h3>Warning: Problem with support e-mail address</h3> |
<h3>Warning: Problem with support e-mail address</h3> |
As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has <b>not</b> been sent to the LON-CAPA support staff at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University. |
As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has <b>not</b> been sent to the LON-CAPA support staff at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University. |
END |
END |
|
$to = 'helpdesk@lon-capa.org'; |
} |
} |
if (defined($ENV{'form.email'})) { |
if (defined($ENV{'form.email'})) { |
if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) { |
if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) { |