Index: openacs-4/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/www/index.tcl	2 Sep 2002 11:18:09 -0000	1.3
+++ openacs-4/www/index.tcl	6 Apr 2003 00:29:08 -0000	1.3.2.1
@@ -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 ""