Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	10 Nov 2001 18:03:23 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	10 Nov 2001 18:45:25 -0000	1.8
@@ -48,4 +48,31 @@
     } {
 	db_dml update_user_theme {}
     }
+
+    ad_proc -public instantiate_and_mount {
+	{-mount_point ""}
+	community_id
+	package_key
+    } {
+	Mount an application under a particular community
+    } {
+	if {[empty_string_p $mount_point]} {
+	    set mount_point $package_key
+	}
+
+	# Get the parent node_id correctly
+	set package_id [dotlrn_community:get_package_id $community_id]
+
+	# We only take the first node right now
+	# FIXME: in case of multi-mounting, which is doubtful, but possible
+	# we have a proble here.
+	set parent_node_id [db_string select_node_id {}]
+
+	# Mount
+	set new_package_id [site_node_mount_application -return package_id $parent_node_id $mount_point $package_key $package_key]
+
+	# Return the newly created package_id
+	return $new_package_id
+    }
+	
 }
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	10 Nov 2001 18:03:23 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	10 Nov 2001 18:45:25 -0000	1.4
@@ -32,4 +32,10 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn::mount.select_node_id">
+<querytext>
+select node_id from site_nodes where object_id= :package_id
+</querytext>
+</fullquery>
+
 </queryset>