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

Diff for /loncom/homework/response.pm between versions 1.237 and 1.239

version 1.237, 2014/09/24 18:14:27 version 1.239, 2015/02/20 22:14:49
Line 56  use Apache::lonnet; Line 56  use Apache::lonnet;
 use Apache::inputtags();  use Apache::inputtags();
 use Apache::lonmaxima();  use Apache::lonmaxima();
 use Apache::lonr();  use Apache::lonr();
   use Apache::lontexconvert();
   
 BEGIN {  BEGIN {
     &Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse','customresponse','mathresponse'));      &Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse','customresponse','mathresponse'));
Line 577  sub start_mathresponse { Line 578  sub start_mathresponse {
 }  }
   
 sub edit_mathresponse_button {  sub edit_mathresponse_button {
     my ($id,$field)=@_;      my ($partid,$id)=@_;
       my $field = 'HWVAL_'.$partid.'_'.$id;
     my $btype = $env{'browser.type'};      my $btype = $env{'browser.type'};
     my $bversion = $env{'browser.version'};      my $bversion = $env{'browser.version'};
     if (($btype eq 'explorer' && $bversion < 9) || ($btype eq 'safari' && $bversion < 3) ||      if (($btype eq 'explorer' && $bversion < 9) || ($btype eq 'safari' && $bversion < 3) ||
Line 588  sub edit_mathresponse_button { Line 590  sub edit_mathresponse_button {
       my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};        my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
       return(<<ENDFORMULABUTTON);        return(<<ENDFORMULABUTTON);
 <script type="text/javascript" language="JavaScript">  <script type="text/javascript" language="JavaScript">
 function edit_${id}_${field} (textarea) {  function LC_mathedit_${field} (LCtextline) {
     thenumber = textarea;      thenumber = LCtextline;
     thedata = document.forms['lonhomework'].elements[textarea].value;      var thedata = '';
       if (document.getElementById(LCtextline)) {
           thedata = document.getElementById(LCtextline).value;
       }
     newwin = window.open("/adm/dragmath/MaximaPopup.html","","width=565,height=400,resizable");      newwin = window.open("/adm/dragmath/MaximaPopup.html","","width=565,height=400,resizable");
 }  }
 </script>  </script>
 <a href="javascript:edit_${id}_${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
               
     } else {      } else {
       # LON-CAPA math equation editor          # LON-CAPA math equation editor
       return(<<EQ_EDITOR_SCRIPT);          my $mathjaxjs;
           unless (lc(&Apache::lontexconvert::tex_engine()) eq 'mathjax') {
               $mathjaxjs = <<"MATHJAX_SCRIPT";
   var mathjaxscript = document.createElement("script");
       mathjaxscript.type = "text/javascript";
       mathjaxscript.src = "/adm/MathJax/MathJax.js?config=TeX-AMS-MML_HTMLorMML";
       document.body.appendChild(mathjaxscript);
   MATHJAX_SCRIPT
           }
           return(<<EQ_EDITOR_SCRIPT);
 <script type="text/javascript">  <script type="text/javascript">
   var field = document.getElementById('${field}');    var LCmathField = document.getElementById('${field}');
   field.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
     LCMATH_started = true;      LCMATH_started = true;
     var script = document.createElement("script");      var script = document.createElement("script");
     script.type = "text/javascript";      script.type = "text/javascript";
Line 679  sub end_mathresponse { Line 695  sub end_mathresponse {
         my $id = $Apache::inputtags::response[-1];          my $id = $Apache::inputtags::response[-1];
         if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')          if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')
            && (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) {             && (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) {
             $result.=&edit_mathresponse_button($id,"HWVAL_$id");              $result.=&edit_mathresponse_button($partid,$id);
         }          }
     }      }
   
Removed from v.1.237  
changed lines
  Added in v.1.239

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