version 1.337, 2013/09/02 00:00:49
|
version 1.338, 2013/09/02 00:18:39
|
Line 1015 This function is the reverse of &make_pe
|
Line 1015 This function is the reverse of &make_pe
|
Retrieve persistent data from %persistent_db. Retrieved items will have their |
Retrieve persistent data from %persistent_db. Retrieved items will have their |
values unescaped. If the item is 'domains; then the returned |
values unescaped. If the item is 'domains; then the returned |
value will be a hash pointer. Otherwise, if the item contains |
value will be a hash pointer. Otherwise, if the item contains |
commas (before unescaping), the returned value will be an array pointer. |
commas (before unescaping), the returned value will be an array pointer. |
|
|
=cut |
=cut |
|
|
Line 1071 Store variables away to the %persistent_
|
Line 1071 Store variables away to the %persistent_
|
Values will be escaped. Values that are array pointers will have their |
Values will be escaped. Values that are array pointers will have their |
elements escaped and concatenated in a comma separated string. Values |
elements escaped and concatenated in a comma separated string. Values |
that are hash pointers will have their keys and values escaped and |
that are hash pointers will have their keys and values escaped and |
concatenated in a comma separated string |
concatenated in a comma separated string. |
|
|
=cut |
=cut |
|
|
Line 2359 END
|
Line 2359 END
|
my $major = $1; |
my $major = $1; |
my $minor = $2; |
my $minor = $2; |
if (($major < 2) || (($major == 2) && ($minor < 11))) { |
if (($major < 2) || (($major == 2) && ($minor < 11))) { |
map { $older_library_servers{$_} = 1; } |
map { $older_library_servers{$_} = 1; } |
&Apache::lonnet::machine_ids($library_servers{$key}); |
&Apache::lonnet::machine_ids($library_servers{$key}); |
} |
} |
} |
} |
Line 2369 END
|
Line 2369 END
|
foreach my $server (@Servers_to_contact) { |
foreach my $server (@Servers_to_contact) { |
my %possdoms; |
my %possdoms; |
map { $possdoms{$_}=1; } &Apache::lonnet::machine_domains($all_library_servers{$server}); |
map { $possdoms{$_}=1; } &Apache::lonnet::machine_domains($all_library_servers{$server}); |
$domains_by_server{$server} = |
$domains_by_server{$server} = |
join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server}))); |
join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server}))); |
} |
} |
} |
} |