[interchange-cvs] interchange - racke modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Jul 6 06:08:59 EDT 2007
User: racke
Date: 2007-07-06 10:08:58 GMT
Modified: . WHATSNEW-5.5
Modified: lib/Vend Interpolate.pm
Log:
Superfluous Vend::Interpolate::sort_cart function removed (#70).
Revision Changes Path
1.37 +2 -0 interchange/WHATSNEW-5.5
rev 1.37, prev_rev 1.36
Index: WHATSNEW-5.5
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.5,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- WHATSNEW-5.5 5 Jul 2007 12:58:48 -0000 1.36
+++ WHATSNEW-5.5 6 Jul 2007 10:08:58 -0000 1.37
@@ -70,6 +70,8 @@
* Fixed error where the wrong tag name can sometimes appear in [calc] error
messages (#7).
+* Superfluous Vend::Interpolate::sort_cart function removed (#70).
+
UserDB
------
2.282 +2 -24 interchange/lib/Vend/Interpolate.pm
rev 2.282, prev_rev 2.281
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.281
retrieving revision 2.282
diff -u -r2.281 -r2.282
--- Interpolate.pm 20 Jun 2007 16:02:28 -0000 2.281
+++ Interpolate.pm 6 Jul 2007 10:08:58 -0000 2.282
@@ -1,6 +1,6 @@
# Vend::Interpolate - Interpret Interchange tags
#
-# $Id: Interpolate.pm,v 2.281 2007/06/20 16:02:28 mheins Exp $
+# $Id: Interpolate.pm,v 2.282 2007/07/06 10:08:58 racke Exp $
#
# Copyright (C) 2002-2007 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = substr(q$Revision: 2.281 $, 10);
+$VERSION = substr(q$Revision: 2.282 $, 10);
@EXPORT = qw (
@@ -78,8 +78,6 @@
push @EXPORT, 'tag_sql_list';
# END SQL
- at EXPORT_OK = qw( sort_cart );
-
use Safe;
my $hole;
@@ -3436,26 +3434,6 @@
}
-}
-
-sub sort_cart {
- my($options, $cart) = @_;
- my ($item,$code);
- my %order; my @codes; my @out;
- my $sort_order;
- foreach $item (@$cart) {
- $code = $item->{code};
- $order{$code} = [] unless defined $order{$code};
- push @{$order{$code}}, $item;
- push @codes, $code;
- }
-
- $sort_order = tag_sort_hash($options, \@codes);
-
- foreach $code (@$sort_order) {
- push @out, @{$order{$code}};
- }
- return \@out;
}
# Naming convention
More information about the interchange-cvs
mailing list