version 1.94, 2005/08/30 15:36:07
|
version 1.95, 2005/11/10 22:19:27
|
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 309 sub insert_numericalresponse {
|
Line 311 sub insert_numericalresponse {
|
</numericalresponse>'; |
</numericalresponse>'; |
} |
} |
|
|
|
sub insert_algorithmicresponse { |
|
return ' |
|
<algorithmicresponse> |
|
<answer type="loncapa/perl"> |
|
</answer> |
|
<textline /> |
|
<hintgroup> |
|
<startouttext /><endouttext /> |
|
</hintgroup> |
|
</algorithmicresponse>'; |
|
} |
|
|
|
sub insert_algorithmicresponse_answer { |
|
return ' |
|
<answer type="loncapa/perl"> |
|
</answer> |
|
'; |
|
} |
|
|
sub insert_stringresponse { |
sub insert_stringresponse { |
return ' |
return ' |
<stringresponse answer="" type=""> |
<stringresponse answer="" type=""> |