Index: openacs-4/packages/xowiki/www/admin/delete-type.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/delete-type.tcl,v diff -u -r1.15.2.3 -r1.15.2.4 --- openacs-4/packages/xowiki/www/admin/delete-type.tcl 8 Mar 2023 10:46:42 -0000 1.15.2.3 +++ openacs-4/packages/xowiki/www/admin/delete-type.tcl 28 Apr 2023 13:12:38 -0000 1.15.2.4 @@ -12,6 +12,11 @@ {-return_url:localurl "."} } +if {![nsf::is object $object_type] || ![$object_type isclass ::xowiki::Page]} { + ad_return_forbidden + ad_script_abort +} + set sql [$object_type instance_select_query \ -with_subtypes 0 \ -folder_id [::$package_id folder_id]]