Index: openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl 29 Jan 2002 00:11:46 -0000 1.2 +++ openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl 31 Jan 2002 22:43:54 -0000 1.3 @@ -44,7 +44,7 @@ # 2. create action # 3. send email -set email_from [util_memoize {ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce} [ec_cache_refresh]] +set email_from [ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce] set action_details "From: $email_from To: $email_to_use @@ -84,9 +84,9 @@ set extra_headers [ns_set new] if { [info exists cc_to] && $cc_to != "" } { ns_set put $extra_headers "Cc" "$cc_to" - ec_sendmail_from_service $email_to_use [util_memoize {ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce} [ec_cache_refresh]] $subject $message $extra_headers $bcc_to + ec_sendmail_from_service $email_to_use [ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce] $subject $message $extra_headers $bcc_to } else { - ec_sendmail_from_service $email_to_use [util_memoize {ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce} [ec_cache_refresh]] $subject $message "" $bcc_to + ec_sendmail_from_service $email_to_use [ad_parameter -package_id [ec_id] CustomerServiceEmailAddress ecommerce] $subject $message "" $bcc_to } db_release_unused_handles