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> |