| … | |
… | |
| 415 | $out = "Error: dm_mat_row: Unknown displayMode: $main::displayMode.\n"; |
415 | $out = "Error: dm_mat_row: Unknown displayMode: $main::displayMode.\n"; |
| 416 | } |
416 | } |
| 417 | $out; |
417 | $out; |
| 418 | } |
418 | } |
| 419 | |
419 | |
|
|
420 | sub mbox { |
|
|
421 | my $inList = shift; |
|
|
422 | my %opts = @_; |
|
|
423 | |
|
|
424 | set_default_options(\%opts, |
|
|
425 | '_filter_name' => 'mbox', |
|
|
426 | 'valign' => 'middle', |
|
|
427 | 'allowbreaks' => 'no', |
|
|
428 | 'allow_unknown_options'=> 0); |
|
|
429 | my $out = ""; |
|
|
430 | my $j; |
|
|
431 | my @hlist = @{$inList}; |
|
|
432 | if($main::displayMode eq 'TeX') { |
|
|
433 | for $j (@hlist) { $out .= $j;} |
|
|
434 | } else { |
|
|
435 | $out = qq!<table><tr valign="$opts{'valign'}">!; |
|
|
436 | for $j (@hlist) { $out .= "<td>$j</td>";} |
|
|
437 | $out .= "</table>"; |
|
|
438 | } |
|
|
439 | return $out; |
|
|
440 | } |
| 420 | |
441 | |
| 421 | |
442 | |
| 422 | =head4 ra_flatten_matrix |
443 | =head4 ra_flatten_matrix |
| 423 | |
444 | |
| 424 | Usage: ra_flatten_matrix($A) |
445 | Usage: ra_flatten_matrix($A) |
Parent Directory
| 
Revision Log
| 
Patch