version 1.14, 2002/08/01 19:16:45
|
version 1.15, 2002/08/07 16:23:05
|
Line 70 sub end_essayresponse {
|
Line 70 sub end_essayresponse {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $part = $Apache::inputtags::part; |
my $part = $Apache::inputtags::part; |
my $id = $Apache::inputtags::response[-1]; |
my $id = $Apache::inputtags::response[-1]; |
|
my $result; |
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id}; |
my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id}; |
if ($collaborators =~ /[^\s]/) { |
if ($collaborators =~ /[^\s]/) { |
Line 92 sub end_essayresponse {
|
Line 93 sub end_essayresponse {
|
&Apache::response::handle_previous(\%previous,$award); |
&Apache::response::handle_previous(\%previous,$award); |
} |
} |
} |
} |
|
} elsif ($target eq 'edit') { |
|
$result.=&Apache::edit::end_table(); |
} |
} |
|
|
&Apache::response::end_response; |
&Apache::response::end_response; |
return ''; |
return $result; |
} |
} |
|
|
sub check_collaborators { |
sub check_collaborators { |