set p_date [clock format [clock scan $p_date] -format "%Y-%m-%d"] set selected_users [pm::calendar::users_to_view] set instance_clause "" set users_clause "" set package_id [dotlrn_community::get_package_id_from_package_key -package_key project-manager -community_id [dotlrn_community::get_community_id]] set base_url "[apm_package_url_from_id $package_id]" if { ![string eq [ad_conn package_id] [dotlrn::get_package_id]]} { set instance_clause "and f.package_id=:package_id" set users_clause "and pa.project_id in (select p.item_id from pm_projectsx p where p.item_id = pa.project_id and p.object_package_id = :package_id)" } set return_url [ad_return_url]\#top set edit_hidden_vars [export_vars -form {return_url {new_tasks "0"}}] if {[empty_string_p $p_date]} { # Default to todays date in the users (the connection) timezone set server_now_time [dt_systime] set user_now_time [lc_time_system_to_conn $server_now_time] set p_date [lc_time_fmt $user_now_time "%x"] } set user_id [ad_conn user_id] set start_date $p_date # Convert date from user timezone to system timezone #set system_start_date [lc_time_conn_to_system "$p_date 00:00:00"] set first_day_of_week [lc_get firstdayofweek] set first_us_weekday [lindex [lc_get -locale en_US day] $first_day_of_week] set last_us_weekday [lindex [lc_get -locale en_US day] [expr [expr $first_day_of_week + 6] % 7]] db_1row select_weekday_info {} db_1row select_week_info {} set current_weekday 0 #s/item_id/url multirow create items \ users_list \ event_name \ event_url \ status_summary \ start_date \ day_of_week \ start_date_weekday \ start_time \ end_time \ no_time_p \ add_url \ day_url # Convert date from user timezone to system timezone set first_weekday_of_the_week_tz [lc_time_conn_to_system "$first_weekday_of_the_week 00:00:00"] set last_weekday_of_the_week_tz [lc_time_conn_to_system "$last_weekday_of_the_week 00:00:00"] set order_by_clause "order by to_char(p.planned_end_date, 'J'),to_char(p.planned_end_date,'HH24:MI')" set interval_limitation_clause [db_map week_interval_limitation] set additional_limitations_clause "" set additional_select_clause ",(to_date(p.planned_end_date,'YYYY-MM-DD HH24:MI:SS') - to_date(:first_weekday_of_the_week_tz,'YYYY-MM-DD HH24:MI:SS')) as day_of_week" set selected_users [pm::calendar::users_to_view] set selected_users_clause " and i.item_id in (select project_id from pm_project_assignment where party_id in ([join $selected_users ", "]))" set tasks [db_list_of_lists select_items {}] db_foreach select_items {} { set base_url "[apm_package_url_from_id $instance_id]" set item_template "${base_url}one?project_id=\$item_id" # Convert from system timezone to user timezone set ansi_start_date [lc_time_system_to_conn $ansi_start_date] set ansi_end_date [lc_time_system_to_conn $ansi_end_date] set start_date_weekday [lc_time_fmt $ansi_start_date "%A"] set start_date [lc_time_fmt $ansi_start_date "%x"] set end_date [lc_time_fmt $ansi_end_date "%x"] set start_time [lc_time_fmt $ansi_start_date "%X"] set end_time [lc_time_fmt $ansi_end_date "%X"] # need to add dummy entries to show all days for { } { $current_weekday < $day_of_week } { incr current_weekday } { set ansi_this_date [dt_julian_to_ansi [expr $first_weekday_julian + $current_weekday]] multirow append items \ "" \ "" \ "" \ "" \ [lc_time_fmt $ansi_this_date "%x"] \ ${current_weekday} \ [lc_time_fmt $ansi_this_date %A] \ "" \ "" \ "" } set ansi_this_date [dt_julian_to_ansi [expr $first_weekday_julian + $current_weekday]] if {[string equal $start_time "12:00 AM"] && [string equal $end_time "12:00 AM"]} { set no_time_p t } else { set no_time_p f } set users_list "
$full_name |
$full_name |