Index: openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl	18 Jul 2001 23:46:14 -0000	1.2
+++ openacs-4/packages/ecommerce/tcl/ecommerce-email-procs.tcl	29 Jan 2002 00:11:46 -0000	1.3
@@ -23,7 +23,7 @@
 	ns_set merge $extra_headers $additional_headers
     }
 
-    set from "\"[ec_system_name] Customer Service\" <$reply_to>"
+    set from "\"[util_memoize {ad_parameter -package_id [ec_id] CustomerServiceEmailDescription ecommerce} [ec_cache_refresh]]\" <$reply_to>"
     qmail $email_to $from $email_subject $email_body $extra_headers
 }
 
@@ -461,7 +461,7 @@
 	set user_identification_id [db_string user_identification_id_select "select user_identification_id from ec_user_identification where upper(email)=upper(:email)" -default ""]
 
 	if { [empty_string_p $user_identification_id] } {
-	  set user_identification_id [db_string user_identification_id_seq "select ec_user_ident_id_sequence.nextval from dual"]
+	  set user_identification_id [db_nextval ec_user_ident_id_sequence]
 	  set trimmed_email [string trim $email]
 
 	    db_dml user_identification_id_insert {