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 -r1.17.2.2 -r1.17.2.3 --- openacs-4/packages/xowiki/www/admin/portal-element-add.tcl 9 Aug 2019 08:29:28 -0000 1.17.2.2 +++ openacs-4/packages/xowiki/www/admin/portal-element-add.tcl 7 Feb 2020 08:44:05 -0000 1.17.2.3 @@ -31,32 +31,32 @@ # 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] - + if {[xo::dc get_value check_unique_name_on_page { select 1 from portal_element_map - where page_id = :portal_page_id + where page_id = :portal_page_id and pretty_name = :page_title } 0]} { # # The name of the portal element is not unique. # ad_return_error \ - [_ xowiki.portlet_title_exists_error_short] \ - [_ xowiki.portlet_title_exists_error_long $page_title] + [_ xowiki.portlet_title_exists_error_short] \ + [_ xowiki.portlet_title_exists_error_long $page_title] ad_script_abort } else { # # everything ok, add the portal element # db_transaction { set element_id [portal::add_element \ - -portal_id $portal_id \ - -portlet_name [xowiki_portlet name] \ - -pretty_name $page_title \ - -force_region [parameter::get_from_package_key \ - -parameter "xowiki_portal_content_force_region" \ - -package_key "xowiki-portlet"] - ] + -portal_id $portal_id \ + -portlet_name [xowiki_portlet name] \ + -pretty_name $page_title \ + -force_region [parameter::get_from_package_key \ + -parameter "xowiki_portal_content_force_region" \ + -package_key "xowiki-portlet"] + ] portal::set_element_param $element_id package_id $package_id # in case, someone wants language-specific includelets #regexp {^..:(.*)$} $page_name _ page_name