Index: openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	16 Apr 2002 05:30:34 -0000	1.14
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	10 May 2002 20:21:58 -0000	1.15
@@ -29,6 +29,13 @@
 set view $config(default_view)
 set list_of_calendar_ids $config(calendar_id)
 
+set scoped_p $config(scoped_p)
+if {$scoped_p == "t"} {
+    set show_calendar_name_p 1
+} else {
+    set show_calendar_name_p 0
+}
+
 if {[llength $list_of_calendar_ids] > 1} {
     set force_calendar_id [calendar_have_private_p -return_id 1 [ad_conn user_id]]
 } else {
@@ -66,7 +73,8 @@
             -hour_template $hour_template \
             -date $current_date -start_hour 7 -end_hour 22 \
             -calendar_id_list $list_of_calendar_ids \
-            -url_stub_callback "calendar_portlet_display::get_url_stub"]
+            -url_stub_callback "calendar_portlet_display::get_url_stub" \
+            -show_calendar_name_p $show_calendar_name_p]
     
 }
 
@@ -75,7 +83,8 @@
             -item_template $item_template \
             -date $current_date \
             -calendar_id_list $list_of_calendar_ids \
-            -url_stub_callback "calendar_portlet_display::get_url_stub"]
+            -url_stub_callback "calendar_portlet_display::get_url_stub" \
+            -show_calendar_name_p $show_calendar_name_p]
 }
 
 if {$view == "month"} {
@@ -85,15 +94,17 @@
             -date $current_date \
             -item_add_template $item_add_template \
             -calendar_id_list $list_of_calendar_ids \
-            -url_stub_callback "calendar_portlet_display::get_url_stub"]
+            -url_stub_callback "calendar_portlet_display::get_url_stub" \
+            -show_calendar_name_p $show_calendar_name_p]
 }
 
 if {$view == "list"} {
     set cal_stuff [calendar::list_display \
             -item_template $item_template \
             -date $current_date \
             -calendar_id_list $list_of_calendar_ids \
-            -url_stub_callback "calendar_portlet_display::get_url_stub"]
+            -url_stub_callback "calendar_portlet_display::get_url_stub" \
+            -show_calendar_name_p $show_calendar_name_p]
 }