|
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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to essayresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework