[interchange-cvs] interchange - heins modified lib/Vend/Menu.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Tue Mar 14 14:17:38 EST 2006
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)
More information about the interchange-cvs
mailing list