Index: openacs-4/packages/bboard-portlet/www/bboard-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/www/bboard-portlet.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bboard-portlet/www/bboard-portlet.tcl	13 Mar 2002 22:00:25 -0000	1.3
+++ openacs-4/packages/bboard-portlet/www/bboard-portlet.tcl	22 Mar 2002 16:34:21 -0000	1.4
@@ -18,8 +18,15 @@
             -instance_id $instance_id
     ]
     
-    set f_check [db_0or1row one_forum_check {select 1 from bboard_forums where bboard_id = :instance_id} ]
+    set f_count [db_string forum_count {select count(*) from bboard_forums where bboard_id = :instance_id} ]
+    
+    if {$f_count == 0} {
+        set f_check 0
+    } else {
+        set f_check 1
+    }
 
+
     if {!$one_instance_p && $f_check} {
         append data "<li>$comm_name"
         append data "<ul>"