--- loncom/interface/loncommon.pm	2005/01/14 21:15:09	1.246
+++ loncom/interface/loncommon.pm	2005/01/25 00:27:59	1.247
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.246 2005/01/14 21:15:09 matthew Exp $
+# $Id: loncommon.pm,v 1.247 2005/01/25 00:27:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1241,9 +1241,11 @@ Outputs:
 ###############################################################
 ###############################################################
 sub decode_user_agent {
+    my ($r)=@_;
     my @browsertype=split(/\&/,$Apache::lonnet::perlvar{"lonBrowsDet"});
     my %mathcap=split(/\&/,$$Apache::lonnet::perlvar{"lonMathML"});
     my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
+    if (!$httpbrowser && $r) { $httpbrowser=$r->header_in('User-Agent'); }
     my $clientbrowser='unknown';
     my $clientversion='0';
     my $clientmathml='';