version 1.133, 2010/11/13 03:22:58
|
version 1.151, 2013/12/03 17:47:30
|
Line 161 sub tag_start {
|
Line 161 sub tag_start {
|
if ($target eq "edit") { |
if ($target eq "edit") { |
my $tag=$token->[1]; |
my $tag=$token->[1]; |
if (!$description) { |
if (!$description) { |
$description=&Apache::lonxml::description($token); |
$description=&mt(&Apache::lonxml::description($token)); |
if (!$description) { $description="<$tag>"; } |
if (!$description) { $description="<$tag>"; } |
} |
} |
$result.= &start_table($token)."<tr><td>$description</td> |
$result.= &start_table($token)."<tr><td>$description</td> |
Line 175 sub tag_start {
|
Line 175 sub tag_start {
|
# "</tr><tr><td colspan=\"3\">\n"; |
# "</tr><tr><td colspan=\"3\">\n"; |
my @help = Apache::lonxml::helpinfo($token); |
my @help = Apache::lonxml::helpinfo($token); |
if ($help[0]) { |
if ($help[0]) { |
$result .= '</td><td align="right" valign="top">' . |
$result .= '</td><td class="LC_edit_problem_latexhelper">'. |
Apache::loncommon::help_open_topic(@help); |
Apache::loncommon::help_open_topic(@help); |
} else { $result .= "</td><td> "; } |
} else { $result .= "</td><td> "; } |
$result .= &end_row().&start_spanning_row(); |
$result .= &end_row().&start_spanning_row(); |
Line 203 sub start_table {
|
Line 203 sub start_table {
|
} |
} |
$Apache::edit::colordepth++; |
$Apache::edit::colordepth++; |
push(@Apache::edit::inserttag,$token->[1]); |
push(@Apache::edit::inserttag,$token->[1]); |
my $result='<div align="right">'; |
my $result='<div>'; |
$result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="3" cellpadding="2">'; |
$result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="3" cellpadding="2">'; |
return $result; |
return $result; |
} |
} |
Line 211 sub start_table {
|
Line 211 sub start_table {
|
sub end_table { |
sub end_table { |
$Apache::edit::colordepth--; |
$Apache::edit::colordepth--; |
my $result='</table></div>'; |
my $result='</table></div>'; |
$result.='<div align="left"><table><tr><td>'; |
$result.='<div><table><tr><td>'; |
|
|
my ($tagname,$closingtag); |
my ($tagname,$closingtag); |
if (defined($Apache::edit::inserttag[-2])) { |
if (defined($Apache::edit::inserttag[-2])) { |
Line 296 sub get_insert_list {
|
Line 296 sub get_insert_list {
|
my $descrip=$Apache::lonxml::insertlist{"$tag.description"}; |
my $descrip=$Apache::lonxml::insertlist{"$tag.description"}; |
my $tagnum =$Apache::lonxml::insertlist{"$tag.num"}; |
my $tagnum =$Apache::lonxml::insertlist{"$tag.num"}; |
$options{$descrip} ="<option value=\"$tagnum\">". |
$options{$descrip} ="<option value=\"$tagnum\">". |
$descrip."</option>\n"; |
&mt($descrip)."</option>\n"; |
} |
} |
foreach my $option (sort(keys(%options))) {$result.=$options{$option};} |
foreach my $option (sort(keys(%options))) {$result.=$options{$option};} |
if ($result) { $result='<option selected="selected"></option>'.$result; } |
if ($result) { $result='<option selected="selected"></option>'.$result; } |
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 622 sub insert_matchresponse {
|
Line 667 sub insert_matchresponse {
|
<matchresponse max="10"> |
<matchresponse max="10"> |
<foilgroup options=""> |
<foilgroup options=""> |
<itemgroup> |
<itemgroup> |
|
<item> |
|
<startouttext /><endouttext /> |
|
</item> |
</itemgroup> |
</itemgroup> |
<foil> |
<foil> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 706 sub js_change_detection {
|
Line 754 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 773 function unClean() {
|
clean=false; |
clean=false; |
} |
} |
window.onbeforeunload = compareForm; |
window.onbeforeunload = compareForm; |
|
// ]]> |
</script> |
</script> |
SCRIPT |
SCRIPT |
} |
} |
Line 741 sub submit_ask_anyway {
|
Line 791 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 782 sub editfield {
|
Line 838 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 |
$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(). |
$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 894 sub checked_arg {
|
Line 950 sub checked_arg {
|
my ($value,$text); |
my ($value,$text); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.$$option[0].'"'; |
$text=$$option[1]; |
$text=&mt($$option[1]); |
$option=$$option[0]; |
$option=$$option[0]; |
} else { |
} else { |
$text=$option; |
$text=&mt($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 914 sub checked_arg {
|
Line 970 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 947 sub select_arg {
|
Line 1006 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 998 sub select_or_text_arg {
|
Line 1057 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=''; }" > |
$optionlist |
$optionlist |
</select> |
</select> |
<input type="text" size="$size" name="$typeinelement" |
<input type="text" size="$size" name="$typeinelement" |
value="$typeinvalue" |
value="$typeinvalue" |
onChange="$hiddenvalue=$typedinvalue;" |
onchange="$hiddenvalue=$typedinvalue;" |
onFocus="$selectedindex=$selecttypeinindex-1;" /> |
onfocus="$selectedindex=$selecttypeinindex-1;" /> |
<input type="hidden" name="$element" value="$selected" $change_code /> |
<input type="hidden" name="$element" value="$selected" $change_code /> |
</span> |
</span> |
ENDSELECTORTYPE |
ENDSELECTORTYPE |