--- loncom/interface/lonfeedback.pm 2022/01/19 00:44:31 1.390 +++ loncom/interface/lonfeedback.pm 2023/09/15 23:00:16 1.393 @@ -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.393 2023/09/15 23:00:16 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( @@ -4755,7 +4753,7 @@ ENDREDIR my $usersymb = &Apache::lonenc::check_encrypt($symb); my $useranswer= &Apache::loncommon::get_student_answers( - $usersymb,$env{'user.name'},$env{'user.domain'}, + $symb,$env{'user.name'},$env{'user.domain'}, $env{'request.course.id'}); &Apache::lonnet::delenv('allowed.vgr'); # Get attachments, if any, and not too large