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

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2003-08-25 18:31:14 GMT
Modified:  code/UI_Tag update_order_status.tag
Log:
* Allow tracking number to be updated on ship. Fix contributed by Sebastian Braun.

Revision  Changes    Path
1.8       +6 -1      interchange/code/UI_Tag/update_order_status.tag


rev 1.8, prev_rev 1.7
Index: update_order_status.tag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/update_order_status.tag,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- update_order_status.tag	14 May 2003 22:29:29 -0000	1.7
+++ update_order_status.tag	25 Aug 2003 18:31:14 -0000	1.8
@@ -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.7 2003/05/14 22:29:29 mheins Exp $
+UserTag update-order-status Version $Id: update_order_status.tag,v 1.8 2003/08/25 18:31:14 mheins Exp $
 UserTag update-order-status Routine <<EOR
 sub {
 	my ($on, $opt) = @_;
@@ -34,6 +34,7 @@
 			settle_transaction
 			ship_all
 			status
+			tracking_number
 			void_transaction
 		/)
 	{
@@ -167,6 +168,10 @@
 	}
 	else {
 		$tdb->set_field($on, 'status', 'shipped');
+	}
+
+	if($opt->{tracking_number} =~ /\w/) {
+		$tdb->set_field($on, 'tracking_number', $opt->{tracking_number});
 	}
 
 	my @shiplines = grep /\S/, split /\0/, $opt->{lines_shipped};