loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/essayresponse.pm between versions 1.109 and 1.110

version 1.109, 2010/08/22 19:00:15	version 1.110, 2010/08/23 03:21:26
Line 155 sub end_essayresponse {	Line 155 sub end_essayresponse {
$increment=&Apache::response::scored_response($part,$id);	$increment=&Apache::response::scored_response($part,$id);
} elsif ( &Apache::response::submitted() ) {	} elsif ( &Apache::response::submitted() ) {
my $response = $env{'form.HWVAL_'.$id};	my $response = $env{'form.HWVAL_'.$id};
my $filename = $env{'form.HWFILE'.$part.'_'.$id.'.filename'} \|\|	my $jspart=$part;
	$jspart=~s/\./_/g;
	my $filename = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} \|\|
$env{'form.HWFILETOOBIG'.$part.'_'.$id};	$env{'form.HWFILETOOBIG'.$part.'_'.$id};
my $portfiles = $env{'form.HWPORT'.$part.'_'.$id};	my $portfiles = $env{'form.HWPORT'.$jspart.'_'.$id};
my @deletions = &Apache::loncommon::get_env_multiple('form.HWFILE'.$part.'_'.$id.'_delete');	my @deletions = &Apache::loncommon::get_env_multiple('form.HWFILE'.$jspart.'_'.$id.'_delete');
my ($is_submit,$was_draft);	my ($is_submit,$was_draft);
if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {	if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {
$is_submit = 1;	$is_submit = 1;
Line 331 sub file_submission {	Line 333 sub file_submission {
}	}
}	}
}	}
if ($env{'form.HWFILETOOBIG'.$jspart.'_'.$id} ne '') {	if ($env{'form.HWFILETOOBIG'.$part.'_'.$id} ne '') {
$$award = 'EXCESS_FILESIZE';	$$award = 'EXCESS_FILESIZE';
} elsif ($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} ne '') {	} elsif ($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} ne '') {
my $newfile = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'};	my $newfile = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'};

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.109
changed lines
	Added in v.1.110