loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.252, 2008/02/25 13:16:34	version 1.253, 2008/03/12 02:45:07
Line 3557 ENDREDIR	Line 3557 ENDREDIR
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});	my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'});
if ($env{'form.cmd'} eq 'threadedon') {	if ($env{'form.cmd'} eq 'threadedon') {
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});	&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'});
&Apache::lonnet::appenv('environment.threadeddiscussion' => 'on');	&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'});
} else {	} else {
&Apache::lonnet::del('environment',['threadeddiscussion']);	&Apache::lonnet::del('environment',['threadeddiscussion']);
&Apache::lonnet::delenv('environment\.threadeddiscussion');	&Apache::lonnet::delenv('environment\.threadeddiscussion');
Line 3720 ENDREDIR	Line 3720 ENDREDIR
my $usersaw=&resource_output($feedurl);	my $usersaw=&resource_output($feedurl);

# Get resource answer (need to allow student to view grades for this to work)	# Get resource answer (need to allow student to view grades for this to work)
&Apache::lonnet::appenv(('allowed.vgr'=>'F'));	&Apache::lonnet::appenv({'allowed.vgr'=>'F'});
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(