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.9 -r1.10 --- openacs-4/packages/assessment/tcl/as-item-procs.tcl 14 Jan 2005 13:13:37 -0000 1.9 +++ openacs-4/packages/assessment/tcl/as-item-procs.tcl 19 Jan 2005 16:49:14 -0000 1.10 @@ -36,7 +36,7 @@ if {[empty_string_p $name]} { set name "QUE_$item_item_id" } - set item_item_id [content::item::new -item_id $item_item_id -parent_id $folder_id -content_type {as_items} -name $name -title $title ] + set item_item_id [content::item::new -item_id $item_item_id -parent_id $folder_id -content_type {as_items} -name $name] set as_item_id [content::revision::new -item_id $item_item_id \ -content_type {as_items} \ -title $title \ @@ -164,7 +164,7 @@ if {[empty_string_p $name]} { set name "QUE_$item_item_id" } - set item_item_id [content::item::new -item_id $item_item_id -parent_id $folder_id -content_type {as_items} -name $name -title $title ] + set item_item_id [content::item::new -item_id $item_item_id -parent_id $folder_id -content_type {as_items} -name $name] set new_item_id [content::revision::new \ -item_id $item_item_id \ -content_type {as_items} \