Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	4 Jun 2006 00:45:21 -0000	1.35
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	14 Jul 2006 00:34:48 -0000	1.36
@@ -1020,6 +1020,10 @@
 namespace eval aa_test {}
 
 ad_proc -public aa_test::xml_report_dir {} {
+    Retrieves the XMLReportDir parameter.
+
+    @return Returns the value for the XMLReportDir parameter.
+} {
     return [parameter::get -parameter XMLReportDir]
 }
 
@@ -1209,6 +1213,13 @@
     {-response:required}
     {-explanation:required}
 } {
+    Displays either a pass or fail result with specified explanation
+    depending on the given response.
+
+    @param response A boolean value where true (or 1, etc) corresponds
+    to a pass result, otherwise the result is a fail.
+    @param explanation An explanation accompanying the response.
+} {
     if {$response} {
 	aa_log_result "pass" $explanation
     } else {