version 1.145, 2003/06/27 14:01:19
|
version 1.146, 2003/06/27 16:12:39
|
Line 1357 sub start_a {
|
Line 1357 sub start_a {
|
} |
} |
|
|
sub end_a { |
sub end_a { |
my ($target,$token,$tagstack,$stackref) = @_; |
my ($target,$token,$tagstack,$parstack,$safeeval) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $tempor_var = $stackref->[$#$stackref]; |
my $href=&Apache::lonxml::get_param('href',$parstack,$safeeval,undef,1); |
if (index($tempor_var,'name') != -1 ) { |
$currentstring .= '\ref{'.$href.'}'; |
$tempor_var =~ s/name=([^,]*),/$1/g; |
|
} elsif (index($tempor_var,'href') != -1 ) { |
|
$tempor_var =~ s/href=([^,]*),/$1/g; |
|
$currentstring .= " \\ref{$tempor_var}"; |
|
} |
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
#-- <li> tag |
#-- <li> tag |
sub start_li { |
sub start_li { |
my ($target,$token,$tagstack,$stackref) = @_; |
my ($target,$token,$tagstack,$parstack,$safeeval) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $tempor_var = $stackref->[$#$stackref]; |
my $type=&Apache::lonxml::get_param('type',$parstack,$safeeval,undef,1); |
if (index($tempor_var,'circle') != -1 ) { |
if ($type=~/circle/) { |
$currentstring .= " \\item[o] "; |
$currentstring .= ' \item[o] '; |
} elsif (index($tempor_var,'square') != -1 ) { |
} elsif ($type=~/square/) { |
$currentstring .= " \\item[$\Box$] "; |
$currentstring .= ' \item[$\Box$] '; |
} elsif ($tempor_var ne '') { |
} elsif ($type ne '') { |
$_ = $tempor_var; |
$currentstring .= ' \item['.$type.'] '; |
m/my\s*([^=]*)=/; |
|
$currentstring .= " \\item[$1] "; |
|
} else { |
} else { |
$currentstring .= " \\item "; |
$currentstring .= ' \item '; |
} |
} |
} |
} |
return $currentstring; |
return $currentstring; |
Line 1831 sub end_td {
|
Line 1824 sub end_td {
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $current_row = $Apache::londefdef::table[-1]{'row_number'}; |
my $current_row = $Apache::londefdef::table[-1]{'row_number'}; |
my $data=&Apache::lonxml::endredirection(); |
my $data=&Apache::lonxml::endredirection(); |
|
|
|
$currentstring.=' SSSS '.$data.' FFFF '; |
|
|
my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); |
my $TeXwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0); |
if (defined $TeXwidth) { |
if (defined $TeXwidth) { |
my $current_length=&recalc($TeXwidth); |
my $current_length=&recalc($TeXwidth); |