Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v diff -u -N -r1.10 -r1.10.6.1 --- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl 11 Dec 2003 21:39:56 -0000 1.10 +++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl 10 Dec 2005 11:48:21 -0000 1.10.6.1 @@ -35,12 +35,9 @@ # If the parent node didn't have anything mounted, use the current package_id as context_id set context_id [ad_conn package_id] array set node [site_node::get -node_id $node_id] - if { ![empty_string_p $node(parent_id)] } { - array set parent_node [site_node::get -node_id $node(parent_id)] - if { ![empty_string_p $parent_node(object_id)] } { - set context_id $parent_node(object_id) - } + if { ![empty_string_p $node(object_id)] } { + set context_id $node(object_id) } if { $new_node_p } {