Index: openacs-4/packages/project-manager/www/task-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-one.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/project-manager/www/task-one.tcl 10 Aug 2005 18:33:34 -0000 1.11
+++ openacs-4/packages/project-manager/www/task-one.tcl 11 Aug 2005 21:31:55 -0000 1.12
@@ -72,169 +72,29 @@
revision_id_exists {That task does not exist}
}
-
# --------------------------------------------------------------- #
-# the unique identifier for this package
-#set package_id [ad_conn package_id]
-#set package_url [ad_conn package_url]
-#set user_id [ad_conn user_id]
+# Checking if the optional variables exist to know if we are going
+# to send them in the include
-
-# permissions. Seemed to be superceded below and now again because of granular permissions work.
-#permission::require_permission -object_id $task_id -privilege "read"
-
-#set write_p [permission::permission_p -object_id $task_id -privilege "write"]
-#set create_p [permission::permission_p -object_id $task_id -privilege "create"]
-
-# Master for the portlets
-set portlet_master "/packages/project-manager/lib/portlet"
-
-# terminology and other parameters
-set task_term [_ project-manager.Task]
-set task_term_lower [_ project-manager.task]
-set assignee_term [parameter::get -parameter "AssigneeName" -default "Assignee"]
-set watcher_term [parameter::get -parameter "WatcherName" -default "Watcher"]
-set project_term [_ project-manager.Project]
-set use_uncertain_completion_times_p [parameter::get -parameter "UseUncertainCompletionTimesP" -default "1"]
-
-
-set use_days_p [parameter::get -parameter "UseDayInsteadOfHour" -default "t"]
-
-# the unique identifier for this package
-set package_id [ad_conn package_id]
-set package_url [ad_conn package_url]
-set user_id [ad_maybe_redirect_for_registration]
-
-# daily?
-set daily_p [parameter::get -parameter "UseDayInsteadOfHour" -default "f"]
-
-#------------------------
-# Check if the project will be handled on daily basis or will show hours and minutes
-#------------------------
-
-set fmt "%x %r"
-if { $daily_p } {
- set fmt "%x"
-}
-
-
-
-# permissions. This is a general 'does the user have permission to even ask for this page to be run?'
-permission::require_permission -party_id $user_id -object_id $package_id -privilege read
-
-# These values are now set by the query that extracts the task.
-#set write_p [permission::permission_p -object_id $package_id -privilege write]
-#set create_p [permission::permission_p -object_id $package_id -privilege create]
-
-
-
-# Task info ----------------------------------------------------------
-
-db_1row task_query { } -column_array task_info
-
-# format the hours remaining section
-
-set task_info(hours_remaining) \
- [pm::task::hours_remaining \
- -estimated_hours_work $task_info(estimated_hours_work) \
- -estimated_hours_work_min $task_info(estimated_hours_work_min) \
- -estimated_hours_work_max $task_info(estimated_hours_work_max) \
- -percent_complete $task_info(percent_complete)]
-
-set task_info(days_remaining) \
- [pm::task::days_remaining \
- -estimated_hours_work $task_info(estimated_hours_work) \
- -estimated_hours_work_min $task_info(estimated_hours_work_min) \
- -estimated_hours_work_max $task_info(estimated_hours_work_max) \
- -percent_complete $task_info(percent_complete)]
-
-# format the dates according to the local settings
-set task_info(earliest_start) [lc_time_fmt $task_info(earliest_start) $fmt]
-set task_info(earliest_finish) [lc_time_fmt $task_info(earliest_finish) $fmt]
-set task_info(latest_start) [lc_time_fmt $task_info(latest_start) $fmt]
-set task_info(latest_finish) [lc_time_fmt $task_info(latest_finish) $fmt]
-set task_info(end_date) [lc_time_fmt $task_info(end_date) $fmt]
-
-# we do this for the hours include portion
-set project_item_id $task_info(project_item_id)
-
-set context [list [list "one?project_item_id=$task_info(project_item_id)" "$task_info(project_name)"] "$task_info(task_title)"]
-
-
-set richtext_list [list $task_info(description) $task_info(mime_type)]
-
-set task_info(description) [template::util::richtext::get_property html_value $richtext_list]
-
-if {[exists_and_not_null task_info(earliest_start_j)]} {
- set task_info(slack_time) [pm::task::slack_time \
- -earliest_start_j $task_info(earliest_start_j) \
- -today_j $task_info(today_j) \
- -latest_start_j $task_info(latest_start_j)]
+if { [exists_and_not_null task_id] } {
+ set exist_task_p 1
+} else {
+ set exist_task_p 0
}
-if {$task_info(percent_complete) >= 100} {
- set closed_message "[_ project-manager.--_Closed]"
+if { [exists_and_not_null task_revision_id] } {
+ set exist_task_rev_p 1
} else {
- set closed_message ""
+ set exist_task_rev_p 0
}
-
-# if part of a process, offer link to process
-if {![empty_string_p $task_info(process_instance)]} {
- set process_url [pm::process::url \
- -process_instance_id $task_info(process_instance) \
- -project_item_id $task_info(project_item_id) \
- -fully_qualified_p "f"]
- set process_name [pm::process::name \
- -process_instance_id $task_info(process_instance)]
- set process_html "$process_name"
+if { [exists_and_not_null orderby_people] } {
+ set exist_order_by_p 1
} else {
- set process_html ""
+ set exist_order_by_p 0
}
-
-# how to get back here
-set return_url [ad_return_url]
-
-set task_edit_url [export_vars -base task-add-edit {{task_item_id $task_id} return_url project_item_id}]
-
-set logger_project [lindex [application_data_link::get_linked -from_object_id $task_info(project_item_id) -to_object_type logger_project] 0]
-
-set logger_url [pm::util::logger_url]
-
-if {[empty_string_p $logger_variable_id]} {
- set logger_variable_id [logger::project::get_primary_variable \
- -project_id $logger_project]
-}
-
-set log_url [export_vars -base "${logger_url}log" -url {{project_id $logger_project} {pm_project_id $task_info(project_item_id)} {pm_task_id $task_id} return_url}]
-
-
-
-set then_ansi [clock format [clock scan "-$logger_days days"] -format "%Y-%m-%d"]
-
-set day_widget "[_ project-manager.Last] [_ project-manager.Days]"
-
-set variable_widget [logger::ui::variable_select_widget \
- -project_id $logger_project \
- -current_variable_id $logger_variable_id \
- -select_name logger_variable_id]
-
-set variable_exports [export_vars -form -entire_form -exclude {logger_variable_id logger_days }]
-
-
-# ------------------
-# Notifications info
-# ------------------
-set notification_chunk [notification::display::request_widget \
- -type pm_task_notif \
- -object_id $task_id \
- -pretty_name "$task_info(task_title)" \
- -url "[ad_conn url]?[ad_conn query]" \
- ]
-
-
-ad_return_template "../templates/project-to"
-
+# Retrieving the value of the parameter to knwo wich template we call
+set template_src [parameter::get -parameter "TaskOne"]
# ------------------------- END OF FILE ------------------------- #