loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.240 and 1.241

-version 1.240, 2015/02/22 01:34:48
+version 1.241, 2015/02/23 19:46:19
  Line 578  sub start_mathresponse {
  sub edit_mathresponse_button {
      my ($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 < 522) {
+                 $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'} < 3) {
+             $eqneditor = 'dragmath';
+         } else {
+             if ($env{'browser.info'} =~ /^firefox\-([\d\.]+)/) {
+                 my $firefox = $1;
+                 if ($firefox < 3) {
+                     $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">
  function LC_mathedit_${field} (LCtextline) {
      thenumber = LCtextline;
- Line 599  function LC_mathedit_${field} (LCtextlin
+ Line 624  function LC_mathedit_${field} (LCtextlin
  </script>
  <a href="javascript:LC_mathedit_${field}('${field}');void(0);"><img class="stift" src="$iconpath/stift.gif" alt="$button" title="$button" /></a>
  ENDFORMULABUTTON
+     } elsif ($eqneditor eq 'lcmath') {
-     } else {
          # LON-CAPA math equation editor
          my $mathjaxjs;
          unless (lc(&Apache::lontexconvert::tex_engine()) eq 'mathjax') {

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

Removed from v.1.240
changed lines
	Added in v.1.241