Index: openacs-4/packages/cms/www/modules/items/create-1.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/create-1.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/cms/www/modules/items/create-1.tcl 16 Aug 2002 03:57:48 -0000 1.3 +++ openacs-4/packages/cms/www/modules/items/create-1.tcl 13 Apr 2005 20:15:19 -0000 1.4 @@ -7,21 +7,15 @@ request set_param mount_point -datatype keyword -value "sitemap" request set_param parent_id -datatype integer -optional -set flush_parent_id $parent_id - # Manually set the value since the templating system is still broken in # the -value flag if { [template::util::is_nil parent_id] } { set parent_id [cm::modules::${mount_point}::getRootFolderID] } -# permissions check - need cm_new on the parent item -content::check_access $parent_id cm_new -user_id [User::getID] +permission::require_permission -party_id [auth::require_login] \ + -object_id $parent_id -privilege write -# flush the sitemap folder listing cache in anticipation -# of the new item -cms_folder::flush sitemap $flush_parent_id - # check for custom create-1 form if { [file exists [ns_url2file \ "custom/$content_type/create-1.tcl"]] } {