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

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-10-18 06:47:54 GMT
Modified:  code/UI_Tag update_order_status.tag
Log:
* Allow auth_code to be passed in

* Change error message.

Revision  Changes    Path
1.4       +7 -6      interchange/code/UI_Tag/update_order_status.tag


rev 1.4, prev_rev 1.3
Index: update_order_status.tag
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/code/UI_Tag/update_order_status.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- update_order_status.tag	18 Oct 2002 06:00:10 -0000	1.3
+++ update_order_status.tag	18 Oct 2002 06:47:54 -0000	1.4
@@ -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.3 200=
2/10/18 06:00:10 mheins Exp $
+UserTag update-order-status Version $Id: update_order_status.tag,v 1.4 200=
2/10/18 06:47:54 mheins Exp $
 UserTag update-order-status Routine <<EOR
 sub {
 	my ($on, $opt) =3D @_;
@@ -25,15 +25,16 @@
 	my $wants_copy =3D $udb->field($user, 'email_copy');
=20
 	for(qw/
-			settle_transaction
-			void_transaction
+			archive
+			auth_code
 			cancel_order
-			status
 			do_archive
-			archive
 			lines_shipped
 			send_email
+			settle_transaction
 			ship_all
+			status
+			void_transaction
 		/)
 	{
 		$opt->{$_} =3D $CGI::values{$_} if ! defined $opt->{$_};
@@ -123,7 +124,7 @@
 			elsif($oid =3D~ /-$/) {
 				Vend::Tags->error( {
 								name =3D> 'void_transaction',
-								set =3D> "Order ID $oid already settled!",
+								set =3D> "Order ID $oid already voided!",
 							});
 				return undef;
 			}
@@ -147,7 +148,7 @@
 				}
 				else {
 					Vend::Tags->error( {
-						name =3D> 'settle_transaction',
+						name =3D> 'void_transaction',
 						set =3D> errmsg(
 								"Order ID %s void operation failed. Reason: %s",
 								$oid,