[interchange-cvs] interchange - heins modified
code/UI_Tag/update_order_status.tag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Mon Aug 25 15:31:00 EDT 2003
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};
More information about the interchange-cvs
mailing list