Index: openacs-4/packages/acs-subsite/lib/login.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v diff -u -r1.41.2.1 -r1.41.2.2 --- openacs-4/packages/acs-subsite/lib/login.tcl 23 Feb 2019 13:02:06 -0000 1.41.2.1 +++ openacs-4/packages/acs-subsite/lib/login.tcl 24 Feb 2019 07:58:20 -0000 1.41.2.2 @@ -157,12 +157,16 @@ } } -set options_list [list [list [_ acs-subsite.Remember_my_login] "t"]] if { $allow_persistent_login_p } { + set default_persistent_login [parameter::get \ + -package_id $subsite_id \ + -parameter PersistentLoginDefault \ + -default 1] + set checkbox_default [expr {$default_persistent_login == 1 ? "t" : "f"}] ad_form -extend -name login -form { {persistent_p:text(checkbox),optional {label ""} - {options $options_list} + {options {{"[_ acs-subsite.Remember_my_login]" $checkbox_default}}} } } }