Index: openacs-4/packages/assessment/www/admin/item-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/item-add.tcl	8 Dec 2004 15:30:34 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/item-add.tcl	10 Dec 2004 11:42:23 -0000	1.3
@@ -41,6 +41,7 @@
 
 ad_form -name item_add -action item-add -export { assessment_id section_id after } -form {
     {as_item_id:key}
+    {name:text {label "[_ assessment.Name]"} {html {size 80 maxlength 1000}} {help_text "[_ assessment.item_Name_help]"}}
     {title:text {label "[_ assessment.Title]"} {html {size 80 maxlength 1000}} {help_text "[_ assessment.item_Title_help]"}}
     {description:text(textarea) {label "[_ assessment.Description]"} {html {rows 5 cols 80}} {help_text "[_ assessment.item_Description_help]"}}
 }
@@ -57,35 +58,38 @@
     {feedback_right:text(textarea),optional {label "[_ assessment.Feedback_right]"} {html {rows 5 cols 80}} {help_text "[_ assessment.Feedback_right_help]"}}
     {feedback_wrong:text(textarea),optional {label "[_ assessment.Feedback_wrong]"} {html {rows 5 cols 80}} {help_text "[_ assessment.Feedback_wrong_help]"}}
     {max_time_to_complete:integer,optional {label "[_ assessment.time_for_completion]"} {html {size 10 maxlength 10}} {help_text "[_ assessment.item_time_help]"}}
+    {points:integer,optional {label "[_ assessment.points_item]"} {html {size 10 maxlength 10}} {help_text "[_ assessment.points_item_help]"}}
     {data_type:text(select) {label "[_ assessment.Data_Type]"} {options $data_types} {help_text "[_ assessment.Data_Type_help]"}}
     {item_type:text(select) {label "[_ assessment.Item_Type]"} {options $item_types} {help_text "[_ assessment.Item_Type_help]"}}
 } -new_request {
+    set name ""
     set title ""
     set description ""
     set subtext ""
     set field_code ""
-    set definition ""
     set required_p t
     set feedback_right ""
     set feedback_wrong ""
     set max_time_to_complete ""
+    set points ""
     set data_type "varchar"
     set item_type "sa"
 } -on_submit {
     set category_ids [category::ad_form::get_categories -container_object_id $package_id]
 } -new_data {
     db_transaction {
 	set as_item_id [as::item::new \
+			    -name $name \
 			    -title $title \
 			    -description $description \
 			    -subtext $subtext \
 			    -field_code $field_code \
-			    -definition $definition \
 			    -required_p $required_p \
 			    -data_type $data_type \
 			    -feedback_right $feedback_right \
 			    -feedback_wrong $feedback_wrong \
-			    -max_time_to_complete $max_time_to_complete]
+			    -max_time_to_complete $max_time_to_complete \
+			    -points $points]
 
 	if {[exists_and_not_null category_ids]} {
 	    category::map_object -object_id $as_item_id $category_ids