Index: openacs-4/packages/assessment/tcl/assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/assessment-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/assessment/tcl/assessment-procs.tcl	23 Sep 2004 14:20:55 -0000	1.12
+++ openacs-4/packages/assessment/tcl/assessment-procs.tcl	23 Sep 2004 18:46:56 -0000	1.13
@@ -116,6 +116,7 @@
     {-required_p ""}
     {-data_type ""}
     {-max_time_to_complete ""}
+    {-feedback_text ""}
 } {
     @author Eduardo Perez (eperez@it.uc3m.es)
     @creation-date 2004-07-26
@@ -127,7 +128,7 @@
 
     # 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] ] ]
+    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_text $feedback_text] ] ]
 
     return $as_item_id
 }