[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