Index: openacs-4/packages/acs-kernel/acs-kernel.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/acs-kernel.info,v
diff -u -N -r1.17.2.6 -r1.17.2.7
--- openacs-4/packages/acs-kernel/acs-kernel.info 7 Mar 2003 15:29:02 -0000 1.17.2.6
+++ openacs-4/packages/acs-kernel/acs-kernel.info 6 Apr 2003 00:28:24 -0000 1.17.2.7
@@ -6,192 +6,61 @@
ACS Kernel Services
t
t
-
+
-
- oracle
- postgresql
-
Don Baccus
Routines and data models providing the foundation for OpenACS-based Web services.
2002-10-27
OpenACS
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl,v
diff -u -N -r1.11.2.4 -r1.11.2.5
--- openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl 10 Mar 2003 19:32:51 -0000 1.11.2.4
+++ openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl 6 Apr 2003 00:28:52 -0000 1.11.2.5
@@ -9,32 +9,6 @@
@cvs-id $Id$
}
-ad_proc -private -deprecated apm_load_xml_packages {} {
-
-
- NOTE: This proc doesn't do anything anymore.
-
-
-
- Loads XML packages into the running interpreter, if they're not
- already there. We need to load these packages once per connection,
- since AOLserver doesn't seem to deal with packages very well.
-
-
-} {
- global ad_conn
- if { ![info exists ad_conn(xml_loaded_p)] } {
- # ns_xml needs to be loaded
-
-# foreach file [glob "[acs_package_root_dir acs-tcl]/tcl/xml-*-procs.tcl"] {
-# apm_source $file
-# }
- set ad_conn(xml_loaded_p) 1
- }
-
-# package require xml 1.9
-}
-
ad_proc -private apm_required_attribute_value { element attribute } {
Returns an attribute of an XML element, throwing an error if the attribute
Index: openacs-4/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index.tcl,v
diff -u -N -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 ""