Index: openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl	8 Aug 2005 13:10:06 -0000	1.16
+++ openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl	10 Aug 2005 01:51:15 -0000	1.17
@@ -330,10 +330,13 @@
 	}
         return -code return [list $from_addr $subject "$email $body_extra" $email_from]
     } else {
+	
 	set subject_key_trim [lindex [split [dotlrn_ecommerce::email_type_message_key -type $type -key subject] "."] 1]
 	set email_key_trim [lindex [split [dotlrn_ecommerce::email_type_message_key -type $type -key body] "."] 1]
-	set subject [lang::message::get_element -package_key dotlrn-ecommerce -message_key $subject_key_trim -locale [ad_conn locale] -element message]
-	set email [lang::message::get_element -package_key dotlrn-ecommerce -message_key $email_key_trim -locale [ad_conn locale] -element message]
+	set subject ""
+	set email ""
+	catch {set subject [lang::message::get_element -package_key dotlrn-ecommerce -message_key $subject_key_trim -locale [ad_conn locale] -element message]} errmsg
+	catch {set email [lang::message::get_element -package_key dotlrn-ecommerce -message_key $email_key_trim -locale [ad_conn locale] -element message]}
         set from_addr [parameter::get -package_id [ad_acs_kernel_id] -parameter OutgoingSender]
         # check to see if message keys exist
         return -code return [list $from_addr $subject "$email $body_extra" "dotlrn-ecommerce"]