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

Diff for /loncom/homework/edit.pm between versions 1.135 and 1.142

version 1.135, 2011/08/09 16:12:21 version 1.142, 2012/08/07 14:54:10
Line 401  sub insert_functionplotresponse { Line 401  sub insert_functionplotresponse {
     return '      return '
 <functionplotresponse>  <functionplotresponse>
 <functionplotelements>  <functionplotelements>
 <spline />  
 </functionplotelements>  </functionplotelements>
 <functionplotruleset>  <functionplotruleset>
 <functionplotrule />  
 </functionplotruleset>  </functionplotruleset>
 </functionplotresponse>';  </functionplotresponse>';
 }  }
Line 419  sub insert_backgroundplot { Line 417  sub insert_backgroundplot {
 <backgroundplot />';  <backgroundplot />';
 }  }
   
   sub insert_plotobject {
       return '
   <plotobject />';
   }
   
   sub insert_plotvector {
       return '
   <plotvector />';
   }
   
   sub insert_drawvectorsum {
       return '
   <drawvectorsum />';
   }
   
   
 sub insert_functionplotrule {  sub insert_functionplotrule {
     return '      return '
 <functionplotrule />';  <functionplotrule />';
 }  }
   
   sub insert_functionplotvectorrule {
       return '
   <functionplotvectorrule />';
   }
   
   sub insert_functionplotvectorsumrule {
       return '
   <functionplotvectorsumrule />';
   }
   
   sub insert_functionplotcustomrule {
       return '
   <functionplotcustomrule>
   <answer type="loncapa/perl">
   # &fpr_val("label"), &fpr_f($x), &fpr_dfdx($x), &fpr_d2fdx2($x)
   # ($xs,$xe,$ys,$ye)=&fpr_vectorcoords("Name"), ($x,$y)=&fpr_objectcoords("Name")
   # &fpr_vectorlength("Name"), &fpr_vectorangle("Name")
    
   # Return 0 or 1
   return 1;
   </answer>
   </functionplotcustomrule>';
   }
   
 sub insert_functionplotruleset {  sub insert_functionplotruleset {
     return '      return '
 <functionplotruleset>  <functionplotruleset>
Line 706  sub js_change_detection { Line 744  sub js_change_detection {
     my $unsaved=&mt("There are unsaved changes");      my $unsaved=&mt("There are unsaved changes");
     return (<<SCRIPT);      return (<<SCRIPT);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 var clean = true;  var clean = true;
 var is_submit = false;  var is_submit = false;
 var still_ask = false;  var still_ask = false;
Line 724  function unClean() { Line 763  function unClean() {
      clean=false;       clean=false;
 }  }
 window.onbeforeunload = compareForm;  window.onbeforeunload = compareForm;
   // ]]>
 </script>  </script>
 SCRIPT  SCRIPT
 }  }
Line 920  sub checked_arg { Line 960  sub checked_arg {
 }  }
   
 sub text_arg {  sub text_arg {
     my ($description,$name,$token,$size) = @_;      my ($description,$name,$token,$size, $class) = @_;
     my $result;      my $result;
     if (!defined $size) { $size=20; }      if (!defined $size) { $size=20; }
     my $arg=$token->[2]{$name};      my $arg=$token->[2]{$name};
     $result=&mt($description).'&nbsp;<input name="'.&html_element_name($name).      $result=&mt($description).'&nbsp;<input name="'.&html_element_name($name).
  '" type="text" value="'.$arg.'" size="'.$size.'" '.   '" type="text" value="'.$arg.'" size="'.$size.'" ';
  &element_change_detection().'/>';      if (defined $class) {
    $result .= 'class="' . $class . '" ';
       }
       $result .= &element_change_detection().'/>';
     return '<span class="LC_nobreak">'.$result.'</span>';      return '<span class="LC_nobreak">'.$result.'</span>';
 }  }
   
Removed from v.1.135  
changed lines
  Added in v.1.142

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