Index: openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl 22 Jul 2001 06:13:37 -0000 1.3
+++ openacs-4/packages/ecommerce/tcl/ecommerce-customer-service-procs.tcl 31 Jan 2002 22:43:54 -0000 1.4
@@ -11,22 +11,22 @@
}
ad_proc ec_customer_service_email_address { {user_identification_id ""} {issue_id ""}} { returns the customer server email address } {
- return [util_memoize {ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce} [ec_cache_refresh]]
+ return [ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce]
}
ad_proc ec_customer_service_signature {-html:boolean} {
if $html_p {
- return "Customer Service
-[util_memoize {ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce} [ec_cache_refresh]]
+ return "[ad_parameter -package_id [ec_id] CustomerServiceEmailDescription ecommerce]
+[ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce]
[ec_insecure_location][ec_url]
"
} else {
- return "Customer Service
-[util_memoize {ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce} [ec_cache_refresh]]
+ return "[ad_parameter -package_id [ec_id] CustomerServiceEmailDescription ecommerce]
+[ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce]
[ec_insecure_location][ec_url]
"
+ }
}
-}
ad_proc ec_customer_service_simple_issue { customer_service_rep interaction_originator interaction_type interaction_headers order_id issue_type_list action_details {user_id ""} {user_identification_id ""} {begin_new_transaction_p "f"} {gift_certificate_id ""} } {
Creates an issue, interaction, and action and closes the issue.