[LON-CAPA-cvs] cvs: loncom /interface lonsupportreq.pm

Thu, 09 Sep 2004 05:58:42 -0000

albertel		Thu Sep  9 01:58:42 2004 EDT

  Modified files:              
    /loncom/interface	lonsupportreq.pm 
  Log:
  - don't overwrite $to's value until after we have generated the error message that uses $to's value
  
  
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.7 loncom/interface/lonsupportreq.pm:1.8

--- loncom/interface/lonsupportreq.pm:1.7	Mon Jul 19 16:01:56 2004
+++ loncom/interface/lonsupportreq.pm	Thu Sep  9 01:58:42 2004
@@ -545,7 +545,6 @@
  <h3>A support request has been sent to $to</h3>
 END
     } else { 
-        $to = 'helpdesk@lon-capa.org';
         $r->print(<<END);
 <html>
 <head>
@@ -555,6 +554,7 @@
  <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. 
 END
+        $to = 'helpdesk@lon-capa.org';
     }
     if (defined($ENV{'form.email'})) {
         if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) {



