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

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2006-03-14 19:17:37 GMT
Modified:  lib/Vend Tag: STABLE_5_4-branch Menu.pm
Log:
* Make timeout for menu blank settable (Greg Hanson change).

Revision  Changes    Path
No                   revision



No                   revision



2.46.2.1  +4 -3      interchange/lib/Vend/Menu.pm


rev 2.46.2.1, prev_rev 2.46
Index: Menu.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Menu.pm,v
retrieving revision 2.46
retrieving revision 2.46.2.1
diff -u -r2.46 -r2.46.2.1
--- Menu.pm	21 Oct 2005 12:02:29 -0000	2.46
+++ Menu.pm	14 Mar 2006 19:17:37 -0000	2.46.2.1
@@ -1,6 +1,6 @@
 # Vend::Menu - Interchange menu processing routines
 #
-# $Id: Menu.pm,v 2.46 2005/10/21 12:02:29 racke Exp $
+# $Id: Menu.pm,v 2.46.2.1 2006/03/14 19:17:37 mheins Exp $
 #
 # Copyright (C) 2002 Mike Heins, <mike at perusion.net>
 #
@@ -21,7 +21,7 @@
 
 package Vend::Menu;
 
-$VERSION = substr(q$Revision: 2.46 $, 10);
+$VERSION = substr(q$Revision: 2.46.2.1 $, 10);
 
 use Vend::Util;
 use strict;
@@ -541,6 +541,7 @@
 EOF
 
 	$opt->{anchor_down} = is_yes($opt->{anchor_down}) || 0;
+	my $top_timeout = $opt->{timeout} || 1000;
 
 	push @out, <<EOF;
 <script language="JavaScript1.3">
@@ -809,7 +810,7 @@
 		if(level == undefined) 
 			level = 0;
 		level++;
-		${vpf}timeoutCode = setTimeout( "${vpf}menuClear();", 1000 );
+		${vpf}timeoutCode = setTimeout( "${vpf}menuClear();", $top_timeout );
 	}
 
 	function ${vpf}menuClear(level)