loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.63, 2002/08/28 19:42:49	version 1.64, 2002/09/05 15:03:33
Line 1134 sub get_previous_attempt {	Line 1134 sub get_previous_attempt {
}	}

sub get_student_view {	sub get_student_view {
my ($symb,$username,$domain,$courseid) = @_;	my ($symb,$username,$domain,$courseid,$target) = @_;
my ($map,$id,$feedurl) = split(/___/,$symb);	my ($map,$id,$feedurl) = split(/___/,$symb);
my (%old,%moreenv);	my (%old,%moreenv);
my @elements=('symb','courseid','domain','username');	my @elements=('symb','courseid','domain','username');
Line 1142 sub get_student_view {	Line 1142 sub get_student_view {
$old{$element}=$ENV{'form.grade_'.$element};	$old{$element}=$ENV{'form.grade_'.$element};
$moreenv{'form.grade_'.$element}=eval '$'.$element #'	$moreenv{'form.grade_'.$element}=eval '$'.$element #'
}	}
	if ($target eq 'tex') {$moreenv{'form.grade_target'} = 'tex';}
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
my $userview=&Apache::lonnet::ssi('/res/'.$feedurl);	my $userview=&Apache::lonnet::ssi('/res/'.$feedurl);
&Apache::lonnet::delenv('form.grade_');	&Apache::lonnet::delenv('form.grade_');