--- loncom/interface/lonsearchcat.pm 2013/09/02 00:20:07 1.331.4.7 +++ loncom/interface/lonsearchcat.pm 2013/09/01 22:39:39 1.336 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.331.4.7 2013/09/02 00:20:07 raeburn Exp $ +# $Id: lonsearchcat.pm,v 1.336 2013/09/01 22:39: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 @@ -2087,7 +2087,7 @@ END # $result.="\n"; my $revise = &revise_button(); $result.='

' - .&mt('Total of [quant,_1,match,matches] to your query.',$total_results) + .&mt('There are [_1] matches to your query.',$total_results) .' '.$revise.'

' .'

'.&mt('Search: ').$pretty_query_string .'

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