--- loncom/interface/lonfeedback.pm	2022/01/18 16:55:30	1.388
+++ loncom/interface/lonfeedback.pm	2022/01/18 17:33:13	1.389
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.388 2022/01/18 16:55:30 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.389 2022/01/18 17:33:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2793,7 +2793,7 @@ ENDFAILREDIR
 
 sub redirect_back {
   my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,
-      $rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge) = @_;
+      $rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge,$delay) = @_;
   my $sorttag = '';
   my $roletag = '';
   my $statustag = '';
@@ -2892,11 +2892,20 @@ sub redirect_back {
   &Apache::lonenc::check_encrypt(\$feedurl);
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
   my %parms=('only_body'   => 1);
+  if ($delay !~ /^\d+(|\.\d+)$/) {
+      $delay = 0;
+  }
   if ($env{'form.modal'}) {
       my $onload = 'document.forms.reldt.submit()';
+      if ($delay) {
+          my $js_delay = int(1000 * $delay);
+          $onload = "setTimeout(function(){
+                        document.forms.reldt.submit();
+                     },$js_delay);";
+      }
       $parms{'add_entries'}={'onload' => $onload};
   } else {
-      $parms{'redirect'}=[0,$feedurl];
+      $parms{'redirect'}=[$delay,$feedurl];
   }
   my $start_page=
       &Apache::loncommon::start_page('Feedback sent',undef,\%parms);
@@ -3161,9 +3170,17 @@ sub feedback_available {
 }
 
 sub send_msg {
-    my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,%to)=@_;
+    my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,$clientip,%to)=@_;
     my $status='';
     my $sendsomething=0;
+    my $delay; 
+    my $senthide;
+    my %setters;
+    my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) =
+        &Apache::loncommon::blockcheck(\%setters,'com',$clientip);
+    if ($by_ip) {
+        $senthide = 1;
+    }
     my $restitle = &get_resource_title($symb,$feedurl);
     if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; }
     unless ($title=~/\w/) { $title=&mt('Feedback'); }
@@ -3177,7 +3194,8 @@ sub send_msg {
 	    } else {
 		unless (&Apache::lonmsg::user_normal_msg($user,$domain,
 							 $title.' ['.$restitle.']',$email,$citations,$feedurl,
-							 $attachmenturl,undef,undef,$symb,$restitle)=~/ok/) {
+							 $attachmenturl,undef,undef,$symb,$restitle,undef,
+                                                         undef,undef,undef,$senthide)=~/ok/) {
 		    $status.='<br />'.&mt('Error sending message to').' '.$key.'<br />';
 		} else {
 		    $sendsomething++;
@@ -3185,6 +3203,24 @@ sub send_msg {
 	    }
 	}
     }
+    if ($sendsomething && $senthide) {
+        if ($by_ip) {
+            my $showdom = &Apache::lonnet::domain($blockdom);
+            if ($showdom eq '') {
+                $showdom = $blockdom;
+            }
+            $delay = 4;
+            $status.='<br />'.&mt("Message content of feedback you send to instructor(s) from your current IP address: [_1] will be unavailable in your 'Sent' folder.",$clientip).
+                     '<ul><li>'.
+                     &mt('This does not affect delivery of feedback to your instructor(s).').
+                     '</li><li>'.
+                     &mt('Note: some types of communication functionality are blocked for certain IP address(es).').
+                     '</li><li>'.
+                     &mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.',
+                         $showdom).
+                     '</li></ul><br />';
+        }
+    }
 
 # Records of number of feedback messages are kept under the "symb" called "_feedback"
 # There are two entries within the framework of a course:
@@ -3202,7 +3238,7 @@ sub send_msg {
 	    }
         }
     }
-    return ($status,$sendsomething);
+    return ($status,$sendsomething,$delay);
 }
 
 # Routine to get the complete feedback records
@@ -4766,9 +4802,10 @@ ENDREDIR
       my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl);
 
 # Actually send mail
-      my ($status,$numsent)=&send_msg(&clear_out_html($env{'form.subject'}),
-				      $feedurl,$email,$citations,
-				      $attachmenturl,$usersymb,%to);
+      my $clientip = &Apache::lonnet::get_requestor_ip($r);
+      my ($status,$numsent,$delay)=&send_msg(&clear_out_html($env{'form.subject'}),
+				             $feedurl,$email,$citations,
+				             $attachmenturl,$usersymb,$clientip,%to);
 
 # Discussion? Store that.
       my $numpost=0;
@@ -4804,7 +4841,7 @@ ENDREDIR
 	  
 # Receipt screen and redirect back to where came from
       &redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},
-                     undef,undef,undef,undef,undef,undef,$group,$toolarge);
+                     undef,undef,undef,undef,undef,undef,$group,$toolarge,$delay);
   }
   return OK;
 }