loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.391, 2022/11/14 14:41:40	version 1.393, 2023/09/15 23:00:16
Line 1693 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 4754 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