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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Thu Apr 15 15:26:06 EDT 2004


User:      heins
Date:      2004-04-15 19:26:06 GMT
Modified:  lib/Vend/Options Old48.pm
Log:
* Make old-style Matrix options work with arbitrary part numbers.

Revision  Changes    Path
1.6       +3 -4      interchange/lib/Vend/Options/Old48.pm


rev 1.6, prev_rev 1.5
Index: Old48.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Options/Old48.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Old48.pm	26 Jan 2004 21:51:12 -0000	1.5
+++ Old48.pm	15 Apr 2004 19:26:06 -0000	1.6
@@ -1,6 +1,6 @@
 # Vend::Options::Old48 - Interchange 4.8 compatible product options
 #
-# $Id: Old48.pm,v 1.5 2004/01/26 21:51:12 racke Exp $
+# $Id: Old48.pm,v 1.6 2004/04/15 19:26:06 mheins Exp $
 #
 # Copyright (C) 2002-2003 Mike Heins <mikeh at perusion.net>
 # Copyright (C) 2002-2003 Interchange Development Group <interchange at icdevgroup.org>
@@ -23,7 +23,7 @@
 
 package Vend::Options::Old48;
 
-$VERSION = substr(q$Revision: 1.5 $, 10);
+$VERSION = substr(q$Revision: 1.6 $, 10);
 
 =head1 NAME
 
@@ -242,12 +242,11 @@
 			push @rf, ($map->{$_} || $_);
 		}
 		my $ccol = $map->{code} || 'code';
-		my $cval = $db->quote("$sku-%");
 		my $lcol = $map->{sku} || 'sku';
 		my $lval = $db->quote($sku, $lcol);
 
 		my $q = "SELECT " . join(",", @rf);
-		$q .= " FROM $tname where $lcol = $lval AND $ccol like $cval $rsort";
+		$q .= " FROM $tname where $lcol = $lval AND code <> $lval $rsort";
 #::logDebug("tag_options matrix query: $q");
 		my $ary = $db->query($q); 
 #::logDebug("tag_options matrix ary: " . ::uneval($ary));








More information about the interchange-cvs mailing list