version 1.126, 2010/06/04 23:03:55
|
version 1.136, 2011/11/18 16:39:22
|
Line 397 sub insert_formularesponse {
|
Line 397 sub insert_formularesponse {
|
</formularesponse>'; |
</formularesponse>'; |
} |
} |
|
|
|
sub insert_functionplotresponse { |
|
return ' |
|
<functionplotresponse> |
|
<functionplotelements> |
|
<spline /> |
|
</functionplotelements> |
|
<functionplotruleset> |
|
<functionplotrule /> |
|
</functionplotruleset> |
|
</functionplotresponse>'; |
|
} |
|
|
|
sub insert_spline { |
|
return ' |
|
<spline />'; |
|
} |
|
|
|
sub insert_backgroundplot { |
|
return ' |
|
<backgroundplot />'; |
|
} |
|
|
|
sub insert_plotobject { |
|
return ' |
|
<plotobject />'; |
|
} |
|
|
|
sub insert_plotvector { |
|
return ' |
|
<plotvector />'; |
|
} |
|
|
|
sub insert_functionplotrule { |
|
return ' |
|
<functionplotrule />'; |
|
} |
|
|
|
sub insert_functionplotruleset { |
|
return ' |
|
<functionplotruleset> |
|
<functionplotrule /> |
|
</functionplotruleset>'; |
|
} |
|
|
|
sub insert_functionplotelements { |
|
return ' |
|
<functionplotelements> |
|
<spline /> |
|
</functionplotelements>'; |
|
} |
|
|
sub insert_numericalresponse { |
sub insert_numericalresponse { |
return ' |
return ' |
<numericalresponse answer=""> |
<numericalresponse answer=""> |
Line 592 sub insert_matchresponse {
|
Line 643 sub insert_matchresponse {
|
</matchresponse>'; |
</matchresponse>'; |
} |
} |
|
|
|
sub insert_startpartmarker { return '<startpartmarker />'; } |
|
sub insert_endpartmarker { return '<endpartmarker />'; } |
|
|
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_hintpart { |
sub insert_hintpart { |
Line 697 sub submit_ask_anyway {
|
Line 751 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 728 sub editfield {
|
Line 788 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); |
if (&Apache::lonhtmlcommon::htmlareabrowser() && |
my $textareaclass; |
!&Apache::lonhtmlcommon::htmlareablocked()) { |
|
|
if (&Apache::lonhtmlcommon::htmlareabrowser() && $usehtmlarea) { |
$rows+=7; # make room for HTMLarea |
$rows+=7; # make room for HTMLarea |
$minheight+=7; # make room for HTMLarea |
$minheight+=7; # make room for HTMLarea |
|
$textareaclass = ' class="LC_richDefaultOff"'; |
} |
} |
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=$description."<br />"; } |
if ($usehtmlarea) { |
|
&Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'. |
|
$Apache::lonxml::curdepth); |
|
} |
|
# 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.'>'. |
&HTML::Entities::encode($data,'<>&"').'</textarea>'. |
&HTML::Entities::encode($data,'<>&"').'</textarea>'. |
($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework', |
($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework', |
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; |
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; |