Index: openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl	9 Dec 2005 12:00:25 -0000	1.4
+++ openacs-4/packages/dotlrn-imsld/tcl/dotlrn-imsld-procs.tcl	25 Apr 2006 10:48:46 -0000	1.5
@@ -109,14 +109,14 @@
 } {
     Add a user to a specifc dotlrn community
 } {
-    set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]]
-    set portal_id [dotlrn::get_portal_id -user_id $user_id]
+#     set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]]
+#     set portal_id [dotlrn::get_portal_id -user_id $user_id]
     
-    # use "append" here since we want to aggregate
-    set args [ns_set create]
-    ns_set put $args package_id $package_id
-    ns_set put $args param_action append
-    add_portlet_helper $portal_id $args
+#     # use "append" here since we want to aggregate
+#     set args [ns_set create]
+#     ns_set put $args package_id $package_id
+#     ns_set put $args param_action append
+#     add_portlet_helper $portal_id $args
 }
 
 ad_proc -public dotlrn_imsld::remove_user_from_community {