Index: openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl	7 Apr 2005 21:37:58 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/catalog-search.tcl	27 Oct 2014 16:41:00 -0000	1.5
@@ -9,8 +9,8 @@
     @date   2004-12-08
     @cvs-id $Id: 
 } {
-    assessment_id:integer
-    section_id:integer,optional
+    assessment_id:naturalnum,notnull
+    section_id:naturalnum,optional
     after:integer
 }
 
@@ -46,7 +46,7 @@
     {assessment_id:key}
 }
 
-if {![empty_string_p [category_tree::get_mapped_trees $package_id]]} {
+if {[category_tree::get_mapped_trees $package_id] ne ""} {
     category::ad_form::add_widgets -container_object_id $package_id -form_name catalog_search
 
     ad_form -extend -name catalog_search -form {