version 1.390, 2022/01/19 00:44:31
|
version 1.393, 2023/09/15 23:00:16
|
Line 1312 sub build_posting_display {
|
Line 1312 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 1694 sub get_post_contents {
|
Line 1693 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 4755 ENDREDIR
|
Line 4753 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 |