[BACK]Return to functionplotresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/functionplotresponse.pm between versions 1.98 and 1.106

version 1.98, 2012/08/17 13:08:11 version 1.106, 2014/08/14 14:49:49
Line 49  BEGIN { Line 49  BEGIN {
 # Return a true value if HTML5 should be used.  # Return a true value if HTML5 should be used.
   
 sub useHTML5 {  sub useHTML5 {
     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 ((!$env{'browser.mobile'}) || 
                   (($env{'browser.mobile'}) && length($prefix))) {
                   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;
           }
       }
       return 0;
 }  }
   
 #  #
Line 155  sub java_geogebra_default_parameters { Line 183  sub java_geogebra_default_parameters {
         <param name="boxborder" value="false"  />          <param name="boxborder" value="false"  />
         <param name="centerimage" value="true"  />          <param name="centerimage" value="true"  />
  <param name="cache_archive" value="geogebra.jar, geogebra_main.jar, geogebra_gui.jar, geogebra_cas.jar, geogebra_export.jar, geogebra_algos.jar, geogebra_javascript.jar, geogebra_properties.jar, jlatexmath.jar, jlm_cyrillic.jar, jlm_greek.jar" />   <param name="cache_archive" value="geogebra.jar, geogebra_main.jar, geogebra_gui.jar, geogebra_cas.jar, geogebra_export.jar, geogebra_algos.jar, geogebra_javascript.jar, geogebra_properties.jar, jlatexmath.jar, jlm_cyrillic.jar, jlm_greek.jar" />
  <param name="cache_version" value="4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0,4.0.1.0" />   <param name="cache_version" value="4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0,4.4.3.0" />
         <param name="framePossible" value="false" />          <param name="framePossible" value="false" />
   
         <param name="showResetIcon" value="false" />          <param name="showResetIcon" value="false" />
Line 193  sub init_script { Line 221  sub init_script {
       my $html5init='';        my $html5init='';
       if (&useHTML5()) {        if (&useHTML5()) {
           $html5init=            $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);        return (<<ENDGGBINIT);
 $html5init  $html5init
Line 807  sub start_backgroundplot { Line 835  sub start_backgroundplot {
              &Apache::edit::text_arg('Label on Plot:','label',               &Apache::edit::text_arg('Label on Plot:','label',
                                      $token,'8').                                       $token,'8').
              &Apache::edit::text_arg('Color (hex code):','color',               &Apache::edit::text_arg('Color (hex code):','color',
                                      $token,'8').                                       $token,'8', 'colorchooser').
              &Apache::edit::select_arg('Fixed location:','fixed',               &Apache::edit::select_arg('Fixed location:','fixed',
                                   ['yes','no'],$token).                                    ['yes','no'],$token).
              &Apache::edit::end_row();               &Apache::edit::end_row();
Line 884  sub start_functionplotrule { Line 912  sub start_functionplotrule {
         $result=&Apache::edit::tag_start($target,$token,'Function Plot Graph Rule').          $result=&Apache::edit::tag_start($target,$token,'Function Plot Graph Rule').
              &Apache::edit::text_arg('Index/Name:','index',               &Apache::edit::text_arg('Index/Name:','index',
                                      $token,'10').'&nbsp;'.                                       $token,'10').'&nbsp;'.
              &Apache::edit::select_arg(&mt('Function:'),'derivativeorder',               &Apache::edit::select_arg('Function:','derivativeorder',
                                   [['0','Function itself'],                                    [['0','Function itself'],
                                    ['1','First derivative'],                                     ['1','First derivative'],
                                    ['2','Second derivative'],                                     ['2','Second derivative'],
Line 1482  sub start_functionplotresponse { Line 1510  sub start_functionplotresponse {
                      $env{'form.counter'},$Apache::lonxml::curdepth);                       $env{'form.counter'},$Apache::lonxml::curdepth);
       &Apache::lonxml::add_script_result(        &Apache::lonxml::add_script_result(
           &Apache::loncommon::modal_adhoc_window($function_name,700,500,            &Apache::loncommon::modal_adhoc_window($function_name,700,500,
              '<pre>'.$Apache::functionplotresponse::ruleslog.'</pre>',               '<pre style="background-color:#ffffff;">'.$Apache::functionplotresponse::ruleslog.'</pre>',
               &mt('Rules Log'))."<br />");                &mt('Rules Log'))."<br />");
   }    }
   return $result;    return $result;
Removed from v.1.98  
changed lines
  Added in v.1.106

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>