[interchange-cvs] interchange - heins modified code/UI_Tag/update_order_status.tag
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Nov 4 11:17:00 2002
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};