loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.119, 2014/12/04 15:41:30	version 1.120, 2014/12/04 20:43:23
Line 514 sub file_submission {	Line 514 sub file_submission {
}	}
}	}
if ($context eq 'externalresponse') {	if ($context eq 'externalresponse') {
my @todelete = keys(%port_delete);	my @todelete = map { "/uploaded/$udom/$uname/portfolio".$_; } keys(%port_delete);
if (@tolock \|\| @todelete) {	if (@tolock \|\| @todelete) {
if (ref($info) eq 'HASH') {	if (ref($info) eq 'HASH') {
if ($info->{'ip'}) {	if ($info->{'ip'}) {
&Apache::lonnet::automated_portfile_access('ip',\@tolock,\@todelete,$info);	my @adds;
	if (@tolock) {
	@adds = map { "/uploaded/$udom/$uname/portfolio".$_; } @tolock;
	}
	&Apache::lonnet::automated_portfile_access('ip',\@adds,\@todelete,$info);
}	}
}	}
}	}