loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsupportreq.pm between versions 1.7 and 1.9

version 1.7, 2004/07/19 20:01:56	version 1.9, 2004/09/13 13:31:52
Line 544 Date/Time: $reporttime	Line 544 Date/Time: $reporttime
$bodytag	$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';	$to = $admin;
$r->print(<<END);	if ($to =~ m/^[^\@]+\@[^\@]+$/) {
	$r->print(<<END);
	<html>
	<head>
	<title>LON-CAPA support request recorded</title>
	</head>
	$bodytag
	<h3>A support request has been sent to $to</h3>
	END
	} else {
	$r->print(<<END);
<html>	<html>
<head>	<head>
<title>LON-CAPA support request recorded</title>	<title>LON-CAPA support request recorded</title>
</head>	</head>
$bodytag	$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 or administrator 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/^[^\@]+\@[^\@]+$/) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.7
changed lines
	Added in v.1.9