version 1.52, 2002/04/08 15:17:01
|
version 1.53, 2002/04/16 14:37:24
|
Line 114 sub end_m {
|
Line 114 sub end_m {
|
$currentstring = &Apache::lonxml::xmlbegin(). |
$currentstring = &Apache::lonxml::xmlbegin(). |
&Apache::lonxml::fontsettings(); |
&Apache::lonxml::fontsettings(); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
|
@Apache::londefdef::table = (); |
$currentstring .= '\documentclass[letterpaper]{article} |
$currentstring .= '\documentclass[letterpaper]{article} |
\newcommand{\keephidden}[1]{} |
\newcommand{\keephidden}[1]{} |
\usepackage[dvips]{graphicx} |
\usepackage[dvips]{graphicx} |
Line 1264 EDITBUTTON
|
Line 1265 EDITBUTTON
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
|
my $aa = {}; |
|
push @Apache::londefdef::table, $aa; |
|
$Apache::londefdef::table[-1]{'row_number'} = -1; |
|
$Apache::londefdef::table[-1]{'output'} = '\begin{tabular} '; |
my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval); |
my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval); |
unless (defined $border) { $border = 0; } |
unless (defined $border) { $border = 0; } |
if ($border) { |
if ($border) { |
$Apache::londefdef::table{'hinc'} = '\hline '; |
$Apache::londefdef::table[-1]{'hinc'} = '\hline '; |
$Apache::londefdef::table{'vinc'} = '&'; |
$Apache::londefdef::table[-1]{'vinc'} = '&'; |
$Apache::londefdef::table{'vvinc'} = '|'; |
$Apache::londefdef::table[-1]{'vvinc'} = '|'; |
} else { |
} else { |
$Apache::londefdef::table{'hinc'} = ''; |
$Apache::londefdef::table[-1]{'hinc'} = ''; |
$Apache::londefdef::table{'vinc'} = ''; |
$Apache::londefdef::table[-1]{'vinc'} = ''; |
$Apache::londefdef::table{'vvinc'} = ''; |
$Apache::londefdef::table[-1]{'vvinc'} = ''; |
} |
} |
} |
} |
return $currentstring; |
return $currentstring; |
Line 1284 EDITBUTTON
|
Line 1289 EDITBUTTON
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
|
my $inmemory = ''; |
my $output = ''; |
my $output = ''; |
my $header_of_table = '{'.$Apache::londefdef::table{'vvinc'}; |
my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'}; |
my $in; |
my $in; |
for ($in=0;$in<$Apache::londefdef::table{'counter_columns'};$in++) { |
for ($in=0;$in<=$Apache::londefdef::table[-1]{'counter_columns'};$in++) { |
$header_of_table .= @{ $Apache::londefdef::table{'columns'} }[$in].$Apache::londefdef::table{'vvinc'}; |
$header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'}; |
$output .= $Apache::londefdef::table{'rowdata'}[$in]; |
} |
|
$header_of_table .= '}'; |
|
for ($in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) { |
|
$output .= $Apache::londefdef::table[-1]{'rowdata'}[$in]; |
chop $output; |
chop $output; |
$output .= ' \\\\ '; |
$output .= ' \\\\ '; |
} |
} |
$header_of_table .= '}'; |
$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}'; |
$currentstring .= '\begin{tabular}'.$header_of_table.$output.$Apache::londefdef::table{'hinc'}.'\end{tabular}'; |
if ($#Apache::londefdef::table > 0) { |
|
$inmemory = $Apache::londefdef::table[-1]{'output'}; |
|
pop @Apache::londefdef::table; |
|
$Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}] .= $inmemory; |
|
} else { |
|
$currentstring = $Apache::londefdef::table[-1]{'output'}; |
|
$currentstring =~ s/\\\\\s+\\\\/\\\\/g; |
|
pop @Apache::londefdef::table; |
|
} |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1305 EDITBUTTON
|
Line 1322 EDITBUTTON
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
if (substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1) ne '') { |
$Apache::londefdef::table[-1]{'row_number'}++; |
push @ {$Apache::londefdef::table{'rows'} }, substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1); |
my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1); |
|
if ($alignchar ne '') { |
|
push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar; |
} else { |
} else { |
push @ {$Apache::londefdef::table{'rows'} }, 'c'; |
push @ {$Apache::londefdef::table[-1]{'rows'} }, 'c'; |
} |
} |
push ( @{ $Apache::londefdef::table{'rowdata'} }, $Apache::londefdef::table{'hinc'}); |
push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'}); |
$Apache::londefdef::table{'counter_columns'} = 0; |
$Apache::londefdef::table[-1]{'counter_columns'} = -1; |
|
|
} |
} |
return $currentstring; |
return $currentstring; |
Line 1322 EDITBUTTON
|
Line 1341 EDITBUTTON
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
|
# $currentstring .= ' START ROW '. $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}].' END ROW '; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 1334 EDITBUTTON
|
Line 1354 EDITBUTTON
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1); |
my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1); |
if ($what_to_push eq '') { |
if ($what_to_push eq '') { |
$what_to_push = substr($Apache::londefdef::table{'rows'}[0],0,1);; |
$what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);; |
} |
} |
push @{ $Apache::londefdef::table{'columns'} }, $what_to_push; |
push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push; |
$Apache::londefdef::table{'counter_columns'}++; |
$Apache::londefdef::table[-1]{'counter_columns'}++; |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
; |
; |
} |
} |
Line 1349 EDITBUTTON
|
Line 1369 EDITBUTTON
|
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $current_row = $#{ $Apache::londedef::table{'rows'} }; |
my $current_row = $Apache::londefdef::table[-1]{'row_number'}; |
my $data=&Apache::lonxml::endredirection(); |
my $data=&Apache::lonxml::endredirection(); |
@{ $Apache::londefdef::table{'rowdata'} }[$current_row] .= $data.' '.$Apache::londefdef::table{'vinc'}; |
@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= $data.' '.$Apache::londefdef::table[-1]{'vinc'}; |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |