--- loncom/interface/lonfeedback.pm	2022/01/18 17:33:13	1.389
+++ loncom/interface/lonfeedback.pm	2022/11/16 14:24:35	1.392
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.389 2022/01/18 17:33:13 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.392 2022/11/16 14:24:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1312,9 +1312,8 @@ sub build_posting_display {
                                 @{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}} = ("$idx");
                             }
 # Set up for sorting by last name, then first name
-                            my %names = &Apache::lonnet::get('environment',
-                                 ['firstname','lastname'],$contrib{$idx.':senderdomain'},
-                                  ,$contrib{$idx.':sendername'});
+                            my %names = &Apache::loncommon::getnames($contrib{$idx.':sendername'},
+                                                                     $contrib{$idx.':senderdomain'});
                             my $lastname = $names{'lastname'};
                             my $firstname = $names{'firstname'};
                             if ($lastname eq '') {
@@ -1694,9 +1693,8 @@ sub get_post_contents {
                                         $$contrib{$idx.':sendername'},
                                         $$contrib{$idx.':senderdomain'});
     $$screenname=$$contrib{$idx.':screenname'};
-    $$showaboutme = &Apache::lonnet::usertools_access($$contrib{$idx.':sendername'},
-                                                      $$contrib{$idx.':senderdomain'},
-                                                      'aboutme');
+    $$showaboutme = &Apache::loncommon::aboutme_on($$contrib{$idx.':sendername'},
+                                                   $$contrib{$idx.':senderdomain'});
     my $sender = $$plainname;
     if ($$showaboutme) {
         $sender = &Apache::loncommon::aboutmewrapper(
@@ -2763,7 +2761,7 @@ sub fail_redirect {
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
   my %parms=('only_body'   => 1);
   if ($delay !~ /^\d+(|\.\d+)$/) {
-      $delay = 0;
+      $delay = 2;
   }
   if ($env{'form.modal'}) {
       my $onload = 'document.forms.reldt.submit()';
@@ -4736,7 +4734,7 @@ ENDREDIR
 	  if ($options) {
 	      &mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'});
 	  } else {
-	      &fail_redirect($r,$feedurl,1);
+	      &fail_redirect($r,$feedurl,2);
 	  }
 	  return OK;
       }