--- loncom/interface/lonfeedback.pm 2003/07/05 10:07:11 1.49 +++ loncom/interface/lonfeedback.pm 2003/08/06 17:00:30 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.49 2003/07/05 10:07:11 www Exp $ +# $Id: lonfeedback.pm,v 1.50 2003/08/06 17:00:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -567,10 +567,12 @@ sub handler { # Get output from resource my $usersaw=&resource_output($feedurl); -# Get resource answer +# Get resource answer (need to allow student to view grades for this to work) + &Apache::lonnet::appenv(('allowed.vgr'=>'F')); my $useranswer=&Apache::loncommon::get_student_answers( $symb,$ENV{'user.name'},$ENV{'user.domain'}, $ENV{'request.course.id'}); + &Apache::lonnet::delenv('allowed.vgr'); # Get attachments, if any, and not too large my $attachmenturl=''; if ($ENV{'form.attachment.filename'}) {