--- loncom/interface/lonsupportreq.pm 2004/07/13 17:35:58 1.5
+++ loncom/interface/lonsupportreq.pm 2004/09/22 19:13:41 1.5.2.1
@@ -535,16 +535,27 @@ $bodytag
A support request has been sent to $to
END
} else {
- $to = 'helpdesk@lon-capa.org';
- $r->print(<print(<
+
+ LON-CAPA support request recorded
+
+$bodytag
+ A support request has been sent to $to
+END
+ } else {
+ $r->print(<
LON-CAPA support request recorded
$bodytag
Warning: Problem with support e-mail address
-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 not 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 not 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
+ $to = 'helpdesk@lon-capa.org';
}
if (defined($ENV{'form.email'})) {
if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) {