loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.95, 2005/11/10 22:19:27	version 1.97, 2005/12/01 18:46:31
Line 163 sub handle_delete {	Line 163 sub handle_delete {
}	}
if (!$result) {	if (!$result) {
my $endtag='/'.$token->[1];	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();	$$parser['-1']->get_token();
&Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");	&Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");
&Apache::lonxml::end_tag($tagstack,$parstack,$token);	&Apache::lonxml::end_tag($tagstack,$parstack,$token);
Line 311 sub insert_numericalresponse {	Line 311 sub insert_numericalresponse {
</numericalresponse>';	</numericalresponse>';
}	}

sub insert_algorithmicresponse {	sub insert_customresponse {
return '	return '
<algorithmicresponse>	<customresponse>
<answer type="loncapa/perl">	<answer type="loncapa/perl">
</answer>	</answer>
<textline />	<textline />
<hintgroup>	<hintgroup>
<startouttext /><endouttext />	<startouttext /><endouttext />
</hintgroup>	</hintgroup>
</algorithmicresponse>';	</customresponse>';
}	}

sub insert_algorithmicresponse_answer {	sub insert_customresponse_answer {
return '	return '
<answer type="loncapa/perl">	<answer type="loncapa/perl">
</answer>	</answer>