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.17 -r1.18
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	6 Aug 2006 17:27:45 -0000	1.17
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	26 Sep 2006 04:08:37 -0000	1.18
@@ -170,7 +170,7 @@
     	set package_id [ad_conn package_id]
     }
     set folder_id [as::assessment::folder_id -package_id $package_id]
-
+    set new_title $title
     db_transaction {
 	db_1row item_data {}
 
@@ -180,12 +180,12 @@
 	    set field_name $name
 	}
 
-        set item_item_id [content::item::new -item_id $item_item_id -parent_id $folder_id -content_type {as_items} -name $name]
+        set item_item_id [content::item::new -item_id $item_item_id -parent_id $folder_id -content_type {as_items} -name $name -storage_type text]
         set new_item_id [content::revision::new \
 			     -item_id $item_item_id \
 			     -content_type {as_items} \
-			     -title $title \
-			     -content $content \
+			     -title [string range $new_title 0 999] \
+			     -content $new_title \
 			     -description $description \
 			     -attributes [list [list subtext $subtext] \
 					      [list field_name $field_name] \