--- loncom/interface/loncommon.pm	2013/07/15 17:42:11	1.1140
+++ loncom/interface/loncommon.pm	2013/07/22 11:46:23	1.1141
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1140 2013/07/15 17:42:11 raeburn Exp $
+# $Id: loncommon.pm,v 1.1141 2013/07/22 11:46:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2351,6 +2351,8 @@ Outputs:
 
 =item * $clientmobile
 
+=item * $clientinfo
+
 =back
 
 =back 
@@ -2381,6 +2383,7 @@ sub decode_user_agent {
 	}
     }
     my $clientos='unknown';
+    my $clientinfo;
     if (($httpbrowser=~/linux/i) ||
         ($httpbrowser=~/unix/i) ||
         ($httpbrowser=~/ux/i) ||
@@ -2395,8 +2398,13 @@ sub decode_user_agent {
     if ($httpbrowser=~/(Android|iPod|iPad|iPhone|webOS|Blackberry|Windows Phone|Opera m(?:ob|in)|Fennec)/i) {
         $clientmobile=lc($1);
     }
+    if ($httpbrowser=~ m{Firefox/(\d+\.\d+)}) {
+        $clientinfo = 'firefox-'.$1;
+    } elsif ($httpbrowser=~ m{chromeframe/(\d+\.\d+)\.}) {
+        $clientinfo = 'chromeframe-'.$1;
+    }
     return ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
-            $clientunicode,$clientos,$clientmobile);
+            $clientunicode,$clientos,$clientmobile,$clientinfo);
 }
 
 ###############################################################
@@ -14285,7 +14293,7 @@ sub init_user_environment {
 # ------------------------------------ Check browser type and MathML capability
 
     my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
-        $clientunicode,$clientos,$clientmobile) = &decode_user_agent($r);
+        $clientunicode,$clientos,$clientmobile,$clientinfo) = &decode_user_agent($r);
 
 # ------------------------------------------------------------- Get environment
 
@@ -14317,6 +14325,7 @@ sub init_user_environment {
 	     "browser.unicode"    => $clientunicode,
 	     "browser.os"         => $clientos,
              "browser.mobile"     => $clientmobile,
+             "browser.info"       => $clientinfo,
 	     "server.domain"      => $Apache::lonnet::perlvar{'lonDefDomain'},
 	     "request.course.fn"  => '',
 	     "request.course.uri" => '',