Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -N -r1.35.2.9 -r1.35.2.10
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	10 May 2006 14:58:55 -0000	1.35.2.9
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	11 May 2006 15:01:45 -0000	1.35.2.10
@@ -393,7 +393,7 @@
 			array set as_item $as_item_list
 			set as_item_id $as_item(as_item_id)
 			set as_item__duration $as_item(duration)
-			set as_item__points $as_item(points)
+			set as_item__points [expr int($as_item(points))]
 			set as_item__required_p $as_item(required_p)
 			db_dml as_item_section_map_insert {}
 			incr as_item_sect_map__sort_order
@@ -572,13 +572,13 @@
 			# get score
 			set scoreNodes [$respcondition selectNodes {setvar/text()}]
 			foreach scorenode $scoreNodes {
-			    set score [string trim [$scorenode nodeValue]]
+			    set score [expr int([string trim [$scorenode nodeValue]])]
 			    if {$score>0} {
 				set as_item_choices__correct_answer_p($choice_id) {t}
 			    }
 			}
 			set as_item_choices__score($choice_id) $score
-			incr as_items__points $score		    
+			incr as_items__points $score
 		    }
 		}
 		
@@ -592,7 +592,7 @@
 			# get score
 			set scoreNodes [$respcondition selectNodes {setvar/text()}]
 			foreach scorenode $scoreNodes {
-			    set score [string trim [$scorenode nodeValue]]
+			    set score [expr int([string trim [$scorenode nodeValue]])]
 			    if {$score>0} {
 				set as_item_choices__correct_answer_p($choice_id) {t}
 			    }