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.17 -r1.18
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	10 Jan 2005 18:55:11 -0000	1.17
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	10 Jan 2005 19:01:13 -0000	1.18
@@ -325,8 +325,9 @@
 		    }
 		    # Insert as_item_choice
 		    set as_item_choices__correct_answer_p($as_item_choices__ident) [expr [info exists as_item_choices__correct_answer_p($as_item_choices__ident)]?{t}:{f}]
-		    set as_item_choices__score($as_item_choices__ident) [expr round(100 * $as_item_choices__score($as_item_choices__ident) / $as_items__points)]
-		    if {![info exists as_item_choices__score($as_item_choices__ident)]} {
+		    if {[info exists as_item_choices__score($as_item_choices__ident)]} {
+			set as_item_choices__score($as_item_choices__ident) [expr round(100 * $as_item_choices__score($as_item_choices__ident) / $as_items__points)]
+		    } else {
 			set as_item_choices__score($as_item_choices__ident) 0
 		    }
 		    # insert as_item_choice
Index: openacs-4/packages/assessment/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/index.adp,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/index.adp	29 Dec 2004 09:07:39 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/index.adp	10 Jan 2005 19:04:22 -0000	1.5
@@ -5,7 +5,6 @@
 <a href="@categories_url@cadmin/one-object?object_id=@package_id@">#assessment.admin_categories#</a>
 <p>
 
-<font color=red>QTI DOES NOT WORK AT THIS TIME</font>
 <formtemplate id="form_upload_file"></formtemplate>
 <p>
 <listtemplate name="assessments"></listtemplate>