Index: openacs-4/packages/forums/tcl/forums-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-callback-procs.tcl,v diff -u -N -r1.12.2.1 -r1.12.2.2 --- openacs-4/packages/forums/tcl/forums-callback-procs.tcl 14 Feb 2019 16:15:01 -0000 1.12.2.1 +++ openacs-4/packages/forums/tcl/forums-callback-procs.tcl 1 Mar 2019 10:20:30 -0000 1.12.2.2 @@ -87,7 +87,7 @@ if {[permission::permission_p -object_id $forum_id -privilege admin -party_id $user_id]} { lappend actions \ - [list SECTION "Forum $name ([ad_decode $enabled_p t [_ forums.enabled] [_ forums.disabled]])" {}] \ + [list SECTION "Forum $name ([expr {$enabled_p ? [_ forums.enabled] : [_ forums.disabled]}])" {}] \ [list LINK \ [export_vars -base admin/forum-edit forum_id] \ [_ forums.Edit_forum_name] {} {}] \