version 1.565, 2013/09/23 17:35:07
|
version 1.566, 2013/10/06 20:33:45
|
Line 4997 my %suporderhash = (
|
Line 4997 my %suporderhash = (
|
foreach my $server (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
next if (grep(/^\Q$server\E$/,@ids)); |
next if (grep(/^\Q$server\E$/,@ids)); |
my $hashid=$coursenum.':'.$coursedom; |
my $hashid=$coursenum.':'.$coursedom; |
&Apache::lonnet::remote_devalidate_cache($server,'suppcount',$hashid); |
my $cachekey = &escape('suppcount').':'.&escape($hashid); |
|
&Apache::lonnet::remote_devalidate_cache($server,[$cachekey]); |
} |
} |
&Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1); |
&Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1); |
undef($suppchanges); |
undef($suppchanges); |