version 1.135, 2011/08/09 16:12:21
|
version 1.145, 2013/06/25 15:07:30
|
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 450 sub insert_numericalresponse {
|
Line 488 sub insert_numericalresponse {
|
</numericalresponse>'; |
</numericalresponse>'; |
} |
} |
|
|
|
sub insert_externalresponse { |
|
return ' |
|
<externalresponse url="" answer="" answerdisplay="" form=""> |
|
<textfield spellcheck="none" /> |
|
</externalresponse>'; |
|
} |
|
|
sub insert_customresponse { |
sub insert_customresponse { |
return ' |
return ' |
<customresponse> |
<customresponse> |
Line 706 sub js_change_detection {
|
Line 751 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 770 function unClean() {
|
clean=false; |
clean=false; |
} |
} |
window.onbeforeunload = compareForm; |
window.onbeforeunload = compareForm; |
|
// ]]> |
</script> |
</script> |
SCRIPT |
SCRIPT |
} |
} |
Line 788 sub editfield {
|
Line 835 sub editfield {
|
if ($cols > 80) { $cols = 80; } |
if ($cols > 80) { $cols = 80; } |
if ($cols < $minwidth ) { $cols = $minwidth; } |
if ($cols < $minwidth ) { $cols = $minwidth; } |
if ($rows < $minheight) { $rows = $minheight; } |
if ($rows < $minheight) { $rows = $minheight; } |
if ($description) { $description=$description."<br />"; } |
if ($description) { $description='<br />'.&mt($description).'<br />'; } |
|
|
# remove typesetting whitespace from between data and the end tag |
# remove typesetting whitespace from between data and the end tag |
# to make the edit look prettier |
# to make the edit look prettier |
Line 800 sub editfield {
|
Line 847 sub editfield {
|
$Apache::lonxml::curdepth.'" '.&element_change_detection(). |
$Apache::lonxml::curdepth.'" '.&element_change_detection(). |
$textareaclass.'>'. |
$textareaclass.'>'. |
&HTML::Entities::encode($data,'<>&"').'</textarea>'. |
&HTML::Entities::encode($data,'<>&"').'</textarea>'. |
($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework', |
($usehtmlarea?'<br />'.&Apache::lonhtmlcommon::spelllink('lonhomework', |
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; |
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; |
} |
} |
|
|
sub modifiedfield { |
sub modifiedfield { |
Line 906 sub checked_arg {
|
Line 953 sub checked_arg {
|
$text=$option; |
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
$result.='<span class="LC_nobreak"><label><input type="checkbox" '.$value.' name="'. |
$result.=' <span class="LC_edit_opt"><label><input type="checkbox" '.$value.' name="'. |
&html_element_name($name).'"'; |
&html_element_name($name).'"'; |
foreach my $selected (split(/,/,$allselected)) { |
foreach my $selected (split(/,/,$allselected)) { |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
Line 920 sub checked_arg {
|
Line 967 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) { |
return '<span class="LC_nobreak">'.$result.'</span>'; |
$result .= 'class="' . $class . '" '; |
|
} |
|
$result .= &element_change_detection().'/>'; |
|
return ' <span class="LC_edit_opt">'.$result.'</span>'; |
} |
} |
|
|
sub select_arg { |
sub select_arg { |
Line 953 sub select_arg {
|
Line 1003 sub select_arg {
|
} |
} |
} |
} |
} |
} |
$result.='<span class="LC_nobreak">'.&mt($description).' <select name="'. |
$result.=' <span class="LC_edit_opt">'.&mt($description).' <select name="'. |
&html_element_name($name).'" '.&element_change_detection().' > |
&html_element_name($name).'" '.&element_change_detection().' > |
'.$optionlist.' |
'.$optionlist.' |
</select></span>'; |
</select></span>'; |
Line 1004 sub select_or_text_arg {
|
Line 1054 sub select_or_text_arg {
|
$description=&mt($description); |
$description=&mt($description); |
# |
# |
return (<<ENDSELECTORTYPE); |
return (<<ENDSELECTORTYPE); |
<span class="LC_nobreak"> |
<span class="LC_edit_opt"> |
$description |
$description |
<select name="$selectelement" |
<select name="$selectelement" |
onChange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" > |
onChange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" > |