[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm
From:       raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2022-11-14 14:41:40
Message-ID: cvsraeburn1668436900 () cvsserver
[Download RAW message or body]

raeburn		Mon Nov 14 14:41:40 2022 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - Use cached names to speed up display of discussion posts.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.390 loncom/interface/lonfeedback.pm:1.391
--- loncom/interface/lonfeedback.pm:1.390	Wed Jan 19 00:44:31 2022
+++ loncom/interface/lonfeedback.pm	Mon Nov 14 14:41:40 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.390 2022/01/19 00:44:31 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.391 2022/11/14 14:41:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1312,9 +1312,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 '') {


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]