[interchange-cvs] interchange - heins modified lib/Vend/Order.pm

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-07-28 05:17:03 GMT
Modified:  lib/Vend Order.pm
Log:
* Allow setting of db write status in route. Minor, but will remove
  need for any setup in etc/log_transaction, preparatory for
  moving its operation into separate routes.

Revision  Changes    Path
2.29      +5 -2      interchange/lib/Vend/Order.pm


rev 2.29, prev_rev 2.28
Index: Order.pm
=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: /anon_cvs/repository/interchange/lib/Vend/Order.pm,v
retrieving revision 2.28
retrieving revision 2.29
diff -u -r2.28 -r2.29
--- Order.pm	21 Jul 2002 14:08:50 -0000	2.28
+++ Order.pm	28 Jul 2002 05:17:03 -0000	2.29
@@ -1,6 +1,6 @@
 # Vend::Order - Interchange order routing routines
 #
-# $Id: Order.pm,v 2.28 2002/07/21 14:08:50 mheins Exp $
+# $Id: Order.pm,v 2.29 2002/07/28 05:17:03 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -28,7 +28,7 @@
 package Vend::Order;
 require Exporter;
=20
-$VERSION =3D substr(q$Revision: 2.28 $, 10);
+$VERSION =3D substr(q$Revision: 2.29 $, 10);
=20
 @ISA =3D qw(Exporter);
=20
@@ -1463,6 +1463,9 @@
 		my $credit_card_info;
=20
 		$Vend::Items =3D $shelf->{$c};
+
+		Vend::Interpolate::flag( 'write', {}, $route->{write_tables})
+			if $route->{write_tables};
=20
 		Vend::Interpolate::flag( 'transactions', {}, $route->{transactions})
 			if $route->{transactions};