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.120, 2014/12/04 20:43:23
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 = map { "/uploaded/$udom/$uname/portfolio".$_; } keys(%port_delete);
	if (@tolock \|\| @todelete) {
	if (ref($info) eq 'HASH') {
	if ($info->{'ip'}) {
	my @adds;
	if (@tolock) {
	@adds = map { "/uploaded/$udom/$uname/portfolio".$_; } @tolock;
	}
	&Apache::lonnet::automated_portfile_access('ip',\@adds,\@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);