Index: openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl,v
diff -u -r1.6 -r1.6.6.1
--- openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl	15 May 2007 20:14:17 -0000	1.6
+++ openacs-4/packages/assessment/www/asm-admin/catalog-item-add.tcl	18 Aug 2014 20:25:04 -0000	1.6.6.1
@@ -80,10 +80,10 @@
 
 db_multirow -extend { presentation_type html choice_orientation } items items {} {
     set presentation_type [as::item_form::add_item_to_form -name show_items -section_id $section_id -item_id $as_item_id]
-    if {$presentation_type == "fitb"} {
+    if {$presentation_type eq "fitb"} {
         regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
     }
-    if {$presentation_type == "rb" || $presentation_type == "cb"} {
+    if {$presentation_type eq "rb" || $presentation_type eq "cb"} {
 	array set item [as::item::item_data -as_item_id $as_item_id]
 	array set type [as::item_display_$presentation_type\::data -type_id $item(display_type_id)]
 	set choice_orientation $type(choice_orientation)
@@ -93,7 +93,7 @@
 	set choice_orientation ""
     }
 
-    if {[empty_string_p $points]} {
+    if {$points eq ""} {
 	set points 0
     }
     set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]