Index: openacs-4/packages/acs-admin/www/auth/login-attempts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/login-attempts.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/auth/login-attempts.tcl	29 Jun 2018 17:27:18 -0000	1.2
+++ openacs-4/packages/acs-admin/www/auth/login-attempts.tcl	3 Sep 2024 15:37:29 -0000	1.3
@@ -16,20 +16,28 @@
                                   -default 0]
 
 set auth_package_id [apm_package_id_from_key "acs-authentication"]
-set parameter_url [export_vars -base /shared/parameters { { package_id $auth_package_id } { return_url [ad_return_url] } }]
+set parameter_url [export_vars -base /shared/parameters {
+    { package_id $auth_package_id }
+    { return_url [ad_return_url] }
+}]
 
 ::template::multirow create login_attempts attempt_key attempts locked_until flush_url
 
 foreach { attempt_key seconds attempts } [::auth::login_attempts::get_all] {
-    ::template::multirow append login_attempts $attempt_key $attempts [clock_to_ansi $seconds] [export_vars -base "login-attempts-reset" {attempt_key}]
+    ::template::multirow append login_attempts \
+        $attempt_key $attempts [lc_clock_to_ansi $seconds] \
+        [export_vars -base "login-attempts-reset" {attempt_key}]
 }
 
-
 list::create \
     -name "login_attempts" \
     -multirow "login_attempts" \
-    -actions [list "Flush all" "[export_vars -base "login-attempts-reset" {{attempt_key all}}]" "Clear all login attempts" \
-                   "Configure" "[export_vars -base "/shared/parameters" {{package_id $auth_package_id} {return_url [ad_return_url]}}]" "Configure"] \
+    -actions [list "Flush all" \
+                  [export_vars -base "login-attempts-reset" {{attempt_key all}}] \
+                  "Clear all login attempts" \
+                  "Configure" \
+                  [export_vars -base "/shared/parameters" {{package_id $auth_package_id} {return_url [ad_return_url]}}] \
+                  "Configure"] \
     -bulk_actions {"Flush selected attempts" "login-attempts-reset" "Flush selected attempts"} \
     -bulk_action_method "post" \
     -pass_properties {max_failed_login_attempts} \