[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.140

version 1.135, 2011/08/09 16:12:21 version 1.140, 2012/02/13 11:23:11
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_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 920  sub checked_arg { Line 952  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.140

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