[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

harris41 lon-capa-cvs@mail.lon-capa.org
Wed, 22 May 2002 20:52:27 -0000


harris41		Wed May 22 16:52:27 2002 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  allows to work with a preinstalled configuration file
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.11 doc/loncapafiles/updatequery.piml:1.12
--- doc/loncapafiles/updatequery.piml:1.11	Sat May 18 12:36:58 2002
+++ doc/loncapafiles/updatequery.piml	Wed May 22 16:52:27 2002
@@ -1,7 +1,7 @@
 <!-- updatequery.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: updatequery.piml,v 1.11 2002/05/18 16:36:58 harris41 Exp $ -->
+<!-- $Id: updatequery.piml,v 1.12 2002/05/22 20:52:27 harris41 Exp $ -->
 
 <!--
 
@@ -255,7 +255,7 @@
 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
 		chomp($varvalue);
-		$perlvar{$varname}=$varvalue;
+		$perlvar{$varname}=$varvalue if $varvalue!~/^\{\[\[\[\[/;
 	    }
 	}
 	close(CONFIG);