--- loncom/homework/edit.pm 2010/11/07 01:57:50 1.132
+++ loncom/homework/edit.pm 2013/04/25 17:58:32 1.143
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.132 2010/11/07 01:57:50 www Exp $
+# $Id: edit.pm,v 1.143 2013/04/25 17:58:32 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -400,8 +400,10 @@ sub insert_formularesponse {
sub insert_functionplotresponse {
return '
-
-
+
+
+
+
';
}
@@ -415,12 +417,64 @@ sub insert_backgroundplot {
';
}
+sub insert_plotobject {
+ return '
+';
+}
+
+sub insert_plotvector {
+ return '
+';
+}
+
+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 '
+
+
+';
+}
+
+sub insert_functionplotelements {
+ return '
+
+
+';
+}
sub insert_numericalresponse {
return '
@@ -690,6 +744,7 @@ sub js_change_detection {
my $unsaved=&mt("There are unsaved changes");
return (<
SCRIPT
}
@@ -725,6 +781,12 @@ sub submit_ask_anyway {
return ' onclick="still_ask=true;'.$extra_action.'" ';
}
+sub submit_dont_ask {
+ my ($extra_action) = @_;
+ return ' onclick="is_submit=true;'.$extra_action.'" ';
+}
+
+
sub textarea_sizes {
my ($data)=@_;
my $count=0;
@@ -772,7 +834,7 @@ sub editfield {
# to make the edit look prettier
$data =~ s/\n?[ \t]*$//;
- return $description."\n".'