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.2 -r1.3
--- openacs-4/packages/assessment/tcl/assessment-procs.tcl	28 Jul 2004 11:10:31 -0000	1.2
+++ openacs-4/packages/assessment/tcl/assessment-procs.tcl	28 Jul 2004 14:59:49 -0000	1.3
@@ -36,7 +36,7 @@
     return $as_item_choice_id
 }
 
-ad_proc -public as_item_mc_new {
+ad_proc -public as_item_type_mc_new {
     {-name:required}
     {-title:required}
     {-description ""}
@@ -59,17 +59,38 @@
 
 }
 
+ad_proc -public as_item_display_rb_new {
+    {-name:required}
+    {-title:required}
+    {-description ""}
+    {-increasing_p ""}
+    {-allow_negative_p ""}
+    {-num_correct_answers ""}
+    {-num_answers ""}
+} {
+    @author Eduardo Perez (eperez@it.uc3m.es)
+    @creation-date 2004-07-26
+
+    New Multiple Choice item to the data database
+} {
+    set package_id [ad_conn package_id]
+    set folder_id [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"]
+
+    # Insert as_item_type_mc in the CR (and as_item_type_mc table) getting the revision_id (as_item_type_id)
+    set item_item_type_mc_id [content::item::new -parent_id $folder_id -content_type {as_item_type_mc} -name $as_items__name -title $as_items__title ]
+    set as_item_type_mc_id [content::revision::new -item_id $item_item_id -content_type {as_item_type_mc} -title $as_items__title -attributes [list [list increasing_p $increasing_p] [list allow_negative_p $allow_negative_p] [list num_correct_answers $num_correct_answers] [list num_answers $num_answers] ] ]
+
+}
+
 ad_proc -public as_item_new {
     {-name:required}
     {-title:required}
     {-description ""}
-    {-item_type_id ""}
-    {-item_display_type_id ""}
-    {-item_subtext ""}
+    {-type ""}
+    {-display ""}
+    {-subtext ""}
     {-field_code ""}
-    {-enabled_p ""}
     {-required_p ""}
-    {-item_default ""}
     {-max_time_to_complete ""}
 } {
     @author Eduardo Perez (eperez@it.uc3m.es)
@@ -82,7 +103,7 @@
 
     # Insert as_item in the CR (and as_assessments 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 item_type_id $item_type_id] [list item_display_type_id $item_display_type_id] [list item_subtext $item_subtext] [list field_code $field_code] [list enabled_p $enabled_p] [list required_p $required_p] [list item_default $item_default] [list max_time_to_complete $max_time_to_complete] [list adp_chunk $adp_chunk] ] ]
+    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 required_p $required_p] [list max_time_to_complete $max_time_to_complete] ] ]
 
     return $as_item_id
 }