--- loncom/homework/edit.pm 2011/11/18 16:39:22 1.136
+++ loncom/homework/edit.pm 2013/07/04 16:35:07 1.147
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.136 2011/11/18 16:39:22 www Exp $
+# $Id: edit.pm,v 1.147 2013/07/04 16:35:07 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -401,10 +401,8 @@ sub insert_functionplotresponse {
return '
-
-
';
}
@@ -429,11 +427,41 @@ sub insert_plotvector {
';
}
+sub insert_drawvectorsum {
+ return '
+';
+}
+
+
sub insert_functionplotrule {
return '
';
}
+sub insert_functionplotvectorrule {
+ return '
+';
+}
+
+sub insert_functionplotvectorsumrule {
+ return '
+';
+}
+
+sub insert_functionplotcustomrule {
+ return '
+
+
+# &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;
+
+';
+}
+
sub insert_functionplotruleset {
return '
@@ -460,6 +488,13 @@ sub insert_numericalresponse {
';
}
+sub insert_externalresponse {
+ return '
+
+
+';
+}
+
sub insert_customresponse {
return '
@@ -632,6 +667,9 @@ sub insert_matchresponse {
+ -
+
+
@@ -716,6 +754,7 @@ sub js_change_detection {
my $unsaved=&mt("There are unsaved changes");
return (<
SCRIPT
}
@@ -798,7 +838,7 @@ sub editfield {
if ($cols > 80) { $cols = 80; }
if ($cols < $minwidth ) { $cols = $minwidth; }
if ($rows < $minheight) { $rows = $minheight; }
- if ($description) { $description=$description."
"; }
+ if ($description) { $description='
'.&mt($description).'
'; }
# remove typesetting whitespace from between data and the end tag
# to make the edit look prettier
@@ -810,8 +850,8 @@ sub editfield {
$Apache::lonxml::curdepth.'" '.&element_change_detection().
$textareaclass.'>'.
&HTML::Entities::encode($data,'<>&"').''.
- ($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework',
- 'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";
+ ($usehtmlarea?'
'.&Apache::lonhtmlcommon::spelllink('lonhomework',
+ 'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";
}
sub modifiedfield {
@@ -916,7 +956,7 @@ sub checked_arg {
$text=$option;
$value='value="'.$option.'"';
}
- $result.='