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'}) { |