loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

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/^[^\@]+\@[^\@]+$/) {