version 1.42, 2001/06/11 16:15:10
|
version 1.44, 2001/06/26 21:09:08
|
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 368 sub end_startouttext {
|
Line 371 sub end_startouttext {
|
|
|
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]); |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]); |
$result.="<table width=\"100%\" border=\"2\"><tr><td>Text Block</td> |
$result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td> |
<td>Delete:". |
<td>Delete:". |
&Apache::edit::deletelist($target,$token) |
&Apache::edit::deletelist($target,$token) |
."</td> |
."</td> |
Line 387 sub end_startouttext {
|
Line 390 sub end_startouttext {
|
sub start_endouttext { |
sub start_endouttext { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result=''; |
my $result=''; |
if ($target eq "edit" ) { $result="</td></tr></table>\n"; } |
if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; } |
if ($target eq "modified") { $result='<endouttext />'; } |
if ($target eq "modified") { $result='<endouttext />'; } |
return $result; |
return $result; |
} |
} |