[interchange-cvs] interchange - heins modified code/UI_Tag/update_order_status.tag

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-11-04 16:16:30 GMT
Modified:  code/UI_Tag update_order_status.tag
Log:
* Fix failure to send order status email noticed by Gary Norton.

Revision  Changes    Path
1.5       +3 -1      interchange/code/UI_Tag/update_order_status.tag


rev 1.5, prev_rev 1.4
Index: update_order_status.tag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/update_order_status.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- update_order_status.tag	18 Oct 2002 06:47:54 -0000	1.4
+++ update_order_status.tag	4 Nov 2002 16:16:30 -0000	1.5
@@ -1,6 +1,6 @@
 UserTag update-order-status Order order_number
 UserTag update-order-status addAttr
-UserTag update-order-status Version $Id: update_order_status.tag,v 1.4 2002/10/18 06:47:54 mheins Exp $
+UserTag update-order-status Version $Id: update_order_status.tag,v 1.5 2002/11/04 16:16:30 mheins Exp $
 UserTag update-order-status Routine <<EOR
 sub {
 	my ($on, $opt) = @_;
@@ -289,7 +289,9 @@
 	Vend::Tags->warning("$ship_mesg $email_mesg");
 	delete $::Scratch->{ship_notice_username};
 	delete $::Scratch->{ship_notice_email};
+	delete $::Scratch->{ship_notice_order_number};
 	if($wants_copy) {
+		$::Scratch->{ship_notice_order_number} = $on;
 		$::Scratch->{ship_notice_username} = $user;
 		$::Scratch->{ship_notice_email} = $trec->{email}
 			or delete $::Scratch->{ship_notice_username};