[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: doc /loncapafiles cron_lpmlcheck.piml
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2010-06-25 16:39:02
Message-ID: cvsraeburn1277483942 () cvsserver
[Download RAW message or body]

raeburn		Fri Jun 25 16:39:02 2010 EDT

  Modified files:              
    /doc/loncapafiles	cron_lpmlcheck.piml 
  Log:
  - Prevent removal of configuration items before the script path in new entries in loncapa
    cron.
  
  
Index: doc/loncapafiles/cron_lpmlcheck.piml
diff -u doc/loncapafiles/cron_lpmlcheck.piml:1.2 doc/loncapafiles/cron_lpmlcheck.piml:1.3
--- doc/loncapafiles/cron_lpmlcheck.piml:1.2	Sun May 23 16:07:09 2010
+++ doc/loncapafiles/cron_lpmlcheck.piml	Fri Jun 25 16:39:01 2010
@@ -3,7 +3,7 @@
 <!-- cron_lpmlcheck.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: cron_lpmlcheck.piml,v 1.2 2010/05/23 16:07:09 raeburn Exp $ -->
+<!-- $Id: cron_lpmlcheck.piml,v 1.3 2010/06/25 16:39:01 raeburn Exp $ -->
 
 <!--
 
@@ -76,7 +76,9 @@
         for (my $i=0; $i<@standard; $i++) {
             if ($commands[$i] ne '') {
                 my $unesc = &unescape($commands[$i]);
-                if ($custom{$commands[$i]} ne $configs[$i]) {
+                if ($custom{$commands[$i]} eq '') {
+                    print $newfh $standard[$i]."\n";
+                } elsif ($custom{$commands[$i]} ne $configs[$i]) {
                     print $newfh $custom{$commands[$i]}.$unesc;
                     if (ref($customargs{$commands[$i]}) eq 'ARRAY') {
                         if (@{$customargs{$commands[$i]}} > 0) {


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]