[LON-CAPA-cvs] cvs: loncom /interface lonsearchcat.pm
raeburn
raeburn at source.lon-capa.org
Sun Sep 1 20:18:39 EDT 2013
raeburn Mon Sep 2 00:18:39 2013 EDT
Modified files:
/loncom/interface lonsearchcat.pm
Log:
- Remove some trailing white space.
- Punctuation in documentation.
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.337 loncom/interface/lonsearchcat.pm:1.338
--- loncom/interface/lonsearchcat.pm:1.337 Mon Sep 2 00:00:49 2013
+++ loncom/interface/lonsearchcat.pm Mon Sep 2 00:18:39 2013
@@ -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 @@
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 @@
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 @@
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 @@
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})));
}
}
More information about the LON-CAPA-cvs
mailing list