version 1.5, 2004/03/16 23:08:23
|
version 1.6, 2004/03/23 20:38:09
|
Line 76 sub start_text {
|
Line 76 sub start_text {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'tex') { |
|
&Apache::lonxml::startredirection(); |
|
} |
|
return $result; |
|
} |
|
|
|
sub end_text { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result; |
|
if ($target eq 'web' || $target eq 'tex') { |
my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval); |
my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval); |
my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval); |
my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval); |
my $font = &Apache::lonxml::get_param('font',$parstack,$safeeval); |
my $font = &Apache::lonxml::get_param('font',$parstack,$safeeval); |
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $direction = &Apache::lonxml::get_param('direction',$parstack,$safeeval); |
my $direction = &Apache::lonxml::get_param('direction',$parstack,$safeeval); |
my $text = &Apache::lonxml::get_all_text("/text",$parser); |
my $text = &Apache::lonxml::endredirection(); |
$text = &Apache::lonnet::escape($text); |
$text = &Apache::lonnet::escape($text); |
$args{"cgi.$cgi_id.OBJTYPE"}.='LABEL:'; |
$args{"cgi.$cgi_id.OBJTYPE"}.='LABEL:'; |
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
Line 90 sub start_text {
|
Line 99 sub start_text {
|
return $result; |
return $result; |
} |
} |
|
|
sub end_text { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result; |
|
return $result; |
|
} |
|
|
|
sub start_line { |
sub start_line { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |