--- loncom/interface/lonsearchcat.pm 2013/09/02 00:00:49 1.337 +++ loncom/interface/lonsearchcat.pm 2013/09/02 00:18:39 1.338 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.337 2013/09/02 00:00:49 raeburn Exp $ +# $Id: lonsearchcat.pm,v 1.338 2013/09/02 00:18:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1015,7 +1015,7 @@ This function is the reverse of &make_pe Retrieve persistent data from %persistent_db. Retrieved items will have their values unescaped. If the item is 'domains; then the returned 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 @@ -1071,7 +1071,7 @@ Store variables away to the %persistent_ Values will be escaped. Values that are array pointers will have their elements escaped and concatenated in a comma separated string. Values 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 @@ -2359,7 +2359,7 @@ END my $major = $1; my $minor = $2; if (($major < 2) || (($major == 2) && ($minor < 11))) { - map { $older_library_servers{$_} = 1; } + map { $older_library_servers{$_} = 1; } &Apache::lonnet::machine_ids($library_servers{$key}); } } @@ -2369,7 +2369,7 @@ END foreach my $server (@Servers_to_contact) { my %possdoms; 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}))); } }