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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sun Dec 10 13:16:35 EST 2006


User:      heins
Date:      2006-12-10 18:16:35 GMT
Modified:  lib/Vend Menu.pm
Log:
* Allow setting of link target from menu table

Revision  Changes    Path
2.49      +11 -5     interchange/lib/Vend/Menu.pm


rev 2.49, prev_rev 2.48
Index: Menu.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Menu.pm,v
retrieving revision 2.48
retrieving revision 2.49
diff -u -r2.48 -r2.49
--- Menu.pm	4 Aug 2006 09:11:15 -0000	2.48
+++ Menu.pm	10 Dec 2006 18:16:35 -0000	2.49
@@ -1,6 +1,6 @@
 # Vend::Menu - Interchange menu processing routines
 #
-# $Id: Menu.pm,v 2.48 2006/08/04 09:11:15 racke Exp $
+# $Id: Menu.pm,v 2.49 2006/12/10 18:16:35 mheins Exp $
 #
 # Copyright (C) 2002 Mike Heins, <mike at perusion.net>
 #
@@ -21,7 +21,7 @@
 
 package Vend::Menu;
 
-$VERSION = substr(q$Revision: 2.48 $, 10);
+$VERSION = substr(q$Revision: 2.49 $, 10);
 
 use Vend::Util;
 use strict;
@@ -658,7 +658,9 @@
 		out += '>';
 		var tstyle = ${vpf}link_style;
 		var tclass = ${vpf}link_class;
-		var ttarget = ${vpf}link_target;
+		var ttarget = l[${vpf}TARGET];
+		if(! ttarget)
+			ttarget = ${vpf}link_target;
 		var tprepend = ${vpf}link_prepend;
 		if(l[${vpf}PAGE]) {
 			out = out + '<a href="' + tprepend + l[ ${vpf}PAGE ] + '"';
@@ -1230,7 +1232,9 @@
 
 	var tstyle = ${vpf}link_style;
 	var tclass = ${vpf}link_class;
-	var ttarget = ${vpf}link_target;
+	var ttarget = l[${vpf}TARGET];
+	if(! ttarget)
+		ttarget = ${vpf}link_target;
 	var tprepend = ${vpf}link_prepend;
 	if(l[${vpf}MV_CHILDREN] > 0) {
 		if(l[${vpf}MV_LEVEL] && ${vpf}icon_by_type) {
@@ -1886,7 +1890,9 @@
 							description
 							img_up
 							img_dn
-							img_sel / ];
+							img_sel
+							target
+							/ ];
 		if($opt->{loopfields}) {
 			if(! ref($opt->{loopfields})) {
 				my $fstring = $opt->{loopfields};








More information about the interchange-cvs mailing list