version 1.22, 2001/10/09 20:45:13
|
version 1.23, 2001/11/07 21:24:15
|
Line 60 sub start_table {
|
Line 60 sub start_table {
|
my $tag = $token->[1]; |
my $tag = $token->[1]; |
my $tagnum; |
my $tagnum; |
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
foreach my $namespace (reverse @Apache::lonxml::namespace) { |
my $testtag=$Apache::lonxml::namespace['-1'].'::'.$tag; |
my $testtag=$namespace.'::'.$tag; |
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"}; |
$tagnum=$Apache::lonxml::insertlist{"$testtag.num"}; |
if (defined($tagnum)) { last; } |
if (defined($tagnum)) { last; } |
} |
} |
Line 217 sub insert_optionresponse {
|
Line 217 sub insert_optionresponse {
|
</optionresponse>'; |
</optionresponse>'; |
} |
} |
|
|
|
sub insert_radiobuttonresponse { |
|
return ' |
|
<radiobuttonresponse max="10"> |
|
<foilgroup> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</radiobuttonresponse>'; |
|
} |
|
|
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_hintpart { |
sub insert_hintpart { |
Line 233 sub insert_numericalhint {
|
Line 243 sub insert_numericalhint {
|
</numericalhint>'; |
</numericalhint>'; |
} |
} |
|
|
|
sub insert_startouttext { |
|
return "<startouttext />\n<endouttext />"; |
|
} |
|
|
|
sub insert_script { |
|
return "\n<script type=\"loncapa/perl\">\n</script>"; |
|
} |
|
|
sub editfield { |
sub editfield { |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
|
|
Line 270 sub modifiedfield {
|
Line 288 sub modifiedfield {
|
return $result; |
return $result; |
} |
} |
|
|
sub insert_startouttext { |
|
return "<startouttext />\n<endouttext />"; |
|
} |
|
|
|
sub insert_script { |
|
return "\n<script type=\"loncapa/perl\">\n</script>"; |
|
} |
|
|
|
# Returns a 1 if the token has been modified and you should rebuild the tag |
# Returns a 1 if the token has been modified and you should rebuild the tag |
# side-effects, will modify the $token if new values are found |
# side-effects, will modify the $token if new values are found |
sub get_new_args { |
sub get_new_args { |