loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.55, 2004/12/14 20:38:51	version 1.56, 2004/12/16 21:21:35
Line 115 sub end_essayresponse {	Line 115 sub end_essayresponse {
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'};
my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id};	my $portfiles = $ENV{'form.HWPORT'.$part.'_'.$id};
&Apache::lonnet::logthis("portfiles now $portfiles");
if (( $response =~ /[^\s]/) \|\| ($filename =~ /[^\s]/) \|\| ($portfiles =~ /[^\s]/)) {	if (( $response =~ /[^\s]/) \|\| ($filename =~ /[^\s]/) \|\| ($portfiles =~ /[^\s]/)) {
my $award;	my $award;
if ($ENV{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {	if ($ENV{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {