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.24 -r1.25
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 29 May 2003 18:05:21 -0000 1.24
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 12 Aug 2003 23:41:47 -0000 1.25
@@ -37,197 +37,22 @@
}
}
-
# get stuff out of the config array
array set config $cf
if {[empty_string_p $view]} {
set view $config(default_view)
}
set list_of_calendar_ids $config(calendar_id)
+set base_url [calendar_portlet_display::get_url_stub $list_of_calendar_ids]
+
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 -calendar_id_list $list_of_calendar_ids [ad_conn user_id]]
-} else {
- set force_calendar_id [lindex $list_of_calendar_ids 0]
-}
+set calendar_list [calendar::calendar_list]
-# permissions
-set create_p [ad_permission_p $force_calendar_id cal_item_create]
-set edit_p [ad_permission_p $force_calendar_id cal_item_edit]
-set admin_p [ad_permission_p $force_calendar_id calendar_admin]
-
-# set up some vars
-if {[empty_string_p $date]} {
- if {[empty_string_p $julian_date]} {
- set date [dt_sysdate]
- } else {
- set date [db_string select_from_julian "select to_date(:julian_date ,'J') from dual"]
- }
-}
-
-set current_date $date
-set date_format "YYYY-MM-DD HH24:MI"
-set return_url "[ns_conn url]?[ns_conn query]"
-set encoded_return_url [ns_urlencode $return_url]
-
-set cal_nav [dt_widget_calendar_navigation "" $view $date "page_num=$page_num"]
-
-set item_template "\$item"
-
-
-if {$create_p} {
- set hour_template "\$hour"
- set item_add_template "+"
-} else {
- set hour_template "\$hour"
- set item_add_template ""
-}
-
-if {$view == "day"} {
-
- # Check that the previous and next days are in the tcl boundaries
- # so that the calendar widget doesn't bomb when it creates the next/prev links
- if {[catch {set yest [clock format [clock scan "1 day ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
- set previous_link ""
- } else {
- if {[catch {clock scan $yest}]} {
- set previous_link ""
- } else {
- set previous_link ""
- }
- }
-
- if {[catch {set tomor [clock format [clock scan "1 day" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
- set next_link ""
- } else {
- if {[catch {clock scan $tomor}]} {
- set next_link ""
- } else {
- set next_link ""
- }
- }
-
-
- set cal_stuff [calendar::one_day_display \
- -prev_nav_template $previous_link \
- -next_nav_template $next_link \
- -item_template $item_template \
- -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" \
- -show_calendar_name_p $show_calendar_name_p]
-}
-
-if {$view == "week"} {
-
- # Check that the previous and next weeks are in the tcl boundaries
- # so that the calendar widget doesn't bomb when it creates the next/prev links
- if {[catch {set last_w [clock format [clock scan "1 week ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
- set previous_link ""
- } else {
- if {[catch {clock scan $last_w}]} {
- set previous_link ""
- } else {
- set previous_link ""
- }
- }
-
- if {[catch {set next_w [clock format [clock scan "1 week" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
- set next_link ""
- } else {
- if {[catch {clock scan $next_w}]} {
- set next_link ""
- } else {
- set next_link ""
- }
- }
-
- set cal_stuff [calendar::one_week_display \
- -item_template $item_template \
- -day_template "\$day - \$pretty_date" \
- -date $current_date \
- -calendar_id_list $list_of_calendar_ids \
- -url_stub_callback "calendar_portlet_display::get_url_stub" \
- -prev_week_template "" \
- -next_week_template "" \
- -show_calendar_name_p $show_calendar_name_p
- ]
-}
-
-if {$view == "month"} {
-
- # Check that the previous and next months are in the tcl boundaries
- # so that the calendar widget doesn't bomb when it creates the next/prev links
- if {[catch {set prev_m [clock format [clock scan "1 month ago" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
- set previous_link ""
- } else {
- if {[catch {clock scan $prev_m}]} {
- set previous_link ""
- } else {
- set previous_link ""
- }
- }
-
- if {[catch {set next_m [clock format [clock scan "1 month" -base [clock scan $date]] -format "%Y-%m-%d"]}]} {
- set next_link ""
- } else {
- if {[catch {clock scan $next_m}]} {
- set next_link ""
- } else {
- set next_link ""
- }
- }
-
-
- set cal_stuff [calendar::one_month_display \
- -item_template "$item_template" \
- -day_template "\$day_number" \
- -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" \
- -prev_month_template $previous_link \
- -next_month_template $next_link \
- -show_calendar_name_p $show_calendar_name_p]
-}
-
-if {$view == "list"} {
- set sort_by [ns_queryget sort_by]
-
- set thirty_days [expr 60*60*24*30]
- set start_date [ns_fmttime [expr [ns_time] - $thirty_days] "%Y-%m-%d 00:00"]
- set end_date [ns_fmttime [expr [ns_time] + $thirty_days] "%Y-%m-%d 00:00"]
-
- set cal_stuff [calendar::list_display \
- -item_template $item_template \
- -date $current_date \
- -start_date $start_date \
- -end_date $end_date \
- -calendar_id_list $list_of_calendar_ids \
- -sort_by $sort_by \
- -url_template "?view=list&sort_by=\$order_by&page_num=$page_num" \
- -url_stub_callback "calendar_portlet_display::get_url_stub" \
- -show_calendar_name_p $show_calendar_name_p]
-}
-
-if {$view == "year"} {
- set cal_stuff ""
-}
-
ad_return_template
-
-
-
-
-
-
-
-