[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonfeedback.pm

[raeburn]

raeburn		Wed Jul  3 22:14:18 2024 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	lonfeedback.pm 
  Log:
  - For 2.11
    Backport 1.391, 1.392
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.370.2.7 loncom/interface/lonfeedback.pm:1.370.2.8
--- loncom/interface/lonfeedback.pm:1.370.2.7	Fri Sep 15 23:02:08 2023
+++ loncom/interface/lonfeedback.pm	Wed Jul  3 22:14:18 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.370.2.7 2023/09/15 23:02:08 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.370.2.8 2024/07/03 22:14:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1264,9 +1264,8 @@
                                 @{$$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 '') {
@@ -1646,9 +1645,8 @@
                                         $$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(