--- loncom/homework/edit.pm	2004/01/14 22:59:18	1.77
+++ loncom/homework/edit.pm	2004/02/13 21:12:54	1.79
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.77 2004/01/14 22:59:18 albertel Exp $
+# $Id: edit.pm,v 1.79 2004/02/13 21:12:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -289,8 +289,7 @@ sub insert_formularesponse {
 <formularesponse answer="" samples="">
     <textline />
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </formularesponse>';
 }
@@ -300,8 +299,7 @@ sub insert_numericalresponse {
 <numericalresponse answer="">
     <textline />
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </numericalresponse>';
 }
@@ -311,8 +309,7 @@ sub insert_stringresponse {
 <stringresponse answer="" type="">
     <textline />
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </stringresponse>';
 }
@@ -330,8 +327,7 @@ sub insert_imageresponse {
     <foilgroup>
     </foilgroup>
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </imageresponse>';
 }
@@ -342,8 +338,7 @@ sub insert_optionresponse {
     <foilgroup options="">
     </foilgroup>
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </optionresponse>';
 }
@@ -353,8 +348,7 @@ sub insert_organicresponse {
 <organicresponse>
     <textline />
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </organicresponse>';
 }
@@ -371,8 +365,7 @@ sub insert_radiobuttonresponse {
     <foilgroup>
     </foilgroup>
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </radiobuttonresponse>';
 }
@@ -382,8 +375,7 @@ sub insert_reactionresponse {
 <reactionresponse>
     <textline />
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </reactionresponse>';
 }
@@ -394,8 +386,7 @@ sub insert_rankresponse {
     <foilgroup options="">
     </foilgroup>
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </rankresponse>';
 }
@@ -408,8 +399,7 @@ sub insert_matchresponse {
       </itemgroup>
     </foilgroup>
     <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
     </hintgroup>
 </matchresponse>';
 }
@@ -427,8 +417,7 @@ sub insert_hintpart {
 sub insert_hintgroup {
   return '
 <hintgroup>
-    <startouttext/>
-    <endouttext />
+    <startouttext /><endouttext />
 </hintgroup>';
 }
 
@@ -463,11 +452,11 @@ sub insert_optionhint {
 }
 
 sub insert_startouttext {
-    return "<startouttext />\n<endouttext />";
+    return "<startouttext /><endouttext />";
 }
 
 sub insert_script {
-    return "\n<script type=\"loncapa/perl\">\n</script>";
+    return "\n<script type=\"loncapa/perl\"></script>";
 }
 
 sub textarea_sizes {
@@ -543,6 +532,9 @@ sub get_new_args {
 		$token->[2]->{$arg}=$newvalue;
 	    }
 	    $rebuild=1;
+	} elsif (!defined($newvalue) && defined($value)) {
+	    delete($token->[2]->{$arg});
+	    $rebuild=1;
 	}
     }
     return $rebuild;