Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.1192, 2014/06/07 19:13:42 | version 1.1193, 2014/06/16 05:12:31 |
---|---|
Line 2385 sub decode_user_agent { | Line 2385 sub decode_user_agent { |
my $clientunicode='0'; | my $clientunicode='0'; |
my $clientmobile=0; | my $clientmobile=0; |
for (my $i=0;$i<=$#browsertype;$i++) { | for (my $i=0;$i<=$#browsertype;$i++) { |
my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\:/,$browsertype[$i]); | my ($bname,$match,$notmatch,$vreg,$minv,$univ)=split(/\%/,$browsertype[$i]); |
if (($httpbrowser=~/$match/i) && ($httpbrowser!~/$notmatch/i)) { | if (($httpbrowser=~/$match/i) && ($httpbrowser!~/$notmatch/i)) { |
$clientbrowser=$bname; | $clientbrowser=$bname; |
$httpbrowser=~/$vreg/i; | $httpbrowser=~/$vreg/i; |