version 1.25, 2003/02/27 21:20:48
|
version 1.26, 2003/04/08 02:40:56
|
Line 98 sub end_essayresponse {
|
Line 98 sub end_essayresponse {
|
if ($collaborators ne $previous_list); |
if ($collaborators ne $previous_list); |
} |
} |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.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'}; |
if (( $response =~ /[^\s]/) || ($filename =~ /[^\s]/)) { |
if (( $response =~ /[^\s]/) || ($filename =~ /[^\s]/)) { |
my $award; |
my $award; |