Diff for /loncom/homework/functionplotresponse.pm between versions 1.102 and 1.104

version 1.102, 2013/07/12 21:19:17 version 1.104, 2013/12/03 14:54:29
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 {
     if  ($env{'browser.type'} eq 'chrome') { return 1; }      if ($env{'browser.type'} eq 'chrome') {
     if (($env{'browser.type'} eq 'safari') &&          if ($env{'browser.version'} >= 14) {
         ($env{'browser.os'} eq 'mac')) { return 1; }              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;      return 0;
 }  }
   
Line 887  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').' '.                                       $token,'10').' '.
              &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'],

Removed from v.1.102  
changed lines
  Added in v.1.104


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