Revision ea707efc
Von Sven Schöling vor etwa 16 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
| 1 | 1 |
package SL::ReportGenerator; |
| 2 | 2 |
|
| 3 |
use strict; |
|
| 4 |
|
|
| 3 | 5 |
use Encode; |
| 4 | 6 |
use IO::Wrap; |
| 5 | 7 |
use List::Util qw(max); |
| 6 | 8 |
use Text::CSV_XS; |
| 7 | 9 |
use Text::Iconv; |
| 8 |
use PDF::API2;
|
|
| 9 |
use PDF::Table; |
|
| 10 |
#use PDF::API2; # these two eat up to .75s on startup. only load them if we actually need them
|
|
| 11 |
#use PDF::Table;
|
|
| 10 | 12 |
|
| 11 | 13 |
use SL::Form; |
| 12 | 14 |
|
| ... | ... | |
| 440 | 442 |
my $font_encoding = $main::dbcharset || 'ISO-8859-15'; |
| 441 | 443 |
$self->{text_is_utf8} = $font_encoding =~ m/^utf-?8$/i;
|
| 442 | 444 |
|
| 443 |
foreach $name (@visible_columns) {
|
|
| 445 |
foreach my $name (@visible_columns) {
|
|
| 444 | 446 |
push @column_props, { 'justify' => $self->{columns}->{$name}->{align} eq 'right' ? 'right' : 'left' };
|
| 445 | 447 |
} |
| 446 | 448 |
|
| ... | ... | |
| 450 | 452 |
push @data, $data_row; |
| 451 | 453 |
push @cell_props, $cell_props_row; |
| 452 | 454 |
|
| 453 |
foreach $name (@visible_columns) {
|
|
| 454 |
$column = $self->{columns}->{$name};
|
|
| 455 |
foreach my $name (@visible_columns) {
|
|
| 456 |
my $column = $self->{columns}->{$name};
|
|
| 455 | 457 |
|
| 456 | 458 |
push @{ $data_row }, $self->_decode_text($column->{text});
|
| 457 | 459 |
push @{ $cell_props_row }, {};
|
Auch abrufbar als: Unified diff
Reportgenerator strict