Index: openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/install/Attic/server.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl	12 Feb 2004 12:59:47 -0000	1.1
+++ openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl	16 Feb 2004 16:49:21 -0000	1.2
@@ -1,11 +1,22 @@
 ad_page_contract {
     Control page for an individual server.
 } {
-    name:notnull
+    path:notnull
 }
 
-parse_test_server_file -name $name -array service
+aa_test::parse_install_file -path $path -array service
 
+set test_path [aa_test::test_file_path -install_file_path $path]
+set has_test_report_p [file exists $test_path]
+if { $has_test_report_p } {
+    aa_test::parse_test_file -path $test_path -array test
+}
+
+multirow create testcase_failures testcase_id count
+array set testcase_failure $test(testcase_failure)
+foreach testcase_id [array names testcase_failure] {
+    multirow append testcase_failures $testcase_id $testcase_failure($testcase_id)
+}
+
 set page_title "Control Page For $service(name)"
 set context [list $page_title]
-