[interchange-cvs] interchange - heins modified
lib/Vend/Options/Old48.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Apr 15 15:28:19 EDT 2004
User: heins
Date: 2004-04-15 19:28:19 GMT
Modified: lib/Vend/Options Tag: STABLE_5_2-branch Old48.pm
Log:
* Merge changes from head.
* Make old-style Matrix options work with arbitrary part numbers.
Revision Changes Path
No revision
No revision
1.5.2.1 +3 -4 interchange/lib/Vend/Options/Old48.pm
rev 1.5.2.1, 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.5.2.1
diff -u -r1.5 -r1.5.2.1
--- Old48.pm 26 Jan 2004 21:51:12 -0000 1.5
+++ Old48.pm 15 Apr 2004 19:28:18 -0000 1.5.2.1
@@ -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.5.2.1 2004/04/15 19:28:18 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.5.2.1 $, 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