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

Diff for /loncom/homework/response.pm between versions 1.238 and 1.243

version 1.238, 2014/12/30 20:03:10 version 1.243, 2015/03/09 16:19:54
Line 181  sub setrandomnumber { Line 181  sub setrandomnumber {
     } else {      } else {
  ($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");   ($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");
     }      }
     $Apache::lonhomework::results{'resource.'.$id1.'.rawrndseed'}=$rndseed;  
     if ($rndseed =~/([,:])/) {      if ($rndseed =~/([,:])/) {
  my $char=$1;   my $char=$1;
  use integer;   use integer;
Line 198  sub setrandomnumber { Line 197  sub setrandomnumber {
  }   }
     }      }
     &Apache::lonxml::debug("randseed $rndmod $rndseed");      &Apache::lonxml::debug("randseed $rndmod $rndseed");
     $Apache::lonhomework::results{'resource.'.$id1.'.rndseed'}=$rndseed;  
     &Apache::lonnet::setup_random_from_rndseed($rndseed);      &Apache::lonnet::setup_random_from_rndseed($rndseed);
     return '';      return '';
 }  }
Line 580  sub start_mathresponse { Line 578  sub start_mathresponse {
 sub edit_mathresponse_button {  sub edit_mathresponse_button {
     my ($partid,$id)=@_;      my ($partid,$id)=@_;
     my $field = 'HWVAL_'.$partid.'_'.$id;      my $field = 'HWVAL_'.$partid.'_'.$id;
     my $btype = $env{'browser.type'};      my $eqneditor = 'lcmath';
     my $bversion = $env{'browser.version'};      if ($env{'browser.type'} eq 'safari') {
     if (($btype eq 'explorer' && $bversion < 9) || ($btype eq 'safari' && $bversion < 3) ||          if ($env{'browser.os'} eq 'mac') {
         ($btype eq 'mozilla' && $bversion < 3)) {              my ($prefix,$version) = ($env{'browser.version'} =~ /^(\d*)(\d{3})\./);
       # DragMath applet              if ($env{'browser.mobile'}) {
       my $button=&mt('Edit Answer');                  if (($version < 531) || (($prefix eq '') && ($version < 533))) {
 #     my $helplink=&Apache::loncommon::help_open_topic('Formula_Editor');                      $eqneditor = '';
       my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};                  }
       return(<<ENDFORMULABUTTON);              } elsif ($version < 533) {
                   $eqneditor = 'dragmath';
               }
           } elsif ($env{'browser.os'} eq 'win') {
               if ($env{'browser.version'} < 533) {
                   $eqneditor = 'dragmath';
               }
           }
       } elsif ($env{'browser.type'} eq 'explorer') {
           if ($env{'browser.version'} < 9) {
               $eqneditor = 'dragmath';
           }
       } elsif ($env{'browser.type'} eq 'mozilla') {
           if ($env{'browser.version'} < 5) {
               $eqneditor = 'dragmath';
           } else {
               if ($env{'browser.info'} =~ /^firefox\-([\d\.]+)/) {
                   my $firefox = $1;
                   if ($firefox < 4) {
                       $eqneditor = 'dragmath';
                   }
               }
           }
       } elsif ($env{'browser.type'} eq 'chrome') {
           if ($env{'browser.version'} < 5) {
               $eqneditor = 'dragmath';
           }
       } elsif ($env{'browser.type'} eq 'opera') {
           if ($env{'browser.version'} < 12) {
               $eqneditor = 'dragmath';
           }
       }
       if ($eqneditor eq 'lcmath') {
           if (($env{'request.course.id'}) && ($env{'request.state'} ne 'construct')) {
               if (exists($env{'course.'.$env{'request.course.id'}.'.uselcmath'})) {
                   if ($env{'course.'.$env{'request.course.id'}.'.uselcmath'} eq '0') {
                       $eqneditor = 'dragmath';
                   }
               } else {
                   my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
                   if ($domdefs{'uselcmath'} eq '0') {
                       $eqneditor = 'dragmath';
                   }
               }
           } else {
               my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
               if ($domdefs{'uselcmath'} eq '0') {
                   $eqneditor = 'dragmath';
               }
           }
       }
       if ($eqneditor eq 'dragmath') {
           # DragMath applet
           my $button=&mt('Edit Answer');
   #       my $helplink=&Apache::loncommon::help_open_topic('Formula_Editor');
           my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
           return(<<ENDFORMULABUTTON);
 <script type="text/javascript" language="JavaScript">  <script type="text/javascript" language="JavaScript">
 function LC_mathedit_${field} (LCtextline) {  function LC_mathedit_${field} (LCtextline) {
     thenumber = LCtextline;      thenumber = LCtextline;
Line 601  function LC_mathedit_${field} (LCtextlin Line 655  function LC_mathedit_${field} (LCtextlin
 </script>  </script>
 <a href="javascript:LC_mathedit_${field}('${field}');void(0);"><img class="stift" src="$iconpath/stift.gif" alt="$button" title="$button" /></a>  <a href="javascript:LC_mathedit_${field}('${field}');void(0);"><img class="stift" src="$iconpath/stift.gif" alt="$button" title="$button" /></a>
 ENDFORMULABUTTON  ENDFORMULABUTTON
             } elsif ($eqneditor eq 'lcmath') {
     } else {  
         # LON-CAPA math equation editor          # LON-CAPA math equation editor
         my $mathjaxjs;          my $mathjaxjs;
         unless (lc(&Apache::lontexconvert::tex_engine()) eq 'mathjax') {          unless (lc(&Apache::lontexconvert::tex_engine()) eq 'mathjax') {
Line 617  MATHJAX_SCRIPT Line 670  MATHJAX_SCRIPT
 <script type="text/javascript">  <script type="text/javascript">
   var LCmathField = document.getElementById('${field}');    var LCmathField = document.getElementById('${field}');
   LCmathField.className += ' math'; // note the space    LCmathField.className += ' math'; // note the space
     LCmathField.setAttribute('data-implicit_operators', 'true');
   var LCMATH_started;    var LCMATH_started;
   if (typeof LCMATH_started === 'undefined') {    if (typeof LCMATH_started === 'undefined') {
     $mathjaxjs      $mathjaxjs
Removed from v.1.238  
changed lines
  Added in v.1.243

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