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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Thu May 13 18:48:21 EDT 2004


User:      heins
Date:      2004-05-13 22:48:21 GMT
Modified:  lib/Vend Order.pm
Log:
* Allow AutoModifier to select common attributes for matrix items (or based
  on any item modifier)

Revision  Changes    Path
2.65      +9 -5      interchange/lib/Vend/Order.pm


rev 2.65, prev_rev 2.64
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.64
retrieving revision 2.65
diff -u -r2.64 -r2.65
--- Order.pm	6 Mar 2004 22:16:57 -0000	2.64
+++ Order.pm	13 May 2004 22:48:21 -0000	2.65
@@ -1,6 +1,6 @@
 # Vend::Order - Interchange order routing routines
 #
-# $Id: Order.pm,v 2.64 2004/03/06 22:16:57 mheins Exp $
+# $Id: Order.pm,v 2.65 2004/05/13 22:48:21 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -29,7 +29,7 @@
 package Vend::Order;
 require Exporter;
 
-$VERSION = substr(q$Revision: 2.64 $, 10);
+$VERSION = substr(q$Revision: 2.65 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -1023,6 +1023,7 @@
 		undef $individual;
 	}
 
+::logDebug("nextpage=$CGI::values{mv_nextpage}");
 	for my $profile (split /\0+/, $profiles) {
 
 		$status = check_order_each($profile, $vref, $individual);
@@ -1054,6 +1055,7 @@
 			}
 		}
 		else {
+::logDebug("Got to status=$status on profile=$profile");
 			if($Fail_page) {
 				$np = $CGI::values{mv_nextpage} = $Fail_page;
 			}
@@ -1094,6 +1096,7 @@
 	my $errors = join "\n", @Errors;
 #::logDebug("Errors after checking profile(s):\n$errors") if $errors;
 	$errors = '' unless defined $errors and ! $Success;
+::logDebug("status=$status nextpage=$CGI::values{mv_nextpage}");
 	return ($status, $Final, $errors);
 }
 
@@ -2553,13 +2556,14 @@
 			}
 			if($Vend::Cfg->{AutoModifier}) {
 				foreach $i (@{$Vend::Cfg->{AutoModifier}}) {
-					my ($table,$key) = split /:/, $i;
+					my ($table,$key,$attrib) = split /:/, $i;
+					my $select = $attrib ? $item->{$attrib} : $code;
 					unless ($key) {
 						$key = $table;
-						$item->{$key} = item_common($item, $key, $code)
+						$item->{$key} = item_common($item, $key, $select)
 					}
 					else {
-						$item->{$key} = tag_data($table, $key, $code);
+						$item->{$key} = tag_data($table, $key, $select);
 					}
 				}
 			}








More information about the interchange-cvs mailing list