version 1.83, 2004/06/04 16:05:47
|
version 1.94, 2005/08/30 15:36:07
|
Line 29
|
Line 29
|
package Apache::edit; |
package Apache::edit; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet; |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
Line 68 sub tag_start {
|
Line 68 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 align="right" valign="top">' . |
$result .= '</td><td align="right" valign="top">' . |
Apache::loncommon::help_open_topic(@help) . |
Apache::loncommon::help_open_topic(@help); |
'</td>'; |
} else { $result .= "</td><td> "; } |
} else { $result .= "<td> </td>"; } |
|
$result .= &end_row().&start_spanning_row(); |
$result .= &end_row().&start_spanning_row(); |
} |
} |
return $result; |
return $result; |
Line 110 sub start_table {
|
Line 109 sub start_table {
|
sub end_table { |
sub end_table { |
$Apache::edit::colordepth--; |
$Apache::edit::colordepth--; |
my $result='</table></div>'; |
my $result='</table></div>'; |
$result.="<table><tr><td>"; |
$result.='<div align="left"><table><tr><td>'; |
|
|
my ($tagname,$closingtag); |
my ($tagname,$closingtag); |
if (defined($Apache::edit::inserttag[-2])) { |
if (defined($Apache::edit::inserttag[-2])) { |
Line 120 sub end_table {
|
Line 119 sub end_table {
|
$closingtag=$Apache::edit::inserttag[-1]; |
$closingtag=$Apache::edit::inserttag[-1]; |
} |
} |
$result.=&innerinsertlist('edit',$tagname,$closingtag). |
$result.=&innerinsertlist('edit',$tagname,$closingtag). |
"</td></tr></table>"; |
"</td></tr></table></div>"; |
pop(@Apache::edit::inserttag); |
pop(@Apache::edit::inserttag); |
return $result; |
return $result; |
} |
} |
Line 148 sub deletelist {
|
Line 147 sub deletelist {
|
} |
} |
|
|
sub handle_delete { |
sub handle_delete { |
if (!$ENV{"form.delete_$Apache::lonxml::curdepth"}) { return ''; } |
if (!$env{"form.delete_$Apache::lonxml::curdepth"}) { return ''; } |
my ($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result=0; |
my $result=0; |
if ($space) { |
if ($space) { |
Line 191 sub get_insert_list {
|
Line 190 sub get_insert_list {
|
$descrip."</option>\n"; |
$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="on"></option>'.$result; } |
if ($result) { $result='<option selected="selected"></option>'.$result; } |
} |
} |
return $result; |
return $result; |
} |
} |
Line 223 sub innerinsertlist {
|
Line 222 sub innerinsertlist {
|
} |
} |
|
|
sub handle_insert { |
sub handle_insert { |
if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; } |
if ($env{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; } |
my $result; |
my $result; |
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"}; |
my $tagnum = $env{"form.insert_$Apache::lonxml::curdepth"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
if ($func eq 'default') { |
if ($func eq 'default') { |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
Line 240 sub handle_insert {
|
Line 239 sub handle_insert {
|
} |
} |
} else { |
} else { |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
&Apache::lonxml::error("Unable to insert tag $newtag, $func was not defined."); |
&Apache::lonxml::error("Unable to insert tag ".$Apache::lonxml::curdepth." ($tagnum) $newtag, func was not defined."); |
} |
} |
} |
} |
return $result; |
return $result; |
Line 248 sub handle_insert {
|
Line 247 sub handle_insert {
|
|
|
sub handle_insertafter { |
sub handle_insertafter { |
my $tagname=shift; |
my $tagname=shift; |
if ($ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"} eq '') |
if ($env{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"} eq '') |
{ return ''; } |
{ return ''; } |
my $result; |
my $result; |
my $tagnum =$ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"}; |
my $tagnum =$env{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
if ($func eq 'default') { |
if ($func eq 'default') { |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
Line 282 sub insert_responseparam {
|
Line 281 sub insert_responseparam {
|
<responseparam />'; |
<responseparam />'; |
} |
} |
|
|
|
sub insert_parameter { |
|
return ' |
|
<parameter />'; |
|
} |
|
|
sub insert_formularesponse { |
sub insert_formularesponse { |
return ' |
return ' |
<formularesponse answer="" samples=""> |
<formularesponse answer="" samples=""> |
<textline /> |
<responseparam description="Numerical Tolerance" type="tolerance" default="0.00001" name="tol" /> |
|
<textline size="25"/> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
</hintgroup> |
</hintgroup> |
Line 295 sub insert_formularesponse {
|
Line 300 sub insert_formularesponse {
|
sub insert_numericalresponse { |
sub insert_numericalresponse { |
return ' |
return ' |
<numericalresponse answer=""> |
<numericalresponse answer=""> |
|
<responseparam type="tolerance" default="5%" name="tol" description="Numerical Tolerance" /> |
|
<responseparam name="sig" type="int_range,0-16" default="0,15" description="Significant Figures" /> |
<textline /> |
<textline /> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 323 sub insert_imageresponse {
|
Line 330 sub insert_imageresponse {
|
return ' |
return ' |
<imageresponse max="1"> |
<imageresponse max="1"> |
<foilgroup> |
<foilgroup> |
|
<foil> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 334 sub insert_optionresponse {
|
Line 343 sub insert_optionresponse {
|
return ' |
return ' |
<optionresponse max="10"> |
<optionresponse max="10"> |
<foilgroup options=""> |
<foilgroup options=""> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 361 sub insert_radiobuttonresponse {
|
Line 373 sub insert_radiobuttonresponse {
|
return ' |
return ' |
<radiobuttonresponse max="10"> |
<radiobuttonresponse max="10"> |
<foilgroup> |
<foilgroup> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 382 sub insert_rankresponse {
|
Line 397 sub insert_rankresponse {
|
return ' |
return ' |
<rankresponse max="10"> |
<rankresponse max="10"> |
<foilgroup options=""> |
<foilgroup options=""> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 395 sub insert_matchresponse {
|
Line 413 sub insert_matchresponse {
|
<foilgroup options=""> |
<foilgroup options=""> |
<itemgroup> |
<itemgroup> |
</itemgroup> |
</itemgroup> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 407 sub insert_displaytitle { return '<dis
|
Line 428 sub insert_displaytitle { return '<dis
|
sub insert_hintpart { |
sub insert_hintpart { |
return ' |
return ' |
<hintpart on="default"> |
<hintpart on="default"> |
<startouttext/> |
<startouttext/><endouttext /> |
<endouttext /> |
|
</hintpart>'; |
</hintpart>'; |
} |
} |
|
|
Line 487 sub editfield {
|
Line 507 sub editfield {
|
my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_; |
my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_; |
|
|
my ($rows,$cols)=&textarea_sizes(\$data); |
my ($rows,$cols)=&textarea_sizes(\$data); |
$rows+=5; # make room for HTMLarea |
if (&Apache::lonhtmlcommon::htmlareabrowser() && |
|
!&Apache::lonhtmlcommon::htmlareablocked()) { |
|
$rows+=7; # make room for HTMLarea |
|
$minheight+=7; # make room for HTMLarea |
|
} |
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; } |
Line 496 sub editfield {
|
Line 520 sub editfield {
|
push @Apache::lonxml::htmlareafields,'homework_edit_'. |
push @Apache::lonxml::htmlareafields,'homework_edit_'. |
$Apache::lonxml::curdepth; |
$Apache::lonxml::curdepth; |
} |
} |
return $description."\n".' <textarea rows="'.$rows. |
return $description."\n".' <textarea style="width:100%" 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.'">'. |
$Apache::lonxml::curdepth.'">'. |
&HTML::Entities::encode($data,'<>&"').'</textarea>'."\n"; |
&HTML::Entities::encode($data,'<>&"').'</textarea>'. |
|
($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework', |
|
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; |
} |
} |
|
|
sub modifiedfield { |
sub modifiedfield { |
my ($endtag,$parser) = @_; |
my ($endtag,$parser) = @_; |
my $result; |
my $result; |
# foreach my $envkey (sort keys %ENV) { |
# foreach my $envkey (sort keys %env) { |
# &Apache::lonxml::debug("$envkey ---- $ENV{$envkey}"); |
# &Apache::lonxml::debug("$envkey ---- $env{$envkey}"); |
# } |
# } |
# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth"); |
# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth"); |
# &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"}); |
# &Apache::lonxml::debug($env{"form.homework_edit_$Apache::lonxml::curdepth"}); |
$result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"}; |
$result=$env{"form.homework_edit_$Apache::lonxml::curdepth"}; |
my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser); |
my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser); |
# textareas throw away intial \n |
# textareas throw away intial \n |
if ($bodytext=~/^\n/) { $result="\n".$result; } |
if ($bodytext=~/^\n/) { $result="\n".$result; } |
Line 527 sub get_new_args {
|
Line 553 sub get_new_args {
|
#just want the string that it was set to |
#just want the string that it was set to |
my $value=$token->[2]->{$arg}; |
my $value=$token->[2]->{$arg}; |
my $element=&html_element_name($arg); |
my $element=&html_element_name($arg); |
my $newvalue=$ENV{"form.$element"}; |
my $newvalue=$env{"form.$element"}; |
&Apache::lonxml::debug("for:$arg: cur is :$value: new is :$newvalue:"); |
&Apache::lonxml::debug("for:$arg: cur is :$value: new is :$newvalue:"); |
if (defined($newvalue) && $value ne $newvalue) { |
if (defined($newvalue) && $value ne $newvalue) { |
if (ref($newvalue) eq 'ARRAY') { |
if (ref($newvalue) eq 'ARRAY') { |
Line 601 sub checked_arg {
|
Line 627 sub checked_arg {
|
&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 ) { |
$result.=" checked='on' "; |
$result.=" checked='checked' "; |
last; |
last; |
} |
} |
} |
} |
Line 628 sub select_arg {
|
Line 654 sub select_arg {
|
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my ($text,$value); |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.&HTML::Entities::encode($$option[0]).'"'; |
$text=$$option[1]; |
$text=$$option[1]; |
$option=$$option[0]; |
$option=$$option[0]; |
} else { |
} else { |
$text=$option; |
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
} else { |
} else { |
$optionlist.="<option $value >$text</option>\n"; |
$optionlist.="<option $value >$text</option>\n"; |
} |
} |
Line 657 sub select_or_text_arg {
|
Line 683 sub select_or_text_arg {
|
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my ($text,$value); |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.&HTML::Entities::encode($$option[0]).'"'; |
$text=$$option[1]; |
$text=$$option[1]; |
$option=$$option[0]; |
$option=$$option[0]; |
} else { |
} else { |
$text=$option; |
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
$found=1; |
$found=1; |
} else { |
} else { |
$optionlist.="<option $value>$text</option>\n"; |
$optionlist.="<option $value>$text</option>\n"; |
} |
} |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
((!$found)?' selected="on"':''). |
((!$found)?' selected="selected"':''). |
">".&mt('Type-in value')."</option>\n"; |
">".&mt('Type-in value')."</option>\n"; |
# |
# |
my $element=&html_element_name($name); |
my $element=&html_element_name($name); |