--- loncom/homework/functionplotresponse.pm	2012/08/17 13:08:11	1.98
+++ loncom/homework/functionplotresponse.pm	2012/08/17 22:51:59	1.100
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # Functionplot responses
 #
-# $Id: functionplotresponse.pm,v 1.98 2012/08/17 13:08:11 www Exp $
+# $Id: functionplotresponse.pm,v 1.100 2012/08/17 22:51:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,7 +49,10 @@ BEGIN {
 # Return a true value if HTML5 should be used.
 
 sub useHTML5 {
-    return 1;
+    if  ($env{'browser.type'} eq 'chrome') { return 1; }
+    if (($env{'browser.type'} eq 'safari') &&
+        ($env{'browser.os'} eq 'mac')) { return 1; }
+    return 0;
 }
 
 #
@@ -193,7 +196,7 @@ sub init_script {
       my $html5init='';
       if (&useHTML5()) {
           $html5init=
-           '<script type="text/javascript" language="javascript" src="/adm/geogebra/html5/web/test42/web/web.nocache.js"></script>';
+           '<script type="text/javascript" language="javascript" src="/adm/geogebra/web/web.nocache.js"></script>';
       }
       return (<<ENDGGBINIT);
 $html5init