Index: openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql 19 Jan 2002 20:30:07 -0000 1.15
+++ openacs-4/packages/bboard-portlet/sql/oracle/bboard-portlet-create.sql 12 Mar 2002 01:54:27 -0000 1.16
@@ -83,7 +83,16 @@
value => ''
);
+ -- do we show the community name or not?
+ portal_datasource.set_def_param (
+ datasource_id => ds_id,
+ config_required_p => 't',
+ configured_p => 'f',
+ key => 'display_group_name_p',
+ value => 't'
+);
+
end;
/
show errors
Index: openacs-4/packages/bboard-portlet/www/bboard-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bboard-portlet/www/bboard-portlet.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/bboard-portlet/www/bboard-portlet.adp 11 Mar 2002 16:58:30 -0000 1.6
+++ openacs-4/packages/bboard-portlet/www/bboard-portlet.adp 12 Mar 2002 01:54:27 -0000 1.7
@@ -18,7 +18,13 @@
template::adp_puts "
"
set ul_output_p 1
}
- template::adp_puts "- $forum_name: [lindex $one_forum 1]\n"
+ template::adp_puts "
- "
+
+ if {$display_group_name_p == "t"} {
+ template::adp_puts " $forum_name:"
+ }
+
+ template::adp_puts " [lindex $one_forum 1]\n"
}
}
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.1 -r1.2
--- openacs-4/packages/bboard-portlet/www/bboard-portlet.tcl 14 Feb 2002 16:47:21 -0000 1.1
+++ openacs-4/packages/bboard-portlet/www/bboard-portlet.tcl 12 Mar 2002 01:54:27 -0000 1.2
@@ -51,5 +51,13 @@
lappend forums $one_forum
}
+if {[info exists config(display_group_name_p)]} {
+ ns_log Notice "bboard-portlet: display_group_name_p: $config(display_group_name_p)"
+ set display_group_name_p $config(display_group_name_p)
+} else {
+ ns_log Notice "bboard-portlet: no display_group_name_p param"
+ set display_group_name_p t
+}
+
# return the template
ad_return_template
Index: openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 5 Mar 2002 07:18:33 -0000 1.24
+++ openacs-4/packages/dotlrn-bboard/tcl/dotlrn-bboard-procs.tcl 12 Mar 2002 01:54:37 -0000 1.25
@@ -148,14 +148,20 @@
bboard_portlet::make_self_available $portal_id
# Call the portal element to be added correctly
- bboard_portlet::add_self_to_page $portal_id $package_id
+ set element_id [bboard_portlet::add_self_to_page $portal_id $package_id]
+ # Make sure that the group name is not displayed here
+ portal::set_element_param $element_id "display_group_name_p" "f"
+
# Now for the user workspace
set workspace_portal_id [dotlrn::get_workspace_portal_id $user_id]
# Add the portlet here
if { $workspace_portal_id != "" } {
- bboard_portlet::add_self_to_page $workspace_portal_id $package_id
+ set element_id [bboard_portlet::add_self_to_page $workspace_portal_id $package_id]
+
+ # Make sure that the group name IS displayed here
+ portal::set_element_param $element_id "display_group_name_p" "t"
}
}