Index: openacs-4/packages/categories/lib/contributions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/contributions.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/lib/contributions.tcl	15 May 2007 20:14:23 -0000	1.2
+++ openacs-4/packages/categories/lib/contributions.tcl	6 Oct 2007 13:48:29 -0000	1.3
@@ -57,7 +57,7 @@
 #    html {align right}
 #}
 
-if {[empty_string_p $user_id]} {
+if {$user_id eq ""} {
     lappend elements name {
         label {Created by}
         display_template {<a href="@content.user_url@" title="Member page">@content.name@</a>}
@@ -108,15 +108,15 @@
 
 set restrict {}
 
-if {![empty_string_p $user_id]} {
+if {$user_id ne ""} {
     append restrict "\nand o.creation_user = :user_id"
 }
 
-if {![empty_string_p $category]} {
+if {$category ne ""} {
     append restrict "\nand exists (select 1 from category_object_map c where c.object_id = o.object_id and c.category_id = :category)"
 }
 
-if {![empty_string_p $packages]} {
+if {$packages ne ""} {
     append restrict "\nand o.package_id in ([join $packages ,])"
 }