Index: openacs-4/packages/acs-authentication/acs-authentication.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/acs-authentication.info,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-authentication/acs-authentication.info 24 Oct 2003 16:44:19 -0000 1.7
+++ openacs-4/packages/acs-authentication/acs-authentication.info 28 Oct 2003 16:37:19 -0000 1.8
@@ -18,13 +18,14 @@
-
+
+
Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 24 Oct 2003 16:44:19 -0000 1.25
+++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 28 Oct 2003 16:37:20 -0000 1.26
@@ -356,12 +356,14 @@
} else {
set user_id $result(user_id)
- set dotlrn_urls [site_node::get_children \
- -package_key "dotlrn" \
- -node_id [site_node::get_node_id -url /]]
+ set add_to_dotlrn_p [parameter::get_from_package_key \
+ -parameter SyncAddUsersToDotLrnP \
+ -package_key "acs-authentication" \
+ -default 0]
- if { [llength $dotlrn_urls] > 0 } {
- # .LRN is installed and mounted, add user to .LRN
+ if { $add_to_dotlrn_p } {
+ # Add user to .LRN
+ # Beware that this creates a portal and lots of other things for each user
set type [parameter::get_from_package_key \
-parameter SyncDotLrnUserType \