Index: openacs-4/packages/ecommerce/www/admin/customer-service/interactions.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interactions.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interactions.adp 24 Aug 2008 12:13:40 -0000 1.1 @@ -0,0 +1,31 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ +
+@export_form_vars_html + + + + + + + + + + + + + + +
RepOriginatorTypeDate
+@linked_interaction_originator_html;noquote@@linked_interaction_type_html;noquote@@linked_interaction_date_html;noquote@
+ +
+ + +

None found.

+ + @customer_interaction_detail_html;noquote@ + Index: openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl 9 Mar 2004 00:59:47 -0000 1.5 +++ openacs-4/packages/ecommerce/www/admin/customer-service/interactions.tcl 24 Aug 2008 12:13:40 -0000 1.6 @@ -1,5 +1,4 @@ # interactions.tcl - ad_page_contract { @param view_rep:optional @param view_interaction_originator:optional @@ -34,105 +33,64 @@ set order_by "interaction_id" } +set title "Customer Service Interactions" +set context [list [list index "Customer Service"] $title] -append doc_body "[ad_admin_header "Customer Service Interactions"] - -

Customer Service Interactions

- -[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Issues"] - -
- -
-[export_form_vars view_interaction_originator view_interaction_type view_interaction_date order_by] - - - - - - - - - - - - -
RepOriginatorTypeDate
- -" +set export_form_vars_html [export_form_vars view_interaction_originator view_interaction_type view_interaction_date order_by] set interaction_originator_list [db_list get_interation_originator_list "select unique interaction_originator from ec_customer_serv_interactions"] - lappend interaction_originator_list "all" set linked_interaction_originator_list [list] - foreach interaction_originator $interaction_originator_list { if { $interaction_originator == $view_interaction_originator } { - lappend linked_interaction_originator_list "$interaction_originator" + lappend linked_interaction_originator_list "$interaction_originator" } else { - lappend linked_interaction_originator_list "$interaction_originator" + lappend linked_interaction_originator_list "$interaction_originator" } } -append doc_body "\[ [join $linked_interaction_originator_list " | "] \] - -" +set linked_interaction_originator_html "\[ [join $linked_interaction_originator_list " | "] \]" set interaction_type_list [db_list get_interaction_type_list "select picklist_item from ec_picklist_items where picklist_name='interaction_type' order by sort_key"] - lappend interaction_type_list "all" foreach interaction_type $interaction_type_list { if { $interaction_type == $view_interaction_type } { - lappend linked_interaction_type_list "$interaction_type" + lappend linked_interaction_type_list "$interaction_type" } else { - lappend linked_interaction_type_list "$interaction_type" + lappend linked_interaction_type_list "$interaction_type" } } -append doc_body "\[ [join $linked_interaction_type_list " | "] \] - -" +set linked_interaction_type_html "\[ [join $linked_interaction_type_list " | "] \]" set interaction_date_list [list [list last_24 "last 24 hrs"] [list last_week "last week"] [list last_month "last month"] [list all all]] set linked_interaction_date_list [list] - foreach interaction_date $interaction_date_list { if {$view_interaction_date == [lindex $interaction_date 0]} { - lappend linked_interaction_date_list "[lindex $interaction_date 1]" + lappend linked_interaction_date_list "[lindex $interaction_date 1]" } else { - lappend linked_interaction_date_list "[lindex $interaction_date 1]" + lappend linked_interaction_date_list "[lindex $interaction_date 1]" } } -append doc_body "\[ [join $linked_interaction_date_list " | "] \] +set linked_interaction_date_html "\[ [join $linked_interaction_date_list " | "] \]" -
- -
-
-" - if { $view_rep == "all" } { set rep_query_bit "" } else { @@ -166,14 +124,14 @@ set link_beginning "interactions.tcl?[export_url_vars view_rep view_interaction_originator view_interaction_type view_interaction_date]" -set table_header " +set table_header_html "
- - - - - - + + + + + + " #set sql "select i.interaction_id, i.customer_service_rep, i.interaction_date, @@ -190,58 +148,35 @@ #order by $order_by" set sql [db_map get_customer_interaction_detail_sql] - set row_counter 0 - +set customer_interaction_detail_html "" db_foreach get_customer_interaction_detail $sql { - if { $row_counter == 0 } { - append doc_body $table_header + append customer_interaction_detail_html $table_header } elseif { $row_counter == 20 } { - append doc_body "
Interaction IDDateRepCustomerOriginatorTypeInteraction IDDateRepCustomerOriginatorType
-

- $table_header - " - set row_counter 1 + append customer_interaction_detail_html "
${table_header}" + set row_counter 1 } # even rows are white, odd are grey if { [expr floor($row_counter/2.)] == [expr $row_counter/2.] } { - set bgcolor "white" + set bgcolor "#ffffff" } else { - set bgcolor "ececec" + set bgcolor "#ececec" } - append doc_body "$interaction_id - [ec_formatted_full_date $full_interaction_date] - " + append customer_interaction_detail_html "$interaction_id + [ec_formatted_full_date $full_interaction_date]" if { ![empty_string_p $customer_service_rep] } { - append doc_body "$rep_last_name, $rep_first_names" + append customer_interaction_detail_html "$rep_last_name, $rep_first_names" } else { - append doc_body " " + append customer_interaction_detail_html " " } if { ![empty_string_p $customer_user_id] } { - append doc_body "$customer_last_name, $customer_first_names" + append customer_interaction_detail_html "$customer_last_name, $customer_first_names" } else { - append doc_body "unregistered user: $user_identification_id" + append customer_interaction_detail_html "unregistered user: $user_identification_id" } - append doc_body "$interaction_originator - $interaction_type - - " + append customer_interaction_detail_html "$interaction_originator$interaction_type" incr row_counter } -if { $row_counter != 0 } { - append doc_body "" -} else { - append doc_body "

None Found
" -} - -append doc_body " -
-[ad_admin_footer] -" - - - -doc_return 200 text/html $doc_body