loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.118, 2014/01/21 14:38:55	version 1.119, 2014/12/04 15:41:30
Line 286 sub format_prior_response {	Line 286 sub format_prior_response {
}	}

sub file_submission {	sub file_submission {
my ($part,$id,$award,$uploadedflag,$totalsize,$deletions)=@_;	my ($part,$id,$award,$uploadedflag,$totalsize,$deletions,$context,$info)=@_;
my $files;	my $files;
my $jspart=$part;	my $jspart=$part;
$jspart=~s/\./_/g;	$jspart=~s/\./_/g;
Line 513 sub file_submission {	Line 513 sub file_submission {
$$uploadedflag=1;	$$uploadedflag=1;
}	}
}	}
	if ($context eq 'externalresponse') {
	my @todelete = keys(%port_delete);
	if (@tolock \|\| @todelete) {
	if (ref($info) eq 'HASH') {
	if ($info->{'ip'}) {
	&Apache::lonnet::automated_portfile_access('ip',\@tolock,\@todelete,$info);
	}
	}
	}
	}
&Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]);	&Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]);
&Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]);	&Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]);
&Apache::lonnet::clear_selected_files($uname);	&Apache::lonnet::clear_selected_files($uname);