[interchange-cvs] interchange - racke modified lib/Vend/Menu.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Aug 4 05:11:15 EDT 2006
User: racke
Date: 2006-08-04 09:11:15 GMT
Modified: lib/Vend Menu.pm
Log:
introduced joiner option for old_simple menus without iterator
Revision Changes Path
2.48 +3 -6 interchange/lib/Vend/Menu.pm
rev 2.48, prev_rev 2.47
Index: Menu.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Menu.pm,v
retrieving revision 2.47
retrieving revision 2.48
diff -u -r2.47 -r2.48
--- Menu.pm 14 Mar 2006 19:17:21 -0000 2.47
+++ Menu.pm 4 Aug 2006 09:11:15 -0000 2.48
@@ -1,6 +1,6 @@
# Vend::Menu - Interchange menu processing routines
#
-# $Id: Menu.pm,v 2.47 2006/03/14 19:17:21 mheins Exp $
+# $Id: Menu.pm,v 2.48 2006/08/04 09:11:15 racke Exp $
#
# Copyright (C) 2002 Mike Heins, <mike at perusion.net>
#
@@ -21,7 +21,7 @@
package Vend::Menu;
-$VERSION = substr(q$Revision: 2.47 $, 10);
+$VERSION = substr(q$Revision: 2.48 $, 10);
use Vend::Util;
use strict;
@@ -479,10 +479,7 @@
push @$fn, 'mv_last_row';
$list->[-1][$#$fn] = 1;
}
- $main = '';
- for(@$list) {
- $main .= menu_link($template, $_, $opt);
- }
+ $main = join($opt->{joiner}, map {menu_link($template, $_, $opt)} @$list);
}
# Prevent possibility of memory leak
More information about the interchange-cvs
mailing list