Index: openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	10 Jan 2002 17:33:05 -0000	1.31
+++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	10 Jan 2002 18:20:24 -0000	1.32
@@ -106,9 +106,16 @@
             
             set url [dotlrn_community::get_url_from_package_id -package_id $instance_id]
 
+            # aks fold into site_nodes:: or dotlrn_community
+            set comm_object_id [db_string select_name "select object_id from site_nodes where node_id= (select parent_id from site_nodes where object_id=:instance_id)" ]
 
-	    append whole_data "<font size=+1><b>[db_string select_name "select name from site_nodes where node_id= (select parent_id from site_nodes where object_id=:instance_id)" -default ""]</b></font> (<a href=${url}>more</a>)<br>"
+            set name [db_string select_pretty_name "
+                select instance_name 
+                from apm_packages
+                where package_id= :comm_object_id "]
 
+	    append whole_data "<font size=+1>$name</font> (<a href=${url}>more</a>)<br>"
+
 	    set data ""
 	    set rowcount 0