--- doc/loncapafiles/updatequery.piml	2002/05/18 16:36:58	1.11
+++ doc/loncapafiles/updatequery.piml	2002/05/22 20:52:27	1.12
@@ -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 @@ my %perlvar;
 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
 		chomp($varvalue);
-		$perlvar{$varname}=$varvalue;
+		$perlvar{$varname}=$varvalue if $varvalue!~/^\{\[\[\[\[/;
 	    }
 	}
 	close(CONFIG);