Index: openacs-4/packages/assessment/tcl/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	14 Oct 2004 11:44:51 -0000	1.1
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	15 Nov 2004 17:17:15 -0000	1.2
@@ -7,7 +7,6 @@
 namespace eval as::item {}
 
 ad_proc -public as::item::new {
-    {-name:required}
     {-title:required}
     {-subtext ""}
     {-field_code ""}
@@ -27,8 +26,20 @@
     set folder_id [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"]
 
     # Insert as_item in the CR (and as_items table) getting the revision_id (as_item_id)
-    set item_item_id [content::item::new -parent_id $folder_id -content_type {as_items} -name $name -title $title ]
-    set as_item_id [content::revision::new -item_id $item_item_id -content_type {as_items} -title $title -attributes [list [list subtext $subtext] [list field_code $field_code] [list definition $definition] [list required_p $required_p] [list data_type $data_type] [list max_time_to_complete $max_time_to_complete] [list feedback_right $feedback_right] [list feedback_wrong $feedback_wrong] ] ]
+    db_transaction {
+        set item_item_id [content::item::new -parent_id $folder_id -content_type {as_items} -name [ad_generate_random_string] -title $title ]
+        set as_item_id [content::revision::new -item_id $item_item_id \
+				-content_type {as_items} \
+				-title $title \
+				-attributes [list [list subtext $subtext] \
+						[list field_code $field_code] \
+						[list definition $definition] \
+						[list required_p $required_p] \
+						[list data_type $data_type] \
+						[list max_time_to_complete $max_time_to_complete] \
+						[list feedback_right $feedback_right] \
+						[list feedback_wrong $feedback_wrong] ] ]
+    }
 
     return $as_item_id
 }
\ No newline at end of file