|
version 1.20.2.1, 2020/07/18 00:16:00
|
version 1.22, 2020/07/01 20:09:03
|
|
Line 184 sub process_xml {
|
Line 184 sub process_xml {
|
| if ($logmsg ne '') { |
if ($logmsg ne '') { |
| $outcome .= $logmsg."\n"; |
$outcome .= $logmsg."\n"; |
| } |
} |
| |
if ($keysmsg ne '') { |
| |
$outcome .= $keysmsg."\n"; |
| |
} |
| if ($clonemsg ne '') { |
if ($clonemsg ne '') { |
| $outcome .= $clonemsg."\n"; |
$outcome .= $clonemsg."\n"; |
| } |
} |
|
Line 214 sub process_xml {
|
Line 217 sub process_xml {
|
| } |
} |
| $output =~ s/:$//; |
$output =~ s/:$//; |
| &unset_dc_env(); |
&unset_dc_env(); |
| |
if (ref($instcodesref) eq 'HASH') { |
| |
if (keys(%{$instcodesref}) > 0) { |
| |
&Apache::lonnet::devalidate_cache_new('instcats',$dom); |
| |
if (&Apache::lonnet::shared_institution($dom)) { |
| |
my %servers = &Apache::lonnet::internet_dom_servers($dom); |
| |
my %thismachine; |
| |
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
| |
if (keys(%servers)) { |
| |
foreach my $server (keys(%servers)) { |
| |
next if ($thismachine{$server}); |
| |
&Apache::lonnet::remote_devalidate_cache($server,['instcats:'.$dom]); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| return $output; |
return $output; |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to Autocreate.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / automation