Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl 9 Mar 2004 00:59:47 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction.tcl 24 Aug 2008 11:51:08 -0000 1.4 @@ -1,5 +1,4 @@ # interaction.tcl - ad_page_contract { @param interaction_id @author @@ -12,84 +11,27 @@ ad_require_permission [ad_conn package_id] admin -set page_title "Interaction #$interaction_id" -append doc_body "[ad_admin_header $page_title] -
Customer | -" - - db_1row get_one_interaction_info "select user_identification_id, customer_service_rep, to_char(interaction_date,'YYYY-MM-DD HH24:MI:SS') as full_interaction_date, interaction_originator, interaction_type, interaction_headers from ec_customer_serv_interactions where interaction_id=:interaction_id" +set interaction_date_html [util_AnsiDatetoPrettyDate [lindex [split $full_interaction_date " "] 0]] [lindex [split $full_interaction_date " "] 1] +set user_id_summary_html [ec_user_identification_summary $user_identification_id] +set rep_html "$customer_service_rep" -append doc_body "[ec_user_identification_summary $user_identification_id] | -
Interaction Date | -[util_AnsiDatetoPrettyDate [lindex [split $full_interaction_date " "] 0]] [lindex [split $full_interaction_date " "] 1] | -
Rep | -$customer_service_rep | -
Originator | -$interaction_originator | -
Inquired Via | -$interaction_type | -
Interaction Heade
-
- "
-}
-
-append doc_body "
- | |
-
Issue: $issue_id | |||||
Details:[ec_display_as_html $action_details] | |||||
Follow-up Required:[ec_display_as_html $follow_up_required] | |||||
Details: [ec_display_as_html $action_details] | |||||
Follow-up Required: [ec_display_as_html $follow_up_required] |
-" -} - -append doc_body "