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

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Sun Oct 27 13:52:00 2002


User:      heins
Date:      2002-10-27 18:51:03 GMT
Modified:  dist/lib/UI/vars UI_STD_HEAD
Log:
* $Tag->var() not working in RPC mode with Perl 5.8, fails silently.
  Workaround to fix this for browser initialization. Can be permanent,
  because __MV_DHTML_BROWSER__ can be set in catalog_before.cfg if
  to be sitewide.

Revision  Changes    Path
2.34      +3 -1      interchange/dist/lib/UI/vars/UI_STD_HEAD


rev 2.34, prev_rev 2.33
Index: UI_STD_HEAD
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/vars/UI_STD_HEAD,v
retrieving revision 2.33
retrieving revision 2.34
diff -u -r2.33 -r2.34
--- UI_STD_HEAD	27 Oct 2002 05:09:39 -0000	2.33
+++ UI_STD_HEAD	27 Oct 2002 18:51:02 -0000	2.34
@@ -1,9 +1,11 @@
+## UI Header vars, version: $Id: UI_STD_HEAD,v 2.34 2002/10/27 18:51:02 mheins Exp $
 Variable UI_STD_INIT <<EOV
 [calcn]
 	# is this browser able to grok DHTML ?
 	# (Called separately to prevent bad user value in MV_DHTML_BROWSER
 	# from crashing init...)
-	my $regex = $Tag->var('MV_DHTML_BROWSER', 2) || 'MSIE.*Windows|Mozilla.*Gecko';
+	my $regex = q{__MV_DHTML_BROWSER__}
+				|| 'MSIE.*5.5|MSIE.*6|Mozilla\W*5|Mozilla.*Gecko';
 	$Scratch->{ui_old_browser} = $Session->{browser} !~ /$regex/;
 	return;
 [/calcn][calcn]