[BACK]Return to lonfeedback.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.370.2.6 and 1.370.2.8

version 1.370.2.6, 2022/01/19 01:35:58 version 1.370.2.8, 2024/07/03 22:14:18
Line 1264  sub build_posting_display { Line 1264  sub build_posting_display {
                                 @{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}} = ("$idx");                                  @{$$usernamesort{$contrib{$idx.':senderdomain'}}{$contrib{$idx.':sendername'}}} = ("$idx");
                             }                              }
 # Set up for sorting by last name, then first name  # Set up for sorting by last name, then first name
                             my %names = &Apache::lonnet::get('environment',                              my %names = &Apache::loncommon::getnames($contrib{$idx.':sendername'},
                                  ['firstname','lastname'],$contrib{$idx.':senderdomain'},                                                                       $contrib{$idx.':senderdomain'});
                                   ,$contrib{$idx.':sendername'});  
                             my $lastname = $names{'lastname'};                              my $lastname = $names{'lastname'};
                             my $firstname = $names{'firstname'};                              my $firstname = $names{'firstname'};
                             if ($lastname eq '') {                              if ($lastname eq '') {
Line 1646  sub get_post_contents { Line 1645  sub get_post_contents {
                                         $$contrib{$idx.':sendername'},                                          $$contrib{$idx.':sendername'},
                                         $$contrib{$idx.':senderdomain'});                                          $$contrib{$idx.':senderdomain'});
     $$screenname=$$contrib{$idx.':screenname'};      $$screenname=$$contrib{$idx.':screenname'};
     $$showaboutme = &Apache::lonnet::usertools_access($$contrib{$idx.':sendername'},      $$showaboutme = &Apache::loncommon::aboutme_on($$contrib{$idx.':sendername'},
                                                       $$contrib{$idx.':senderdomain'},                                                     $$contrib{$idx.':senderdomain'});
                                                       'aboutme');  
     my $sender = $$plainname;      my $sender = $$plainname;
     if ($$showaboutme) {      if ($$showaboutme) {
         $sender = &Apache::loncommon::aboutmewrapper(          $sender = &Apache::loncommon::aboutmewrapper(
Line 4687  ENDREDIR Line 4685  ENDREDIR
       my $usersymb = &Apache::lonenc::check_encrypt($symb);        my $usersymb = &Apache::lonenc::check_encrypt($symb);
       my $useranswer=        my $useranswer=
           &Apache::loncommon::get_student_answers(            &Apache::loncommon::get_student_answers(
               $usersymb,$env{'user.name'},$env{'user.domain'},                $symb,$env{'user.name'},$env{'user.domain'},
               $env{'request.course.id'});                $env{'request.course.id'});
       &Apache::lonnet::delenv('allowed.vgr');        &Apache::lonnet::delenv('allowed.vgr');
 # Get attachments, if any, and not too large  # Get attachments, if any, and not too large
Removed from v.1.370.2.6  
changed lines
  Added in v.1.370.2.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>