--- loncom/homework/edit.pm 2010/06/05 19:36:57 1.127
+++ loncom/homework/edit.pm 2010/10/09 22:31:49 1.130
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.127 2010/06/05 19:36:57 www Exp $
+# $Id: edit.pm,v 1.130 2010/10/09 22:31:49 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -397,6 +397,14 @@ sub insert_formularesponse {
';
}
+sub insert_functionplotresponse {
+ return '
+
+
+
+';
+}
+
sub insert_numericalresponse {
return '
@@ -731,19 +739,18 @@ sub editfield {
my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;
my ($rows,$cols)=&textarea_sizes(\$data);
- if (&Apache::lonhtmlcommon::htmlareabrowser() &&
- !&Apache::lonhtmlcommon::htmlareablocked()) {
+ my $textareaclass;
+
+ if (&Apache::lonhtmlcommon::htmlareabrowser() && $usehtmlarea) {
$rows+=7; # make room for HTMLarea
$minheight+=7; # make room for HTMLarea
+ $textareaclass = ' class="LC_richDefaultOff"';
}
if ($cols > 80) { $cols = 80; }
if ($cols < $minwidth ) { $cols = $minwidth; }
if ($rows < $minheight) { $rows = $minheight; }
if ($description) { $description=$description."
"; }
- if ($usehtmlarea) {
- &Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'.
- $Apache::lonxml::curdepth);
- }
+
# remove typesetting whitespace from between data and the end tag
# to make the edit look prettier
$data =~ s/\n?[ \t]*$//;
@@ -751,7 +758,8 @@ sub editfield {
return $description."\n".''.
($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework',
'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";