--- loncom/interface/lonsupportreq.pm	2022/01/01 19:53:45	1.103
+++ loncom/interface/lonsupportreq.pm	2024/07/15 17:12:40	1.106
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Helpdesk request form
 #
-# $Id: lonsupportreq.pm,v 1.103 2022/01/01 19:53:45 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.106 2024/07/15 17:12:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -391,7 +391,11 @@ ENDJS
     $i = $num%2;
     if ($knownuser) {
         if ($homeserver) {
-            unless ($helpform{'cc'} eq 'no') {
+            my $ip = &Apache::lonnet::get_requestor_ip($r);
+            my %setters;
+            my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) =
+                &Apache::loncommon::blockcheck(\%setters,'com',$ip);
+            unless (($helpform{'cc'} eq 'no') || ($by_ip)) {
                 $output .= &Apache::lonhtmlcommon::row_title($html_lt{'emac'},undef,$css[$i]).
                            '<input type="text" size="50" name="cc" value="" /><br />'."\n".
                            &Apache::lonhtmlcommon::row_closure();
@@ -462,7 +466,7 @@ ENDJS
             my $numtitles = @codetitles;
             if ($numtitles == 0) {
                 $output .= $html_lt{'enin'}.':&nbsp;
-                  <input type="text" name="coursecode" size="15" value="" />'."\n";
+                  <input type="text" name="coursecode" size="15" value="'.&HTML::Entities::encode($ccode,'\'"&<>').'" />'."\n";
             } else {
                 my @standardnames = &Apache::loncommon::get_standard_codeitems();
                 my $lasttitle = $numtitles;
@@ -663,7 +667,10 @@ sub print_request_receipt {
             return;
         }
     }
-    my $ip = &Apache::lonnet::get_requestor_ip();
+    my $ip = &Apache::lonnet::get_requestor_ip($r);
+    my %setters;
+    my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) =
+        &Apache::loncommon::blockcheck(\%setters,'com',$ip);
     my @ENVvars = ('HTTP_HOST','HTTP_USER_AGENT','SERVER_ADDR','SERVER_NAME');
     my @envvars = ('browser.os','browser.type','browser.version','user.home','request.role');
     my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id');
@@ -709,7 +716,7 @@ sub print_request_receipt {
     unless (($helpform{'course'} eq 'no') || ($env{'request.lti.login'})) {
         $formvars{'course'} = 1;
     }
-    unless ($helpform{'cc'} eq 'no') {
+    unless (($helpform{'cc'} eq 'no') || ($by_ip)) {
         $formvars{'cc'} = 1;
     }
     unless ($helpform{'screenshot'} eq 'no') {
@@ -755,6 +762,8 @@ sub print_request_receipt {
                  secn        => 'Section',
                  warn        => 'Warning: Problem with support e-mail address',
                  your        => 'Your support request contained the following information',
+                 belo        => 'Below is your support request which could not be sent',
+                 ifyk        => 'If you know an IT support address for your institution, you could copy this information and send it to that email address.',
                  sect        => 'section',
                  info        => 'Information supplied',
                  adin        => 'Additional information recorded',
@@ -983,16 +992,16 @@ END
 
     my $message;
     if (!$bad_email) {
-        $message = &Apache::lonhtmlcommon::confirm_success(
-            &mt('A support request has been sent to [_1]','<tt>'.$to.'</tt>'));
+        $message = &mt('A support request has been sent to [_1]','<tt>'.$to.'</tt>');
     } else {
-        $message = &Apache::lonhtmlcommon::confirm_success(
-            $lt{'warn'}.'<br />'
-           .&mt('As the e-mail address provided for this LON-CAPA server ([_1]) does not appear to be a valid e-mail address, your support request has [_2]not[_3] been sent to the LON-CAPA support staff or administrator at your institution.','<tt>'.$to.'</tt>','<b>','</b>')
-           .' '.&mt('Instead a copy has been sent to the LON-CAPA support team at Michigan State University.'),1); 
-        $to = 'helpdesk@lon-capa.org';
+        $message = $lt{'warn'}.'<br />';
+        if ($to eq '') {
+            $message .= &mt('For this LON-CAPA server no e-mail address has been configured to receive support requests, so your support request has [_1]not[_2] been sent to the LON-CAPA support staff or administrator at your institution.','<b>','</b>');
+        } else {
+            $message .= &mt('As the e-mail address provided for this LON-CAPA server ([_1]) does not appear to be a valid e-mail address, your support request has [_2]not[_3] been sent to the LON-CAPA support staff or administrator at your institution.','<tt>'.$to.'</tt>','<b>','</b>');
+        }
     }
-    $r->print(&Apache::loncommon::confirmwrapper($message));
+    $r->print(&Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($message,$bad_email)));
 
     if ($reqemail ne '') {
         $from = $reqemail;
@@ -1119,14 +1128,18 @@ END
         }
     }
 
-    # Compose and send a MIME email
-    &Apache::loncommon::mime_email($from,'',$to,$subject,$supportmsg,$cc_string,
-                                   $bcc,$attachmentpath,$fname,$attachment_text);
-
+    if ($bad_email) {
+        $r->print('<b>'.$lt{'belo'}.'</b><br />'.
+                  $lt{'ifyk'}.'<br /><br />'."\n");
+    } else {
+        # Compose and send a MIME email
+        &Apache::loncommon::mime_email($from,'',$to,$subject,$supportmsg,$cc_string,
+                                       $bcc,$attachmentpath,$fname,$attachment_text);
+        $r->print('<b>'.$lt{'your'}.'</b>:<br /><br />'."\n");
+    }
     if ($attachmentpath =~ m|$Apache::lonnet::perlvar{'lonDaemons'}/tmp/helprequests/(\d+)/[^/]+|) {
         unlink($attachmentpath);
     }
-    $r->print('<b>'.$lt{'your'}.'</b>:<br /><br />'."\n");
     $r->print('<div style="width:620px;">'.
               &Apache::lonhtmlcommon::start_pick_box().
               &Apache::lonhtmlcommon::row_title($lt{'info'},undef,'LC_oddrow_value')."\n".$displaymsg."\n".