--- loncom/interface/lonfeedback.pm 2003/07/05 10:07:11 1.49 +++ loncom/interface/lonfeedback.pm 2003/09/03 18:09:50 1.51 @@ -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.51 2003/09/03 18:09:50 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -56,6 +56,8 @@ sub mail_screen { my ($r,$feedurl,$options) = @_; my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion', '','onLoad="window.focus();"'); + my $title=&Apache::lonnet::gettitle($feedurl); + if (!$title) { $title = $feedurl; } my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); $r->print(< @@ -105,7 +107,7 @@ sub mail_screen { $bodytag -

$feedurl

+

$title

@@ -567,10 +569,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'}) {