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); |
} |
} |
} |
} |
} |
} |