--- loncom/interface/lonfeedback.pm 2006/12/24 22:13:19 1.237 +++ loncom/interface/lonfeedback.pm 2007/01/04 20:35:15 1.239 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.237 2006/12/24 22:13:19 raeburn Exp $ +# $Id: lonfeedback.pm,v 1.239 2007/01/04 20:35:15 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1468,7 +1468,7 @@ sub replicate_attachments { } sub mail_screen { - my ($r,$feedurl,$options,$symb) = @_; + my ($r,$feedurl,$options,$caller_symb) = @_; if (exists($env{'form.origpage'})) { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog','group','ref']); } @@ -1480,7 +1480,7 @@ sub mail_screen { 'reta' => 'Retained attachments', 'atta' => 'Attachment (128 KB max size)', ); - my $restitle = &get_resource_title($symb,$feedurl); + my $restitle = &get_resource_title($caller_symb,$feedurl); my $quote=''; my $subject = ''; my $comment = ''; @@ -3801,10 +3801,10 @@ ENDREDIR # Get resource answer (need to allow student to view grades for this to work) &Apache::lonnet::appenv(('allowed.vgr'=>'F')); - my $usersymmb = &Apache::lonenc::check_encrypt($symb); + my $usersymb = &Apache::lonenc::check_encrypt($symb); my $useranswer= &Apache::loncommon::get_student_answers( - $usersymb),$env{'user.name'},$env{'user.domain'}, + $usersymb,$env{'user.name'},$env{'user.domain'}, $env{'request.course.id'}); &Apache::lonnet::delenv('allowed.vgr'); # Get attachments, if any, and not too large