Index: openacs-4/packages/acs-automated-testing/www/admin/install/report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/install/Attic/report.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-automated-testing/www/admin/install/report.tcl	16 Feb 2004 16:49:21 -0000	1.2
+++ openacs-4/packages/acs-automated-testing/www/admin/install/report.tcl	24 Feb 2004 13:13:13 -0000	1.3
@@ -6,21 +6,24 @@
 set context [list]
 multirow create servers path url name install_date error_total_count parse_errors
 
-foreach path [glob [aa_test::xml_report_dir]/*-installreport.xml] {
-    aa_test::parse_install_file -path $path -array service
+set xml_report_dir [aa_test::xml_report_dir]
+if { ![empty_string_p $xml_report_dir] } {
+    foreach path [glob $xml_report_dir/*-installreport.xml] {
+        aa_test::parse_install_file -path $path -array service
 
-    set test_path [aa_test::test_file_path -install_file_path $path]
-    if { [file exists $test_path] } {
-        aa_test::parse_test_file -path $test_path -array test
-        array set testcase_failure $test(testcase_failure)
-        set service(num_errors) [llength [array names testcase_failure]]
-    } 
+        set test_path [aa_test::test_file_path -install_file_path $path]
+        if { [file exists $test_path] } {
+            aa_test::parse_test_file -path $test_path -array test
+            array set testcase_failure $test(testcase_failure)
+            set service(num_errors) [llength [array names testcase_failure]]
+        } 
 
-    multirow append servers \
-	$service(path) \
-	[export_vars -base server { path }] \
-	$service(name) \
-	$service(install_end_timestamp) \
-	$service(num_errors) \
-	$service(parse_errors)
-}
+        multirow append servers \
+            $service(path) \
+            [export_vars -base server { path }] \
+            $service(name) \
+            $service(install_end_timestamp) \
+            $service(num_errors) \
+            $service(parse_errors)
+    }
+}
\ No newline at end of file