[interchange-cvs] interchange - heins modified dist/lib/UI/vars/UI_STD_HEAD

[interchange-cvs at icdevgroup.org]

User:      heins
Date:      2005-11-02 17:26:43 GMT
Modified:  dist/lib/UI/vars UI_STD_HEAD
Log:
* Allow menus to be explicitly set with CGI. This allows a bounce to
  flex_select (like userdb and transactions in large mode) to get the
  right menu.

Revision  Changes    Path
2.42      +17 -1     interchange/dist/lib/UI/vars/UI_STD_HEAD


rev 2.42, prev_rev 2.41
Index: UI_STD_HEAD
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/vars/UI_STD_HEAD,v
retrieving revision 2.41
retrieving revision 2.42
diff -u -r2.41 -r2.42
--- UI_STD_HEAD	17 Apr 2005 19:38:07 -0000	2.41
+++ UI_STD_HEAD	2 Nov 2005 17:26:43 -0000	2.42
@@ -1,4 +1,4 @@
-## UI Header vars, version: $Id: UI_STD_HEAD,v 2.41 2005/04/17 19:38:07 mheins Exp $
+## UI Header vars, version: $Id: UI_STD_HEAD,v 2.42 2005/11/02 17:26:43 mheins Exp $
 Variable UI_STD_INIT <<EOV
 [calcn]
 	# is this browser able to grok DHTML ?
@@ -138,6 +138,22 @@
 [/menu-footer]
 [/menu]
 [/if]
+
+[calc]
+	my @things = qw/
+		top_menu
+		main_menu
+		second_menu
+		third_menu
+	/;
+
+	for(@things) {
+		next unless $CGI->{$_};
+		$Tag->tmp($_);
+		$Scratch->{$_} = $CGI->{$_};
+	}
+	return;
+[/calc]
 
 [output name=top_tabs]
 [menu