Index: openacs-4/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/www/index.tcl	7 Apr 2003 12:16:41 -0000	1.4
+++ openacs-4/www/index.tcl	17 May 2003 12:51:57 -0000	1.5
@@ -26,6 +26,15 @@
     focus:onevalue
 }
 
+# DRB: vertical applications like dotLRN can set the IndexRedirectUrl parameter to force the user
+# to an index page of its choice.
+
+set redirect_url [parameter::get_from_package_key -package_key acs-kernel -parameter IndexRedirectUrl]
+if { ![string equal $redirect_url ""] } {
+    ad_returnredirect $redirect_url
+    ad_script_abort
+}
+
 set user_id [ad_get_user_id]
 if { $user_id == 0 } {
     set user_id ""
@@ -51,7 +60,7 @@
 set form_vars [export_form_vars return_url time token_id hash]
 
 set allow_persistent_login_p [ad_parameter -package_id [ad_acs_kernel_id] AllowPersistentLoginP security 1]
-if {[ad_parameter -package_id [ad_acs_kernel_id] PersistentLoginDefaultP security 1]} {
+if {[ad_parameter -package_id [ad_acs_kernel_id] DefaultPersistentLoginP security 0]} {
     set remember_password "checked=\"checked\""
 } else {
     set remember_password ""