--- loncom/homework/functionplotresponse.pm 2013/07/12 21:19:17 1.102 +++ loncom/homework/functionplotresponse.pm 2015/04/05 17:09:57 1.105.2.2 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # Functionplot responses # -# $Id: functionplotresponse.pm,v 1.102 2013/07/12 21:19:17 raeburn Exp $ +# $Id: functionplotresponse.pm,v 1.105.2.2 2015/04/05 17:09:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,9 +49,35 @@ BEGIN { # Return a true value if HTML5 should be used. sub useHTML5 { - if ($env{'browser.type'} eq 'chrome') { return 1; } - if (($env{'browser.type'} eq 'safari') && - ($env{'browser.os'} eq 'mac')) { return 1; } + if ($env{'browser.type'} eq 'chrome') { + if ($env{'browser.version'} >= 14) { + return 1; + } + } 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; + } + } + } elsif ($env{'browser.type'} eq 'mozilla') { + if ($env{'browser.info'} =~ /^firefox\-(\d+)/) { + my $firefox = $1; + if ((($env{'browser.os'} eq 'mac') && ($firefox >= 20)) || + (($env{'browser.os'} eq 'unix') && ($firefox >= 17)) || + (($env{'browser.os'} eq 'win') && ($firefox >= 14))) { + return 1; + } + } + } elsif ($env{'browser.type'} eq 'explorer') { + if (($env{'browser.os'} eq 'win') && ($env{'browser.version'} >= 10)) { + return 1; + } + } elsif ($env{'browser.type'} eq 'opera') { + if ($env{'browser.version'} >= 18) { + return 1; + } + } return 0; } @@ -158,7 +184,7 @@ sub java_geogebra_default_parameters { - + @@ -887,7 +913,7 @@ sub start_functionplotrule { $result=&Apache::edit::tag_start($target,$token,'Function Plot Graph Rule'). &Apache::edit::text_arg('Index/Name:','index', $token,'10').' '. - &Apache::edit::select_arg(&mt('Function:'),'derivativeorder', + &Apache::edit::select_arg('Function:','derivativeorder', [['0','Function itself'], ['1','First derivative'], ['2','Second derivative'],