[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]