Index: openacs-4/packages/acs-subsite/acs-subsite.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v diff -u -r1.131 -r1.131.2.1 --- openacs-4/packages/acs-subsite/acs-subsite.info 23 Oct 2018 08:29:17 -0000 1.131 +++ openacs-4/packages/acs-subsite/acs-subsite.info 24 Feb 2019 07:58:20 -0000 1.131.2.1 @@ -9,7 +9,7 @@ t t - + OpenACS Subsite 2017-08-06 @@ -18,7 +18,7 @@ GPL 3 - + @@ -94,6 +94,7 @@ } " description="Navigation tabs to show administrators" section_name="Navigation Tabs"/> + 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}}} } } }