Index: openacs-4/packages/xowiki/www/admin/portal-element-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/portal-element-add.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/xowiki/www/admin/portal-element-add.tcl	9 Apr 2008 10:57:48 -0000	1.9
+++ openacs-4/packages/xowiki/www/admin/portal-element-add.tcl	12 Jul 2010 15:13:19 -0000	1.10
@@ -12,9 +12,9 @@
   {-referer .}
 }
 
-set page_id [$package_id resolve_request -path $page_name method]
+set page [my get_page_from_item_ref $page_name]
 
-if {$page_id eq ""} {
+if {$page eq ""} {
   #
   # If a page with the given name does not exist, return an error.
   #
@@ -26,7 +26,7 @@
   #
   # The page exists, get the title of the page...
   #
-  set page_title [$page_id title]
+  set page_title [$page title]
 
   # for the time being, we add the portlet on the first page (page 0)
   set portal_page_id [portal::get_page_id -portal_id $portal_id -sort_key 0]