[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