Index: openacs-4/packages/ecommerce/www/admin/customer-service/actions.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/actions.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/actions.adp 20 Aug 2008 20:34:33 -0000 1.1 @@ -0,0 +1,28 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ +
+ @export_form_vars_html;noquote@ + + + + + + + + + + + +
Info UsedRepInteraction Date
@interaction_date_list_html;noquote@
+
+ + + + @interaction_info_maybe_rep_html;noquote@ +
+ +

None found.

+ Index: openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl 9 Mar 2004 00:59:47 -0000 1.4 +++ openacs-4/packages/ecommerce/www/admin/customer-service/actions.tcl 20 Aug 2008 20:34:33 -0000 1.5 @@ -31,55 +31,26 @@ set order_by "a.action_id" } +set title "Actions" +set context [list [list index "Customer Service"] $title] +set export_form_vars_html [export_form_vars view_interaction_date] -append doc_body "[ad_admin_header "Customer Service Actions"] - -

Customer Service Actions

- -[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Actions"] - -
- -
-[export_form_vars view_interaction_date] - - - - - - - - - - -
Info UsedRepInteraction Date
- - - -" - 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 set interaction_date_list_html "\[ [join $linked_interaction_date_list " | "] \]" -
- -
-
-" - if { $view_rep == "all" } { set rep_query_bit "" } else { @@ -164,10 +123,10 @@ # " } elseif { $view_info_used == "all others" } { if { [llength $important_info_used_list] > 0 } { - set safe_important_info_used_list [DoubleApos $important_info_used_list] - set info_used_query_bit "and map.info_used not in ('[join $safe_important_info_used_list "', '"]')" + set safe_important_info_used_list [DoubleApos $important_info_used_list] + set info_used_query_bit "and map.info_used not in ('[join $safe_important_info_used_list "', '"]')" } else { - set info_used_query_bit "" + set info_used_query_bit "" } set sql_query [db_map all_others_sql] @@ -215,8 +174,7 @@ set link_beginning "actions.tcl?[export_url_vars view_info_used view_rep view_interaction_date]" -set table_header " - +set table_header " @@ -225,64 +183,36 @@ - -" +" set sql $sql_query - set row_counter 0 +set interaction_info_maybe_rep_html "" db_foreach get_interaction_info_maybe_rep $sql { - if { $row_counter == 0 } { - append doc_body $table_header + append interaction_info_maybe_rep_html $table_header } elseif { $row_counter == 20 } { - append doc_body "
Action ID Interaction ID Issue IDRep Originator Interaction Type
-

- $table_header - " - set row_counter 1 + append interaction_info_maybe_rep_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 " - - - - " + append interaction_info_maybe_rep_html "" if { [empty_string_p $customer_user_id] } { - append doc_body "" + append interaction_info_maybe_rep_html "" } else { - append doc_body "" + append interaction_info_maybe_rep_html "" } - if { ![empty_string_p $customer_service_rep] } { - append doc_body "" + append interaction_info_maybe_rep_html "" } else { - append doc_body "" + append interaction_info_maybe_rep_html "" } - - append doc_body " - - - " + append interaction_info_maybe_rep_html "\n" incr row_counter } -if { $row_counter != 0 } { - append doc_body "
$action_id$interaction_id$issue_id[ec_formatted_full_date $full_interaction_date]
$action_id$interaction_id$issue_id[ec_formatted_full_date $full_interaction_date]unregistered user $user_identification_idunregistered user $user_identification_id$customer_last_name, $customer_first_names$customer_last_name, $customer_first_names$rep_last_name, $rep_first_names$rep_last_name, $rep_first_names  $interaction_originator$interaction_type
$interaction_originator$interaction_type
" -} else { - append doc_body "

None Found
" -} - -append doc_body " -
-[ad_admin_footer] -" - - -doc_return 200 text/html $doc_body Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.adp 20 Aug 2008 20:34:33 -0000 1.1 @@ -0,0 +1,12 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ +
+ + + + +
Description
Text
+
Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl 9 Mar 2004 00:59:47 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-add.tcl 20 Aug 2008 20:34:33 -0000 1.4 @@ -10,20 +10,7 @@ ad_require_permission [ad_conn package_id] admin -doc_return 200 text/html "[ad_admin_header "New Canned Response"] -

New Canned Response

+set title "New Prepared Response" +set context [list [list index "Customer Service"] $title] -[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "canned-responses.tcl" "Canned Responses"] "New Canned Response"] -
- -
- - - - -
Description
Text
-
- -[ad_admin_footer] -" Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.adp 20 Aug 2008 20:34:33 -0000 1.1 @@ -0,0 +1,13 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ +
+ @export_form_vars_html;noquote@ + + + + +
Description
Text
+
Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl 9 Mar 2004 00:59:47 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-response-edit.tcl 20 Aug 2008 20:34:33 -0000 1.4 @@ -1,5 +1,4 @@ # canned-response-edit.tcl - ad_page_contract { @param response_id @author @@ -16,30 +15,14 @@ from ec_canned_responses where response_id = :response_id" +set title "Edit A Prepared Response" +set context [list [list index "Customer Service"] $title] +set export_form_vars_html [export_form_vars response_id] -doc_return 200 text/html "[ad_admin_header "Edit Canned Response"] -

Edit Canned Response

-[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] [list "canned-responses.tcl" "Canned Responses"] "Edit Canned Response"] -
-
-[export_form_vars response_id] - - - - -
Description
Text
-
-[ad_admin_footer] -" - - - - - Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.adp 20 Aug 2008 20:34:33 -0000 1.1 @@ -0,0 +1,13 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ + +
    + @canned_responses_html;noquote@ +
+ +

No canned (prepared) responses found.

+ +

Add a new prepared response.

Index: openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl 9 Mar 2004 00:59:47 -0000 1.3 +++ openacs-4/packages/ecommerce/www/admin/customer-service/canned-responses.tcl 20 Aug 2008 20:34:33 -0000 1.4 @@ -10,46 +10,17 @@ ad_require_permission [ad_conn package_id] admin -append doc_body "[ad_admin_header "Canned Responses"] -

Canned Responses

+set title "Prepared Responses" +set context [list [list index "Customer Service"] $title] -[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Canned Responses"] - -
- -

Defined Responses

-
    -" - set sql "select response_id, one_line, response_text -from ec_canned_responses -order by one_line" + from ec_canned_responses order by one_line" set count 0 +set canned_responses_html "" db_foreach get_canned_responses $sql { - - - append doc_body "
  • $one_line -
    -[ec_display_as_html $response_text] Delete -
    -" - + append canned_responses_html "
  • $one_line [ec_display_as_html $response_text] (Delete)
    • " incr count } -if { $count == 0 } { - append doc_body "
  • No defined canned responses.\n" -} - -append doc_body "

    -Add a new canned response -

- -[ad_admin_footer] -" - - - -doc_return 200 text/html $doc_body Index: openacs-4/packages/ecommerce/www/admin/customer-service/customer-history.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/customer-history.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/customer-history.adp 20 Aug 2008 20:34:33 -0000 1.1 @@ -0,0 +1,30 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ +
+ @export_form_vars_html;noquote@ + + + + + + + + + + + + + +
RepOriginatorTypeDate
@interaction_originator_html;noquote@@interaction_type_list_html;noquote@@interaction_date_list_html;noquote@
+
+ + + + @customer_interaction_detail_html;noquote@ +
+ +

None found.

+ Index: openacs-4/packages/ecommerce/www/admin/customer-service/customer-history.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/customer-history.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/customer-history.tcl 18 Aug 2008 11:07:04 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/customer-history.tcl 20 Aug 2008 20:34:33 -0000 1.3 @@ -37,133 +37,84 @@ set order_by "interaction_id" } - -append doc_body "[ad_admin_header "Customer History"] - -

Customer History

- -[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service"] "History"] -
- -
-[export_form_vars view_interaction_originator view_interaction_type view_interaction_date order_by] - - - - - - - - - - - - -
RepOriginatorTypeDate
- -" - 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" } } +set interaction_originator_html "\[ [join $linked_interaction_originator_list " | "] \]" -append doc_body "\[ [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" } } +set interaction_type_list_html "\[ [join $linked_interaction_type_list " | "] \]" -append doc_body "\[ [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]" } } +set interaction_date_list_html "\[ [join $linked_interaction_date_list " | "] \]" -append doc_body "\[ [join $linked_interaction_date_list " | "] \] - -
- -
-
-" if {$customer_type == "user_identification_id"} { set customer_query_bit "and i.user_identification_id=:customer_id" } else { set customer_query_bit "and i.user_id=:customer_id" } - if { $view_rep == "all" } { set rep_query_bit "" } else { set rep_query_bit "and i.customer_service_rep=:view_rep" } - if { $view_interaction_originator == "all" } { set interaction_originator_query_bit "" } else { set interaction_originator_query_bit "and i.interaction_originator=:view_interaction_originator" } - if { $view_interaction_type == "all" } { set interaction_type_query_bit "" } else { set interaction_type_query_bit "and i.interaction_type=:view_interaction_type" } - if { $view_interaction_date == "last_24" } { #set interaction_date_query_bit "and sysdate-i.interaction_date <= 1" set interaction_date_query_bit [db_map last_24] @@ -179,15 +130,12 @@ set link_beginning "customer-history.tcl?[export_url_vars customer_type customer_id view_rep view_interaction_originator view_interaction_type view_interaction_date]" -set table_header " - - +set table_header " - -" +\n" #set sql "select i.interaction_id, i.customer_service_rep, i.interaction_date, #to_char(i.interaction_date,'YYYY-MM-DD HH24:MI:SS') as full_interaction_date, i.interaction_originator, @@ -203,57 +151,33 @@ #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 ID
Interaction ID Date Rep Customer OriginatorType
Type
-

- $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 " - - " + append customer_interaction_detail_html "" if { ![empty_string_p $customer_service_rep] } { - append doc_body "" + append customer_interaction_detail_html "" } else { - append doc_body "" + append customer_interaction_detail_html "" } if { ![empty_string_p $customer_user_id] } { - append doc_body "" + append customer_interaction_detail_html "" } else { - append doc_body "" + append customer_interaction_detail_html "" } - append doc_body " - - - " + append customer_interaction_detail_html "\n" incr row_counter } -if { $row_counter != 0 } { - append doc_body "
$interaction_id[ec_formatted_full_date $full_interaction_date]
$interaction_id[ec_formatted_full_date $full_interaction_date]$rep_last_name, $rep_first_names$rep_last_name, $rep_first_names  $customer_last_name, $customer_first_names$customer_last_name, $customer_first_namesunregistered user: $user_identification_idunregistered user: $user_identification_id$interaction_originator$interaction_type
$interaction_originator$interaction_type
" -} else { - append doc_body "

None Found
" -} - -append doc_body " -
-[ad_admin_footer] -" - -doc_return 200 text/html $doc_body Index: openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.adp 20 Aug 2008 20:34:33 -0000 1.1 @@ -0,0 +1,14 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ +

Customers who spent more than @currency@ in the last @days@ days:

+ +

None found.

+ +
    + @user_ids_from_search_html;noquote@ +
+

Spam these users

+ Index: openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl 9 Mar 2004 00:59:47 -0000 1.5 +++ openacs-4/packages/ecommerce/www/admin/customer-service/customer-search.tcl 20 Aug 2008 20:34:33 -0000 1.6 @@ -39,20 +39,11 @@ return } +set title "Customer Search" +set context [list [list index "Customer Service"] $title] -append doc_body "[ad_admin_header "Customer Search"] +set currency [ec_pretty_price $amount [parameter::get -package_id [ec_id] -parameter Currency -default "USD"]] -

Customer Search

- -[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] [list "index.tcl" "Customer Service Administration"] "Customer Search"] - -
-Customers who spent more than [ec_pretty_price $amount [ad_parameter -package_id [ec_id] Currency ecommerce]] in the last $days days: -
    -" - - - #set sql "select unique o.user_id, u.first_names, u.last_name, u.email #from ec_orders o, cc_users u #where o.user_id=u.user_id @@ -63,26 +54,13 @@ set sql [db_map user_id_sql] set user_id_list [list] +set user_ids_from_search_html "" db_foreach get_user_ids_from_search $sql { - - append doc_body "
  • $first_names $last_name ($email)" + append user_ids_from_search_html "
  • $first_names $last_name ($email)
    • " lappend user_id_list $user_id } +set user_id_list_len [llength $user_id_list] -if { [llength $user_id_list] == 0 } { - append doc_body "None found." -} +set export_url_vars_html [export_url_vars user_id_list] -append doc_body "
-" - -if { [llength $user_id_list] != 0 } { - append doc_body "Spam these users" -} - -append doc_body "[ad_admin_footer] -" - db_release_unused_handles - -doc_return 200 text/html $doc_body Index: openacs-4/packages/ecommerce/www/admin/customer-service/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/index.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/ecommerce/www/admin/customer-service/index.adp 20 Aug 2008 20:34:33 -0000 1.1 @@ -0,0 +1,48 @@ + + @title;noquote@ + @context;noquote@ +

@title@

+ + + + + + + @issue_type_list_html;noquote@ + + + + +
typeopenclosed
uncategorized@num_open_issues@ open closed
noneclosed

Add New Interaction.

+ +

To see issues separated out by commonly used issue-types, add those issue-types to the "Issue Type" in Picklist Management.

+ + +

Search for customer

+ +
+

+Search for registered users:

+
+ +
+

Search for unregistered users with a customer service history: +

+
+ +
+

Customers who have spent over + +(@currency@) in the last days. +

+
+ + +

Administrative Actions

+ + Index: openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl 18 Aug 2008 11:02:23 -0000 1.6 +++ openacs-4/packages/ecommerce/www/admin/customer-service/index.tcl 20 Aug 2008 20:34:33 -0000 1.7 @@ -7,65 +7,44 @@ @author ported by Jerry Asher (jerry@theashergroup.com) } { } -# + ad_require_permission [ad_conn package_id] admin -append doc_body "[ad_admin_header "Customer Service Administration"] +set title "Customer Service" +set context [list $title] -

Customer Service Issues

- -[ad_context_bar [list "../index.tcl" "Ecommerce([ec_system_name])"] "Customer Service"] - -
- - - - -" -} else { - append doc_body "none" -} - -# only want to show issue types in the issue type widget, and then clump all others under -# "other" +# only want to show issue types in the issue type widget, and then clump all others under "other" set issue_type_list [db_list get_issue_type_list "select picklist_item from ec_picklist_items where picklist_name='issue_type' order by sort_key"] +set issue_type_list_len [llength $issue_type_list] +set issue_type_list_html "" foreach issue_type $issue_type_list { - set num_open_issues [db_string get_open_issues_of_type "select count(*) from ec_customer_service_issues issues, ec_user_identification id where issues.user_identification_id = id.user_identification_id and close_date is NULL and deleted_p = 'f' and 1 <= (select count(*) from ec_cs_issue_type_map map where map.issue_id=issues.issue_id and map.issue_type=:issue_type)"] - -if {$num_open_issues > 0 } { - append doc_body "" -} else { - append doc_body "\n" + } else { + append issue_type_list_html "" +\n" + } } - -} - # same query for issues that aren't in issue_type_list - -if { [llength $issue_type_list] > 0 } { +if { $issue_type_list_len > 0 } { # taking advantage of the fact that tcl lists are just strings set safe_issue_type_list [DoubleApos $issue_type_list] set last_bit_of_query "and 1 <= (select count(*) from ec_cs_issue_type_map map where map.issue_id=issues.issue_id and map.issue_type not in ('[join $safe_issue_type_list "', '"]'))" @@ -81,57 +60,14 @@ $last_bit_of_query"] if { $num_open_issues > 0 } { - append doc_body "\n" } else { - append doc_body "\n" } -append doc_body "

type

open

closed

uncategorized -" - set num_open_issues [db_string get_open_issues "select count(*) from ec_customer_service_issues issues, ec_user_identification id where issues.user_identification_id = id.user_identification_id and close_date is NULL and deleted_p = 'f' and 0 = (select count(*) from ec_cs_issue_type_map map where map.issue_id=issues.issue_id)"] -if {$num_open_issues > 0 } { - append doc_body "$num_open_issues open closed
closed
$issue_type + if {$num_open_issues > 0 } { + append issue_type_list_html "
$issue_type $num_open_issues open closed -
$issue_type +
$issue_type none closed -
all others + append issue_type_list_html "
all others $num_open_issues open -closed" +closed
all others + append issue_type_list_html "
all others none -closed" +closed

add New Interaction

" -if { [llength $issue_type_list] == 0 } { - append doc_body "

If you want to see issues separated out by commonly used issue types, then add those issue types to the issue type in Picklist Management.

" -} - -append doc_body "

Search for customer

- -
- -Search for registered users: -
- -
-Search for unregistered users with a customer service history: - -
- -
-Customers who have spent over - -([ad_parameter -package_id [ec_id] Currency ecommerce]) -in the last days. - -
- - -

Administrative Actions

- - - -[ad_admin_footer] -" - - - -doc_return 200 text/html $doc_body - +set action_url_html "[ec_acs_admin_url]users/search" +set currency [parameter::get -package_id [ec_id] -parameter Currency -default "USD"]