version 1.133, 2010/11/13 03:22:58
|
version 1.141, 2012/02/28 22:42:31
|
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 741 sub submit_ask_anyway {
|
Line 779 sub submit_ask_anyway {
|
return ' onclick="still_ask=true;'.$extra_action.'" '; |
return ' onclick="still_ask=true;'.$extra_action.'" '; |
} |
} |
|
|
|
sub submit_dont_ask { |
|
my ($extra_action) = @_; |
|
return ' onclick="is_submit=true;'.$extra_action.'" '; |
|
} |
|
|
|
|
sub textarea_sizes { |
sub textarea_sizes { |
my ($data)=@_; |
my ($data)=@_; |
my $count=0; |
my $count=0; |
Line 788 sub editfield {
|
Line 832 sub editfield {
|
# to make the edit look prettier |
# to make the edit look prettier |
$data =~ s/\n?[ \t]*$//; |
$data =~ s/\n?[ \t]*$//; |
|
|
return $description."\n".'<textarea style="width:100%" rows="'.$rows. |
return $description."\n".'<textarea style="width:99%" rows="'.$rows. |
'" cols="'.$cols.'" name="homework_edit_'. |
'" cols="'.$cols.'" name="homework_edit_'. |
$Apache::lonxml::curdepth.'" id="homework_edit_'. |
$Apache::lonxml::curdepth.'" id="homework_edit_'. |
$Apache::lonxml::curdepth.'" '.&element_change_detection(). |
$Apache::lonxml::curdepth.'" '.&element_change_detection(). |
Line 914 sub checked_arg {
|
Line 958 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).' <input name="'.&html_element_name($name). |
$result=&mt($description).' <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>'; |
} |
} |
|
|