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 {@content.name@} @@ -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 ,])" } Index: openacs-4/packages/categories/tcl/category-form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-form-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/categories/tcl/category-form-procs.tcl 28 Aug 2007 16:30:03 -0000 1.5 +++ openacs-4/packages/categories/tcl/category-form-procs.tcl 6 Oct 2007 13:48:29 -0000 1.6 @@ -4,7 +4,7 @@ @author Branimir Dolicki (bdolicki@branimir.com) @creation-date 06 February 2004 - @cvs-id $Id: + @cvs-id $Id$ } namespace eval category::ad_form {} Index: openacs-4/packages/categories/www/include/widget.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/categories/www/include/widget.tcl 12 Feb 2004 14:28:44 -0000 1.5 +++ openacs-4/packages/categories/www/include/widget.tcl 6 Oct 2007 13:48:29 -0000 1.6 @@ -23,7 +23,7 @@ util_unlist $category category_id category_name deprecated_p level set indent "" if {$level>1} { - set indent "[string repeat " " [expr 2*$level -4]].." + set indent "[string repeat " " [expr {2*$level -4}]].." } set selected_p [info exists mapped($category_id)]