Index: openacs-4/contrib/packages/simulation/www/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/Attic/object-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/www/object-edit.tcl	17 Oct 2003 09:22:55 -0000	1.3
+++ openacs-4/contrib/packages/simulation/www/object-edit.tcl	17 Oct 2003 09:55:53 -0000	1.4
@@ -164,7 +164,8 @@
     set elm_decl "attr__${content_type}__${attribute_name}:$form_datatype($datatype)($form_widget($datatype))"
 
     set optional_p [expr ![empty_string_p $default_value] || $min_n_values == 0]
-    if { $optional_p } {
+    # LARS hack: Make extra attributes optional
+    if { 1 || $optional_p } {
         append elm_decl ",optional"
     }
 
@@ -184,6 +185,8 @@
 
 } -new_data {
     
+    permission::require_permission -privilege 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] } {
@@ -218,6 +221,8 @@
 
 } -edit_request {
     
+    permission::require_write_permission -object_id $item_id
+
     foreach elm { title name description } {
         set $elm $content($elm)
     }