loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.57, 2004/12/21 22:46:27	version 1.58, 2005/01/31 22:00:40
Line 108 sub end_essayresponse {	Line 108 sub end_essayresponse {
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators	$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators
if ($collaborators ne $previous_list);	if ($collaborators ne $previous_list);
}	}
if ( defined($ENV{'form.submitted'}) &&	if ( &Apache::response::submitted('scantron') ) {
$ENV{'form.submitted'} eq 'scantron' ) {
$increment=&Apache::response::scored_response($part,$id);	$increment=&Apache::response::scored_response($part,$id);
} elsif ( defined($ENV{'form.submitted'}) ) {	} elsif ( &Apache::response::submitted() ) {
my $response = $ENV{'form.HWVAL_'.$id};	my $response = $ENV{'form.HWVAL_'.$id};
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};	my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};
my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id};	my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id};