Index: openacs-4/packages/simulation/www/citybuild/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/object-edit.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/simulation/www/citybuild/object-edit.tcl	28 Nov 2003 13:15:09 -0000	1.5
+++ openacs-4/packages/simulation/www/citybuild/object-edit.tcl	2 Dec 2003 13:46:53 -0000	1.6
@@ -559,8 +559,15 @@
 
 } -new_data {
     
-    permission::require_permission -privilege create -object_id [ad_conn package_id]
+    # TODO
+    # For now, assume we are always using this to create global objects
+    # When we use this form to create case objects, we should simply check for create permission on the case
+    # we could alternately switch to using the cr folder system, in which case:
+    #    sim_object_create on package_id is replaced by 'create' on a root folder, and
+    #    create on a case is replaced by create on a case's folder
 
+    permission::require_permission -privilege sim_object_create -object_id [ad_conn package_id]
+
     set existing_items [db_list select_items { select name from cr_items where parent_id = :parent_id }]
 
     if { [empty_string_p $name] } {