version 1.43, 2001/06/12 22:42:55
|
version 1.46, 2001/07/12 12:27:15
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# definition of tags that give a structure to a document |
# definition of tags that give a structure to a document |
# 2/19 Guy |
# 2/19 Guy |
|
# 6/26/2001 fixed extra web display at end of <web></web> tags |
package Apache::structuretags; |
package Apache::structuretags; |
|
|
use strict; |
use strict; |
Line 21 sub start_web {
|
Line 22 sub start_web {
|
} |
} |
|
|
sub end_web { |
sub end_web { |
|
return ''; |
} |
} |
|
|
sub start_tex { |
sub start_tex { |
Line 33 sub start_tex {
|
Line 35 sub start_tex {
|
} |
} |
|
|
sub end_tex { |
sub end_tex { |
|
return ''; |
} |
} |
|
|
sub start_problem { |
sub start_problem { |
Line 254 sub shuffle {
|
Line 257 sub shuffle {
|
} |
} |
|
|
sub end_randomlist { |
sub end_randomlist { |
|
return ''; |
} |
} |
|
|
sub start_part { |
sub start_part { |
Line 376 sub end_startouttext {
|
Line 380 sub end_startouttext {
|
&Apache::edit::insertlist($target,$token). |
&Apache::edit::insertlist($target,$token). |
"</td> |
"</td> |
</tr><tr><td colspan=\"3\">\n". |
</tr><tr><td colspan=\"3\">\n". |
&Apache::edit::editfield($token->[1],$text,"",50,5); |
&Apache::edit::editfield($token->[1],$text,"",50,4); |
} |
} |
if ($target eq 'modified') { |
if ($target eq 'modified') { |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
Line 397 sub end_endouttext {
|
Line 401 sub end_endouttext {
|
if ($target eq "edit" || $target eq 'modified') { @result=('','no'); } |
if ($target eq "edit" || $target eq 'modified') { @result=('','no'); } |
return (@result); |
return (@result); |
} |
} |
|
sub delete_startouttext { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
# my $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
|
my $text=$$parser['-1']->get_text("/endouttext"); |
|
my $token=$$parser['-1']->get_token(); |
|
&Apache::lonxml::debug("Deleting :$text: and :$token->[0]:$token->[1]:$token->[2]: for startouttext"); |
|
&Apache::lonxml::end_tag($tagstack,$parstack,$token); |
|
# Deleting 2 parallel tag pairs, but we need the numbers later to look like |
|
# they did the last time round |
|
&Apache::lonxml::increasedepth($token); |
|
&Apache::lonxml::decreasedepth($token); |
|
return 1; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |