version 1.94, 2005/08/30 15:36:07
|
version 1.97, 2005/12/01 18:46:31
|
Line 92 sub start_table {
|
Line 92 sub start_table {
|
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
my $testtag=$namespace.'::'.$tag; |
my $testtag=$namespace.'::'.$tag; |
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"}; |
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"}; |
|
&Apache::lonxml::debug(" $testtag "); |
if (defined($tagnum)) { last; } |
if (defined($tagnum)) { last; } |
} |
} |
if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};} |
if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};} |
my $color = $Apache::lonxml::insertlist{"$tagnum.color"}; |
my $color = $Apache::lonxml::insertlist{"$tagnum.color"}; |
|
&Apache::lonxml::debug(" $tagnum -- $color"); |
if (!defined($color)) { |
if (!defined($color)) { |
$color = $Apache::edit::colorlist[$Apache::edit::colordepth]; |
$color = $Apache::edit::colorlist[$Apache::edit::colordepth]; |
} |
} |
Line 161 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 309 sub insert_numericalresponse {
|
Line 311 sub insert_numericalresponse {
|
</numericalresponse>'; |
</numericalresponse>'; |
} |
} |
|
|
|
sub insert_customresponse { |
|
return ' |
|
<customresponse> |
|
<answer type="loncapa/perl"> |
|
</answer> |
|
<textline /> |
|
<hintgroup> |
|
<startouttext /><endouttext /> |
|
</hintgroup> |
|
</customresponse>'; |
|
} |
|
|
|
sub insert_customresponse_answer { |
|
return ' |
|
<answer type="loncapa/perl"> |
|
</answer> |
|
'; |
|
} |
|
|
sub insert_stringresponse { |
sub insert_stringresponse { |
return ' |
return ' |
<stringresponse answer="" type=""> |
<stringresponse answer="" type=""> |