OpenACS

maltes
committed
MAIN:maltes:20050615162422
on 15 Jun 05
Added a column for links
openacs-4/.../mail-tracking/lib/messages.tcl (+16 -5)
28 28                 label "[_ mail-tracking.Sender]"
29 29                 display_template {
30 30                     @messages.sender@
31 31                 }
32 32             }
33 33             recipient_id {
34 34                 label "[_ mail-tracking.Recipient]"
35 35                 display_template {
36 36                     @messages.receiver@
37 37                 }
38 38             }
39 39             package_id {
40 40                 label "[_ mail-tracking.Package]"
41 41                 display_template {
42 42                     <a href="@messages.package_url@">@messages.package_name@</a>
43 43                 }
44 44             }
45 45             subject {
46 46                 label "[_ mail-tracking.Subject]"
47 47             }
  48             object_id {
  49                 label "[_ mail-tracking.Object_id]"
  50             }
  51             file_ids {
  52                 label "[_ mail-tracking.Files]"
  53             }
48 54             body {
49 55                 label "[_ mail-tracking.Body]"
50 56             }
51 57             sent_date {
52 58                 label "[_ mail-tracking.Sent_Date]"
53 59             }           
54 60     } -orderby {
55 61         recipient_id {orderby recipient_id}
56 62         sender_id {orderby sender_id}
57 63         package_id {orderby package_id}
58 64         subject {orderby subject}
59 65         sent_date {orderby sent_date}
60 66     } -filters {
61 67         recipient_id {
62 68             label "[_ mail-tracking.Recipient]"
63 69             where_clause {recipient_id = :recipient_id}
64 70         }
65 71         sender_id {
66 72             label "[_ mail-tracking.Sender]"
67 73             where_clause "sender_id = :sender_id"
68 74         }
69 75         package_id {
70 76             label "[_ mail-tracking.Package]"
71 77             where_clause "package_id = :package_id"     
72 78         }
73 79
74 80     }
75 81
76 82 set orderby [template::list::orderby_clause -name "messages" -orderby]
77 83
78   db_multirow -extend { sender receiver package_name package_url } messages select_messages {} {
  84 db_multirow -extend { file_ids sender receiver package_name package_url } messages select_messages {} {
79 85
80 86     acs_user::get -user_id $sender_id -array sender_info
81 87     acs_user::get -user_id $recipient_id -array receiver_info
82 88
83 89     set sender "$sender_info(first_names) $sender_info(last_name)"
84 90     set receiver "$receiver_info(first_names) $receiver_info(last_name)"
85 91
  92     if {[exists_and_not_null $package_id]} {
86 93         set package_name [apm_instance_name_from_id $package_id]
87 94         set package_url [apm_package_url_from_id $package_id]
88      
  95     } else {
  96         set package_name ""
  97         set package_url ""
89 98     }
  99     set file_ids [application_data_link::get_linked -from_object_id $log_id -to_object_type "file_storage_object"]
  100 }
90 101  
91 102 ad_return_template