[LON-CAPA-cvs] cvs: loncom /configuration Checksumming.pm

raeburn raeburn at source.lon-capa.org
Fri Feb 8 10:14:22 EST 2013


raeburn		Fri Feb  8 15:14:22 2013 EDT

  Modified files:              
    /loncom/configuration	Checksumming.pm 
  Log:
  - Suppress display of messages (e.g., files owned by root unopenable by
    www), when used by loncron.   
  - Set language handle if absent.
  
  
Index: loncom/configuration/Checksumming.pm
diff -u loncom/configuration/Checksumming.pm:1.4 loncom/configuration/Checksumming.pm:1.5
--- loncom/configuration/Checksumming.pm:1.4	Wed Feb  6 13:47:47 2013
+++ loncom/configuration/Checksumming.pm	Fri Feb  8 15:14:22 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Checksum installed LON-CAPA modules and some configuration files
 #
-# $Id: Checksumming.pm,v 1.4 2013/02/06 13:47:47 raeburn Exp $
+# $Id: Checksumming.pm,v 1.5 2013/02/08 15:14:22 raeburn Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -85,7 +85,7 @@
     }
     if (@paths) {
         my $pathstr = join (' ', at paths);
-        if (open($dirh,"grep '$revtag' $pathstr |")) {
+        if (open($dirh,"grep '$revtag' $pathstr 2>&1 |")) {
             while (my $line=<$dirh>) {
                 if ($line =~ m{^([^#]+):#\s\$Id:\s[\w.]+,v\s([\d.]+)\s}) {
                     $versions{$1} = $2;
@@ -130,6 +130,9 @@
     } else {
         $linefeed = "\n";
     }
+    if (!$Apache::lonlocal::lh) {
+        &Apache::lonlocal::get_language_handle();
+    }
     if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) {
         my $checksums = &Apache::lonnet::fetch_dns_checksums();
         my (%extra,%missing,%diffs,%stdsums,%stdversions);




More information about the LON-CAPA-cvs mailing list