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.57 -r1.58 --- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 29 May 2002 04:45:23 -0000 1.57 +++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 29 May 2002 19:05:11 -0000 1.58 @@ -148,6 +148,8 @@ ] set parent_package_id $parent_node(object_id) + ns_log notice "dotlrn::mount_package: [array get parent_node]" + set node_id [site_nodes::site_node_create \ -parent_node_id $parent_node_id \ -node_id $node_id \ @@ -158,6 +160,8 @@ set pretty_name $package_key } + ns_log notice "dotlrn::mount_package: $node_id / $pretty_name / $parent_package_id / $package_key" + set package_id [site_node_create_package_instance $node_id $pretty_name $parent_package_id $package_key] } @@ -203,7 +207,7 @@ {-community_id:required} {-package_key:required} } { - like above but returns the pacakge_id + like above but returns the package_id } { set node_id [get_community_applet_node_id \ -community_id $community_id \