Diff for /doc/loncapafiles/updatequery.piml between versions 1.11 and 1.12

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);

Removed from v.1.11  
changed lines
  Added in v.1.12


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>