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}}}
}
}
}