Index: openacs-4/packages/xowiki/tcl/package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v diff -u -r1.230 -r1.231 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 12 Jul 2010 15:13:19 -0000 1.230 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 13 Jul 2010 11:22:23 -0000 1.231 @@ -1306,7 +1306,7 @@ -parent_id $search_parent_id \ $link] - #my log "[my instance_name] (root [my folder_id]) item-ref for '$link' search parent $search_parent_id, parent $parent_id, returns\n[array get {}]" + #my msg "[my instance_name] (root [my folder_id]) item-ref for '$link' search parent $search_parent_id, parent $parent_id, returns\n[array get {}]" if {$(item_id)} { set page [::xo::db::CrClass get_instance_from_db -item_id $(item_id)] if {[$page package_id] ne [my id] || [$page parent_id] != $(parent_id)} { @@ -1939,21 +1939,22 @@ set name [my query_parameter name] } - if {$item_id eq "" && $name ne ""} { - array set "" [my item_info_from_url $name] + if {$item_id eq ""} { + array set "" [my item_info_from_url -with_package_prefix false $name] if {$(item_id) == 0} { ns_log notice "lookup of '$name' with parent_id $parent_id failed" } else { set parent_id $(parent_id) set item_id $(item_id) set name $(name) } - } elseif {$item_id ne ""} { + } else { + set name [::xo::db::CrClass get_name -item_id $item_id] if {![info exists parent_id]} { set parent_id [::xo::db::CrClass get_parent_id -item_id $item_id] } } - #my msg item_id=$item_id + #my msg item_id=$item_id/name=$name if {$item_id ne ""} { my log "--D trying to delete $item_id $name"