--- loncom/homework/edit.pm	2005/11/10 22:19:27	1.95
+++ loncom/homework/edit.pm	2005/12/01 18:46:31	1.97
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.95 2005/11/10 22:19:27 albertel Exp $
+# $Id: edit.pm,v 1.97 2005/12/01 18:46:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -163,7 +163,7 @@ sub handle_delete {
     }
     if (!$result) {
 	my $endtag='/'.$token->[1];
-	my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);
+	my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser,$style);
 	$$parser['-1']->get_token();
 	&Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");
 	&Apache::lonxml::end_tag($tagstack,$parstack,$token);
@@ -311,19 +311,19 @@ sub insert_numericalresponse {
 </numericalresponse>';
 }
 
-sub insert_algorithmicresponse {
+sub insert_customresponse {
     return '
-<algorithmicresponse>
+<customresponse>
     <answer type="loncapa/perl">
     </answer>
     <textline />
     <hintgroup>
     <startouttext /><endouttext />
     </hintgroup>
-</algorithmicresponse>';
+</customresponse>';
 }
 
-sub insert_algorithmicresponse_answer {
+sub insert_customresponse_answer {
     return '
     <answer type="loncapa/perl">
     </answer>