![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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; |