Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql 9 May 2002 23:59:51 -0000 1.3
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-full-portlet-create.sql 10 May 2002 20:21:58 -0000 1.4
@@ -61,6 +61,14 @@
value => 't'
);
+ portal_datasource.set_def_param(
+ datasource_id => ds_id,
+ config_required_p => 't',
+ configured_p => 'f',
+ key => 'scoped_p',
+ value => 't'
+ );
+
-- user_editable_p
portal_datasource.set_def_param (
datasource_id => ds_id,
Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql 9 May 2002 23:59:51 -0000 1.18
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql 10 May 2002 20:21:58 -0000 1.19
@@ -88,6 +88,15 @@
);
+ portal_datasource.set_def_param(
+ datasource_id => ds_id,
+ config_required_p => 't',
+ configured_p => 'f',
+ key => 'scoped_p',
+ value => 't'
+ );
+
+
-- calendar-specific params
-- calendar_id must be configured
@@ -249,3 +258,4 @@
@calendar-full-portlet-create.sql
@calendar-admin-portlet-create.sql
+@calendar-list-portlet-create.sql
Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 26 Apr 2002 21:43:14 -0000 1.15
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 10 May 2002 20:21:58 -0000 1.16
@@ -36,6 +36,13 @@
}
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 {
@@ -85,7 +92,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]
}
if {$view == "week"} {
@@ -96,7 +104,8 @@
-calendar_id_list $list_of_calendar_ids \
-url_stub_callback "calendar_portlet_display::get_url_stub" \
-prev_week_template "<" \
- -next_week_template ">"
+ -next_week_template ">" \
+ -show_calendar_name_p $show_calendar_name_p
]
}
@@ -107,15 +116,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]
}
if {$view == "year"} {
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]
}