Index: openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl,v
diff -u -r1.8 -r1.8.8.1
--- openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl	27 May 2005 15:43:31 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl	18 Aug 2014 20:25:04 -0000	1.8.8.1
@@ -76,15 +76,15 @@
 }
 
 set itype_where_clause ""
-if {[exists_and_not_null itype]} {
+if {([info exists itype] && $itype ne "")} {
     set obj_type "as_item_type_$itype"
     set itype_where_clause [db_map item_type]
 }
 
 set category_ids_length [llength $category_ids]
 if {$category_ids_length > 0} {
     set category_id_sql [join $category_ids ,]
-    if {$join == "and"} {
+    if {$join eq "and"} {
 	# combining categories with and
 	if {$subtree_p == "t"} {
 	    # generate sql for exact categorizations plus subcategories
@@ -111,7 +111,7 @@
 }
 
 set keyword_where_clause ""
-if {![empty_string_p $keywords]} {
+if {$keywords ne ""} {
     set keyword_sql [string tolower "%$keywords%"]
     if {[info exists section_id]} {
 	set keyword_where_clause [db_map item_keywords]