loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.11, 2002/07/25 20:51:39	version 1.12, 2002/07/26 20:27:33
Line 62 sub end_essayresponse {	Line 62 sub end_essayresponse {
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
my $collaborators = $ENV{'form.HWCOL'.$id};	my $collaborators = $ENV{'form.HWCOL'.$id};
if ($collaborators =~ /[^\s]/) {	if ($collaborators =~ /[^\s]/) {
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators;	my $previous_list= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"});

	$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators
	if ($collaborators ne $previous_list);
}	}
if ( $target eq 'grade' ) {	if ( $target eq 'grade' ) {
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {