--- loncom/homework/edit.pm	2010/10/10 00:14:15	1.131
+++ loncom/homework/edit.pm	2011/11/18 16:39:22	1.136
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.131 2010/10/10 00:14:15 www Exp $
+# $Id: edit.pm,v 1.136 2011/11/18 16:39:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -400,8 +400,12 @@ sub insert_formularesponse {
 sub insert_functionplotresponse {
     return '
 <functionplotresponse>
+<functionplotelements>
 <spline />
-<splinerule />
+</functionplotelements>
+<functionplotruleset>
+<functionplotrule />
+</functionplotruleset>
 </functionplotresponse>';
 }
 
@@ -415,12 +419,34 @@ sub insert_backgroundplot {
 <backgroundplot />';
 }
 
-sub insert_splinerule {
+sub insert_plotobject {
     return '
-<splinerule />';
+<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 {
     return '
@@ -725,6 +751,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 +804,7 @@ sub editfield {
     # to make the edit look prettier
     $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_'.
 	$Apache::lonxml::curdepth.'" id="homework_edit_'.
 	$Apache::lonxml::curdepth.'" '.&element_change_detection().