--- loncom/interface/loncommon.pm 2002/08/28 19:42:49 1.63 +++ loncom/interface/loncommon.pm 2002/09/05 15:03:33 1.64 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.63 2002/08/28 19:42:49 www Exp $ +# $Id: loncommon.pm,v 1.64 2002/09/05 15:03:33 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1134,7 +1134,7 @@ sub get_previous_attempt { } sub get_student_view { - my ($symb,$username,$domain,$courseid) = @_; + my ($symb,$username,$domain,$courseid,$target) = @_; my ($map,$id,$feedurl) = split(/___/,$symb); my (%old,%moreenv); my @elements=('symb','courseid','domain','username'); @@ -1142,6 +1142,7 @@ sub get_student_view { $old{$element}=$ENV{'form.grade_'.$element}; $moreenv{'form.grade_'.$element}=eval '$'.$element #' } + if ($target eq 'tex') {$moreenv{'form.grade_target'} = 'tex';} &Apache::lonnet::appenv(%moreenv); my $userview=&Apache::lonnet::ssi('/res/'.$feedurl); &Apache::lonnet::delenv('form.grade_');