--- loncom/build/weblayer_test/test_weblayer.pl	2002/05/08 18:47:31	1.2
+++ loncom/build/weblayer_test/test_weblayer.pl	2002/05/11 21:20:15	1.3
@@ -11,7 +11,7 @@ test_weblayer.pl - Test the LON-CAPA web
 # The LearningOnline Network
 # test_weblayer.pl - Test the web layer
 #
-# $Id: test_weblayer.pl,v 1.2 2002/05/08 18:47:31 harris41 Exp $
+# $Id: test_weblayer.pl,v 1.3 2002/05/11 21:20:15 harris41 Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -34,7 +34,7 @@ test_weblayer.pl - Test the LON-CAPA web
 # http://www.lon-capa.org/
 #
 # YEAR=2002
-# 3/4 Scott Harrison
+# 3/4,5/8,5/11 Scott Harrison
 #
 ###
 
@@ -56,7 +56,16 @@ with 'ZXQTEST' is created.  A test login
 my %perlvar;
 open (CONFIG,"/etc/httpd/conf/access.conf") || die "Can't read access.conf";
 while ($configline=<CONFIG>) {
-    if ($configline =~ /PerlSetVar/) {
+    if ($configline =~ /^[^\#]*PerlSetVar/) {
+	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
+        chomp($varvalue);
+        $perlvar{$varname}=$varvalue;
+    }
+}
+close(CONFIG);
+open (CONFIG,"/etc/httpd/conf/loncapa.conf") || die "Can't read loncapa.conf";
+while ($configline=<CONFIG>) {
+    if ($configline =~ /^[^\#]*PerlSetVar/) {
 	my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
         chomp($varvalue);
         $perlvar{$varname}=$varvalue;