OpenACS

alexk
committed
oacs-5-1:alexk:20050614175248
on 14 Jun 05
Fix to keep task-print from failing
openacs-4/.../project-manager/www/task-print.tcl (+4 -5)
34 34     context_bar:onevalue
35 35     write_p:onevalue
36 36     create_p:onevalue
37 37     revisions:multirow
38 38     dependency:multirow
39 39     dependency2:multirow
40 40     people:multirow
41 41     task_term:onevalue
42 42     task_term_lower:onevalue
43 43     assignee_term:onevalue
44 44     watcher_term:onevalue
45 45     comments:onevalue
46 46     comments_link:onevalue
47 47 } -validate {
48 48     task_id_exists {
49 49         if {![info exists task_id]} {
50 50             set task_id [db_string get_task_id { }]
51 51         }
52 52     }
53 53     revision_id_exists {
  54         set user_id    [ad_maybe_redirect_for_registration]
54 55         if {![info exists task_revision_id]} {
55 56             set task_revision_id [db_string get_revision_id { }]
56 57         }
57 58     }
58 59 }
59 60
60 61
61 62 # --------------------------------------------------------------- #
  63 # the unique identifier for this package
  64 set package_id [ad_conn package_id]
62 65
63 66 # terminology
64 67 set task_term       [parameter::get -parameter "TaskName" -default "Task"]
65 68 set task_term_lower [parameter::get -parameter "taskname" -default "task"]
66 69 set assignee_term   [parameter::get -parameter "AssigneeName" -default "Assignee"]
67 70 set watcher_term    [parameter::get -parameter "WatcherName" -default "Watcher"]
68 71 set project_term    [parameter::get -parameter "ProjectName" -default "Project"]
69 72
70 73 db_1row get_project_ids { }
71 74
72 75 set context_bar [ad_context_bar "one?project_item_id=$project_item_id $project_term" "[_ project-manager.View]"]
73 76
74 77
75   # the unique identifier for this package
76   set package_id [ad_conn package_id]
77   set user_id    [ad_maybe_redirect_for_registration]
78  
79 78 set comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $task_id "[ad_conn url]?task_id=$task_id"]
80 79
81 80 set comments_link [general_comments_create_link -object_name pm_task -link_text "Add a comment" -context_id $package_id $task_id "[ad_conn url]?task_id=$task_id"]
82 81
83 82 set show_comment_link "<a href=\"[ad_conn url]?task_id=$task_id&show_comment_p=t\">show comments</a>"
84 83
85 84
86 85 # permissions
87 86 permission::require_permission -party_id $user_id -object_id $task_id -privilege read
88 87
89 88 set write_p  [permission::permission_p -object_id $task_id -privilege write]
90 89 set create_p [permission::permission_p -object_id $task_id -privilege create]
91 90
92 91 # Task info ----------------------------------------------------------
93 92
94 93 db_1row task_query { } -column_array task_info
95 94
96 95 set richtext_list [list $task_info(description) $task_info(mime_type)]
97 96
98 97 set task_info(description) [template::util::richtext::get_property html_value $richtext_list]