--- loncom/homework/functionplotresponse.pm	2016/09/14 18:14:48	1.105.2.3
+++ loncom/homework/functionplotresponse.pm	2015/03/09 16:22:59	1.108
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # Functionplot responses
 #
-# $Id: functionplotresponse.pm,v 1.105.2.3 2016/09/14 18:14:48 raeburn Exp $
+# $Id: functionplotresponse.pm,v 1.108 2015/03/09 16:22:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,8 +56,11 @@ sub useHTML5 {
     } elsif ($env{'browser.type'} eq 'safari') {
         if ($env{'browser.os'} eq 'mac') {
             my ($prefix,$version) = ($env{'browser.version'} =~ /^(\d*)(\d{3})\./); 
-            if ($version >= 536) {
-                return 1;
+            if ((!$env{'browser.mobile'}) || 
+                (($env{'browser.mobile'}) && length($prefix))) {
+                if ($version >= 536) {
+                    return 1;
+                }
             }
         }
     } elsif ($env{'browser.type'} eq 'mozilla') {
@@ -70,7 +73,7 @@ sub useHTML5 {
             }
         }
     } elsif ($env{'browser.type'} eq 'explorer') { 
-        if (($env{'browser.os'} eq 'win') && ($env{'browser.version'} >= 10)) {
+        if (($env{'browser.os'} eq 'win') && ($env{'browser.version'} == 10)) {
             return 1;
         }
     } elsif ($env{'browser.type'} eq 'opera') {