[interchange-cvs] interchange - heins modified lib/Vend/Menu.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Thu Aug 15 02:43:02 2002
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}) {