Return to updatequery.piml CVS log | Up to [LON-CAPA] / doc / loncapafiles |
version 1.11, 2002/05/18 16:36:58 | version 1.12, 2002/05/22 20:52:27 |
---|---|
Line 255 my %perlvar; | Line 255 my %perlvar; |
if ($configline =~ /^[^\#]*PerlSetVar/) { | if ($configline =~ /^[^\#]*PerlSetVar/) { |
my ($unused,$varname,$varvalue)=split(/\s+/,$configline); | my ($unused,$varname,$varvalue)=split(/\s+/,$configline); |
chomp($varvalue); | chomp($varvalue); |
$perlvar{$varname}=$varvalue; | $perlvar{$varname}=$varvalue if $varvalue!~/^\{\[\[\[\[/; |
} | } |
} | } |
close(CONFIG); | close(CONFIG); |