[interchange-cvs] interchange - racke modified dist/lib/UI/vars/UI_STD_HEAD
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Oct 14 08:17:00 2002
User: racke
Date: 2002-10-14 12:16:01 GMT
Modified: dist/lib/UI/vars UI_STD_HEAD
Log:
reduced parsing effort for UI_STD_INIT
Revision Changes Path
2.31 +4 -4 interchange/dist/lib/UI/vars/UI_STD_HEAD
rev 2.31, prev_rev 2.30
Index: UI_STD_HEAD
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/dist/lib/UI/vars/UI_STD_HEAD,v
retrieving revision 2.30
retrieving revision 2.31
diff -u -r2.30 -r2.31
--- UI_STD_HEAD 12 Sep 2002 05:09:44 -0000 2.30
+++ UI_STD_HEAD 14 Oct 2002 12:16:01 -0000 2.31
@@ -1,9 +1,9 @@
Variable UI_STD_INIT <<EOV
-[calc]
+[calcn]
+ # is this browser able to grok DHTML ?
my $regex =3D $Tag->var('MV_DHTML_BROWSER', 2) || 'MSIE.*Windows|Mozilla.=
*Gecko';
$Scratch->{ui_old_browser} =3D $Session->{browser} !~ /$regex/;
- return '';
-[/calc][perl]
+
# call only once per page
return if $Config->{ImageDirOriginal};
=20
@@ -26,7 +26,7 @@
}
=20
''
-[/perl]
+[/calcn]
EOV
=20
Variable UI_STD_HEAD <<EOV