--- loncom/homework/edit.pm	2010/11/07 01:57:50	1.132
+++ loncom/homework/edit.pm	2011/08/09 16:12:21	1.135
@@ -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.135 2011/08/09 16:12:21 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -400,8 +400,12 @@ sub insert_formularesponse {
 sub insert_functionplotresponse {
     return '
 <functionplotresponse>
+<functionplotelements>
 <spline />
+</functionplotelements>
+<functionplotruleset>
 <functionplotrule />
+</functionplotruleset>
 </functionplotresponse>';
 }
 
@@ -420,7 +424,19 @@ sub insert_functionplotrule {
 <functionplotrule />';
 }
 
+sub insert_functionplotruleset {
+    return '
+<functionplotruleset>
+<functionplotrule />
+</functionplotruleset>';
+}
 
+sub insert_functionplotelements {
+    return '
+<functionplotelements>
+<spline />
+</functionplotelements>';
+}
 
 sub insert_numericalresponse {
     return '
@@ -725,6 +741,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 +794,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().