Hi,
Thanks for the feedback, that was a bug. There are 2 subroutines within Commands.pm that you need to fix:
- cmd_edit: Replace
my $browser;
$browser = 1 if ($ENV{HTTP_USER_AGENT} =~ m,MSIE 5, or $ENV{HTTP_USER_AGENT} =~ m,MSIE 6,);
WITH:
if ($ENV{HTTP_USER_AGENT} and $ENV{HTTP_USER_AGENT} =~ /MSIE (\d+(?:\.\d+)?)/) {
$version = $1;
}
$browser = $version && $version >= 5.5;
- cmd_show: Replace
my $ie = ($ENV{HTTP_USER_AGENT} =~ m,MSIE 5.5, or $ENV{HTTP_USER_AGENT} =~ m,MSIE 6,) ? 1 : 0;
WITH:
if ($ENV{HTTP_USER_AGENT} and $ENV{HTTP_USER_AGENT} =~ /MSIE (\d+(?:\.\d+)?)/) {
$version = $1;
}
$ie = $version && $version >= 5.5;
TheStone.
B.
Thanks for the feedback, that was a bug. There are 2 subroutines within Commands.pm that you need to fix:
- cmd_edit: Replace
my $browser;
$browser = 1 if ($ENV{HTTP_USER_AGENT} =~ m,MSIE 5, or $ENV{HTTP_USER_AGENT} =~ m,MSIE 6,);
WITH:
Code:
my ($browser, $version); if ($ENV{HTTP_USER_AGENT} and $ENV{HTTP_USER_AGENT} =~ /MSIE (\d+(?:\.\d+)?)/) {
$version = $1;
}
$browser = $version && $version >= 5.5;
- cmd_show: Replace
my $ie = ($ENV{HTTP_USER_AGENT} =~ m,MSIE 5.5, or $ENV{HTTP_USER_AGENT} =~ m,MSIE 6,) ? 1 : 0;
WITH:
Code:
my ($ie, $version); if ($ENV{HTTP_USER_AGENT} and $ENV{HTTP_USER_AGENT} =~ /MSIE (\d+(?:\.\d+)?)/) {
$version = $1;
}
$ie = $version && $version >= 5.5;
TheStone.
B.