Index: openacs-4/packages/acs-automated-testing/www/server.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/server.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-automated-testing/www/server.tcl	7 Aug 2017 23:47:46 -0000	1.4
+++ openacs-4/packages/acs-automated-testing/www/server.tcl	3 Sep 2024 15:37:30 -0000	1.5
@@ -11,21 +11,23 @@
 set test_path [aa_test::test_file_path -install_file_path $path]
 set has_test_report_p [file exists $test_path]
 
-multirow create testcase_failures testcase_id count 
+multirow create testcase_failures testcase_id count
 
 if { $has_test_report_p } {
     aa_test::parse_test_file -path $test_path -array test
 
     array set testcase_failure $test(testcase_failure)
     foreach testcase_id [array names testcase_failure] {
-	multirow append testcase_failures $testcase_id $testcase_failure($testcase_id)
+        multirow append testcase_failures $testcase_id $testcase_failure($testcase_id)
     }
 }
 
 set page_title "Control Page for Server $service(name)"
 set context [list $page_title]
 
-set admin_login_url [export_vars -base "$service(url)/register/auto-login" {{email {$service(adminemail)}} {password {$service(adminpassword)}}}]
+set admin_login_url [export_vars -base "$service(url)/register/auto-login" {
+    {email {$service(adminemail)}} {password {$service(adminpassword)}}
+}]
 
 set rebuild_url [export_vars -base rebuild-server { { server $service(name) } }]
 set rebuild_log_url "/rebuild-$service(name).log"