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.30 -r1.31
--- openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	1 Dec 2001 23:18:49 -0000	1.30
+++ openacs-4/packages/bboard-portlet/tcl/bboard-portlet-procs.tcl	10 Jan 2002 17:33:05 -0000	1.31
@@ -103,15 +103,19 @@
 
 	# Added by Ben
 	foreach instance_id $list_of_instance_ids {
-	    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=[dotlrn_community::get_url_from_package_id -package_id $instance_id]>more</a>)<br>"
+            
+            set url [dotlrn_community::get_url_from_package_id -package_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 data ""
 	    set rowcount 0
 
 	    if { $config(shaded_p) == "f" } {
 		
 		db_foreach select_messages $query {
-		    append data "<li><a href=bboard/message?forum_id=${forum_id}&message_id=${message_id}>$title</a>, by <i>$full_name</i>\n"
+		    append data "<li><a href=${url}message?forum_id=${forum_id}&message_id=${message_id}>$title</a>, by <i>$full_name</i>\n"
 		    incr rowcount
 		}
 		
@@ -128,7 +132,7 @@
 		set data "Forums: "
 		
 		db_foreach select_shaded $shaded_query {
-		    append data "<a href=bboard/forum?forum_id=${forum_id}>$short_name</a>"
+		    append data "<a href=${url}forum?forum_id=${forum_id}>$short_name</a>"
 		    incr rowcount
 		}