Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl	15 May 2002 20:51:57 -0000	1.27
+++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl	15 May 2002 22:39:42 -0000	1.28
@@ -63,13 +63,20 @@
         dotlrn_applet::add_applet_to_dotlrn -applet_key "dotlrn_dotlrn"
     }
 
+    ad_proc -public remove_applet {
+	package_id
+    } {
+	remove the applet from dotlrn
+    } {
+    }
+
     ad_proc -public add_applet_to_community {
 	community_id
     } {
 	Add the dotlrn applet to a specific community
     } {
-        set portal_id portal_id [dotlrn_community::get_portal_id \
-                                     -community_id $community_id
+        set portal_id [dotlrn_community::get_portal_id \
+                           -community_id $community_id
         ]
         set args [ns_set create args]
         ns_set put $args community_id $community_id
@@ -95,13 +102,6 @@
         dotlrn_dotlrn::remove_portlet $portal_id $args
     }
 
-    ad_proc -public remove_applet {
-	package_id
-    } {
-	remove the applet from dotlrn
-    } {
-    }
-
     ad_proc -public add_user {
 	user_id
     } {
@@ -170,7 +170,7 @@
         A helper proc to remove the underlying portlet from the given portal. 
         
         @param portal_id
-        @param args a list-ified array of args defined in remove_applet_from_community
+        @param args ns_set (community_id?)
     } {
         # since this portlet is only added to community portals or portal templates
         # we only need to check for community_id in the ns_set
Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl	14 May 2002 21:42:16 -0000	1.8
+++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-staff-procs.tcl	15 May 2002 22:39:42 -0000	1.9
@@ -145,8 +145,8 @@
         Clone this applet's content from the old community to the new one
     } {
         ns_log notice "** Error in [get_pretty_name] 'clone' not implemented!"
-        ad_return_complaint 1  "Please notifiy the administrator of this error:
-        ** Error in [get_pretty_name]: 'clone' not implemented!"
+#        ad_return_complaint 1  "Please notifiy the administrator of this error:
+#        ** Error in [get_pretty_name]: 'clone' not implemented!"
     }
 	
 }