Index: openacs-4/packages/categories/www/cadmin/object-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/object-map.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/object-map.tcl	6 Nov 2008 15:50:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/object-map.tcl	8 Nov 2008 17:05:38 -0000	1.5
@@ -32,7 +32,7 @@
 
 db_foreach get_mapped_trees "" {
     set tree_name [category_tree::get_name $tree_id $locale]
-    if {![empty_string_p $subtree_category_id]} {
+    if {$subtree_category_id ne ""} {
       append tree_name " :: [category::get_name $subtree_category_id $locale]"
     }
     template::multirow append mapped_trees $tree_name $tree_id $site_wide_p \
@@ -47,7 +47,7 @@
 template::multirow create unmapped_trees tree_id tree_name site_wide_p view_url map_url subtree_url
 
 db_foreach get_unmapped_trees "" {
-    if { [string equal $has_read_permission t] || [string equal $site_wide_p t] } {
+    if { $has_read_permission == "t" || $site_wide_p == "t" } {
 	set tree_name [category_tree::get_name $tree_id $locale]
 
 	template::multirow append unmapped_trees $tree_id $tree_name $site_wide_p \