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

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-08-15 06:42:57 GMT
Modified:  lib/Vend Menu.pm
Log:
* Fix bug where transforms didn't happen to tree types.

Revision  Changes    Path
2.11      +14 -2     interchange/lib/Vend/Menu.pm


rev 2.11, prev_rev 2.10
Index: Menu.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/lib/Vend/Menu.pm,v
retrieving revision 2.10
retrieving revision 2.11
diff -u -r2.10 -r2.11
--- Menu.pm	15 Aug 2002 06:18:23 -0000	2.10
+++ Menu.pm	15 Aug 2002 06:42:56 -0000	2.11
@@ -1,6 +1,6 @@
 # Vend::Menu - Interchange payment processing routines
 #
-# $Id: Menu.pm,v 2.10 2002/08/15 06:18:23 mheins Exp $
+# $Id: Menu.pm,v 2.11 2002/08/15 06:42:56 mheins Exp $
 #
 # Copyright (C) 2002 Mike Heins, <mike@perusion.net>
 #
@@ -21,7 +21,7 @@
=20
 package Vend::Menu;
=20
-$VERSION =3D substr(q$Revision: 2.10 $, 10);
+$VERSION =3D substr(q$Revision: 2.11 $, 10);
=20
 use Vend::Util;
 use strict;
@@ -357,7 +357,13 @@
 			row_repository =3D> [],
 			full        =3D> '1',
 			spacing     =3D> '4',
+			_transform   =3D> $opt->{_transform},
 		);
+=09
+	for(@{$opt->{_transform} || []}) {
+		$o{$_} =3D $opt->{$_};
+	}
+
 	push @out, Vend::Tags->tree(\%o);
=20
 	my $rows =3D $o{row_repository} || [];
@@ -639,7 +645,13 @@
 			iterator    =3D> \&tree_line,
 			full        =3D> '1',
 			spacing     =3D> '4',
+			_transform   =3D> $opt->{_transform},
 		);
+=09
+	for(@{$opt->{_transform} || []}) {
+		$o{$_} =3D $opt->{$_};
+	}
+
 	push @out, Vend::Tags->tree(\%o);
 #::logDebug("out now=3D" . ::uneval(\@out) );
 	if(defined $CGI::values{open}) {