loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.99, 2003/05/13 00:52:46	version 1.100, 2003/05/15 13:32:55
Line 1512 sub get_student_view {	Line 1512 sub get_student_view {
}	}

sub get_student_answers {	sub get_student_answers {
my ($symb,$username,$domain,$courseid) = @_;	my ($symb,$username,$domain,$courseid,%form) = @_;
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 1522 sub get_student_answers {	Line 1522 sub get_student_answers {
}	}
$moreenv{'form.grade_target'}='answer';	$moreenv{'form.grade_target'}='answer';
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
my $userview=&Apache::lonnet::ssi('/res/'.$feedurl);	my $userview=&Apache::lonnet::ssi('/res/'.$feedurl,%form);
&Apache::lonnet::delenv('form.grade_');	&Apache::lonnet::delenv('form.grade_');
foreach my $element (@elements) {	foreach my $element (@elements) {
$ENV{'form.grade_'.$element}=$old{$element};	$ENV{'form.grade_'.$element}=$old{$element};