Index: openacs-4/packages/acs-automated-testing/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-automated-testing/www/index.tcl	24 Feb 2004 16:59:35 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/www/index.tcl	26 Feb 2004 13:36:50 -0000	1.4
@@ -11,7 +11,7 @@
 
 set page_title "Test Servers Control Page"
 set context [list]
-multirow create servers path local_url remote_url name description install_date error_total_count parse_errors
+multirow create servers path admin_login_url local_url remote_url name description install_date error_total_count parse_errors
 
 set xml_report_dir [aa_test::xml_report_dir]
 if { ![empty_string_p $xml_report_dir] } {
@@ -24,9 +24,12 @@
             array set testcase_failure $test(testcase_failure)
             set service(num_errors) [llength [array names testcase_failure]]
         } 
+	
+	set admin_login_url [export_vars -base "$service(url)/register/auto-login" {{email {$service(adminemail)}} {password {$service(adminpassword)}}}]
 
         multirow append servers \
             $service(path) \
+	    $admin_login_url \
             [export_vars -base server { path }] \
 	    $service(url) \
             $service(name) \