Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	9 Jul 2002 20:18:15 -0000	1.61
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	13 Jul 2002 00:13:09 -0000	1.62
@@ -72,7 +72,7 @@
                     -value $package_id
         }
 
-        dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key]
+        dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
     }
 
     ad_proc -public remove_applet {
@@ -124,7 +124,7 @@
         #
         # automount calendar in this community
         set node_id [site_node::get_node_id \
-            -url [site_node::get_url_from_object_id -object_id [dotlrn_community::get_package_id $community_id]] \
+            -url [lindex [site_node::get_url_from_object_id -object_id [dotlrn_community::get_package_id $community_id]] 0] \
         ]
 
         set package_id [dotlrn::mount_package \
@@ -151,9 +151,9 @@
                 -node_id $attachments_node_id \
                 -object_id [apm_package_id_from_key attachments]
 
-            set fs_package_id [dotlrn::get_community_applet_package_id \
+            set fs_package_id [dotlrn_community::get_applet_package_id \
                  -community_id $community_id \
-                 -package_key [dotlrn_fs::package_key]
+                 -applet_key [dotlrn_fs::applet_key]
             ]
                                      
             # map the fs root folder to the package_id of the new forums pkg