Index: openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl	22 Jun 2002 20:11:03 -0000	1.4
+++ openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl	2 Jul 2002 23:01:51 -0000	1.5
@@ -30,7 +30,7 @@
     } {
         get the applet_key
     } {
-        return "dotlrn_bm"
+        return dotlrn_bm
     }
 
     ad_proc -public my_package_key {
@@ -61,13 +61,14 @@
             set package_id [dotlrn::mount_package \
                 -package_key [package_key] \
                 -url [package_key] \
-                -directory_p "t"]
+                -directory_p t \
+            ]
 
             dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key]
 
             dotlrn_applet::mount \
                 -package_key [my_package_key] \
-                -url "bm" \
+                -url bm \
                 -pretty_name [get_pretty_name]
         }
     }
@@ -76,7 +77,6 @@
     } {
         remove the applet from dotlrn
     } {
-        # noop
     }
 
     ad_proc -public add_applet_to_community {
@@ -86,6 +86,7 @@
     } {
         set portal_id [dotlrn_community::get_admin_portal_id -community_id $community_id]
         set package_id [dotlrn::instantiate_and_mount $community_id [package_key]]
+
         bm_portlet::add_self_to_page -portal_id $portal_id -package_id $package_id
 
         return $package_id
@@ -99,7 +100,7 @@
         set portal_id [dotlrn_community::get_admin_portal_id -community_id $community_id]
         set package_id [dotlrn::get_community_applet_package_id \
             -community_id $community_id \
-            -package_key [package_key]
+            -package_key [package_key] \
         ]
 
         bm_portlet::remove_self_from_page -portal_id $portal_id -package_id $package_id
@@ -163,14 +164,9 @@
     } {
         clone this applet's content from the old community to the new one
     } {
-        ns_log notice "Cloning [applet_key]"
         add_applet_to_community $new_community_id
     }
 
-    #
-    # misc procs
-    #
-
     ad_proc -public get_package_id {
     } {
         returns the package_id of the dotlrn-bm package