--- loncom/build/weblayer_test/test_weblayer.pl	2002/05/08 18:47:31	1.2
+++ loncom/build/weblayer_test/test_weblayer.pl	2003/02/03 18:03:52	1.4
@@ -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.4 2003/02/03 18:03:52 harris41 Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -34,7 +34,6 @@ test_weblayer.pl - Test the LON-CAPA web
 # http://www.lon-capa.org/
 #
 # YEAR=2002
-# 3/4 Scott Harrison
 #
 ###
 
@@ -56,7 +55,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;
@@ -109,6 +117,5 @@ print "**** ERROR **** problems encounte
 
 =head1 AUTHOR
 
-Scott Harrison, harris41@msu.edu
 
 =cut