| 5 |
5 |
use warnings;
|
| 6 |
6 |
our $VERSION = '0.9.3';
|
| 7 |
7 |
|
|
8 |
use List::Util qw(sum);
|
| 8 |
9 |
|
| 9 |
10 |
############################################################
|
| 10 |
11 |
#
|
| ... | ... | |
| 205 |
206 |
# table - utility method to build multi-row, multicolumn tables
|
| 206 |
207 |
############################################################
|
| 207 |
208 |
sub table
|
| 208 |
|
{
|
|
209 |
{
|
| 209 |
210 |
my $self = shift;
|
| 210 |
211 |
my $pdf = shift;
|
| 211 |
212 |
my $page = shift;
|
| ... | ... | |
| 403 |
404 |
# Calc real column widths and expand table width if needed.
|
| 404 |
405 |
my $calc_column_widths;
|
| 405 |
406 |
($calc_column_widths, $width) = $self->CalcColumnWidths( $col_props, $width );
|
| 406 |
|
|
|
407 |
my $num_cols = scalar @{ $calc_column_widths };
|
| 407 |
408 |
my $comp_cnt = 1;
|
| 408 |
409 |
$rows_counter = 0;
|
| 409 |
410 |
|
| ... | ... | |
| 449 |
450 |
# Check for safety reasons
|
| 450 |
451 |
if( $bot_marg < 0 )
|
| 451 |
452 |
{ # This warning should remain i think
|
| 452 |
|
print "!!! Warning: !!! Incorrect Table Geometry! Setting bottom margin to end of sheet!\n";
|
|
453 |
# print "!!! Warning: !!! Incorrect Table Geometry! Setting bottom margin to end of sheet!\n";
|
| 453 |
454 |
$bot_marg = 0;
|
| 454 |
455 |
}
|
| 455 |
456 |
|
| ... | ... | |
| 493 |
494 |
my $leftovers = undef; # Reference to text that is returned from textblock()
|
| 494 |
495 |
my $do_leftovers = 0;
|
| 495 |
496 |
|
|
497 |
my ($colspan, @vertical_lines);
|
|
498 |
|
| 496 |
499 |
# Process every column from current row
|
| 497 |
500 |
for( my $j = 0; $j < scalar( @$record); $j++ )
|
| 498 |
501 |
{
|
| ... | ... | |
| 547 |
550 |
}
|
| 548 |
551 |
#TODO: Implement Center text align
|
| 549 |
552 |
$col_props->[$j]->{justify} = $col_props->[$j]->{justify} || 'left';
|
|
553 |
|
|
554 |
my $this_width;
|
|
555 |
if (!$first_row && $cell_props->[$row_cnt]->[$j]->{colspan}) {
|
|
556 |
$colspan = -1 == $cell_props->[$row_cnt]->[$j]->{colspan} ? $num_cols - $j : $cell_props->[$row_cnt]->[$j]->{colspan};
|
|
557 |
my $last_idx = $j + $colspan - 1;
|
|
558 |
$this_width = sum @{ $calc_column_widths }[$j..$last_idx];
|
|
559 |
|
|
560 |
} else {
|
|
561 |
$this_width = $calc_column_widths->[$j];
|
|
562 |
}
|
|
563 |
|
| 550 |
564 |
# If the content is wider than the specified width, we need to add the text as a text block
|
| 551 |
|
if($record->[$j] !~ m#(.\n.)# and $record_widths->[$j] and ($record_widths->[$j] < $calc_column_widths->[$j]))
|
|
565 |
if($record->[$j] !~ m#(.\n.)# and $record_widths->[$j] and ($record_widths->[$j] < $this_width))
|
| 552 |
566 |
{
|
| 553 |
567 |
my $space = $pad_left;
|
| 554 |
568 |
if($col_props->[$j]->{justify} eq 'right')
|
| 555 |
569 |
{
|
| 556 |
|
$space = $calc_column_widths->[$j] -($txt->advancewidth($record->[$j]) + $pad_right);
|
|
570 |
$space = $this_width -($txt->advancewidth($record->[$j]) + $pad_right);
|
| 557 |
571 |
}
|
| 558 |
572 |
$txt->translate( $cur_x + $space, $text_start );
|
| 559 |
573 |
$txt->text( $record->[$j] );
|
| ... | ... | |
| 566 |
580 |
$record->[$j],
|
| 567 |
581 |
x => $cur_x + $pad_left,
|
| 568 |
582 |
y => $text_start,
|
| 569 |
|
w => $calc_column_widths->[$j] - $pad_w,
|
|
583 |
w => $this_width - $pad_w,
|
| 570 |
584 |
h => $cur_y - $bot_marg - $pad_top - $pad_bot,
|
| 571 |
585 |
align => $col_props->[$j]->{justify},
|
| 572 |
586 |
lead => $lead
|
| ... | ... | |
| 581 |
595 |
}
|
| 582 |
596 |
}
|
| 583 |
597 |
$cur_x += $calc_column_widths->[$j];
|
|
598 |
|
|
599 |
push @vertical_lines, (!$colspan || (1 >= $colspan)) ? 1 : 0;
|
|
600 |
$colspan-- if ($colspan);
|
| 584 |
601 |
}
|
| 585 |
602 |
if( $do_leftovers )
|
| 586 |
603 |
{
|
| ... | ... | |
| 613 |
630 |
}
|
| 614 |
631 |
$gfx_bg->fill();
|
| 615 |
632 |
}
|
|
633 |
|
| 616 |
634 |
$cur_x += $calc_column_widths->[$j];
|
|
635 |
|
|
636 |
if ($line_w && $vertical_lines[$j] && ($j != (scalar(@{ $record }) - 1))) {
|
|
637 |
$gfx->move($cur_x, $cur_y);
|
|
638 |
$gfx->vline($cur_y - $row_h);
|
|
639 |
$gfx->fillcolor($border_color);
|
|
640 |
}
|
| 617 |
641 |
}#End of for(my $j....
|
| 618 |
642 |
|
| 619 |
643 |
$cur_y -= $row_h;
|
| ... | ... | |
| 626 |
650 |
}# End of while(scalar(@{$data}) and $cur_y-$row_h > $bot_marg)
|
| 627 |
651 |
|
| 628 |
652 |
# Draw vertical lines
|
| 629 |
|
$gfx->move( $xbase, $table_top_y);
|
| 630 |
|
$gfx->vline( $cur_y );
|
| 631 |
|
my $cur_x = $xbase;
|
| 632 |
|
for( my $j = 0; $j < scalar(@$record); $j++ )
|
| 633 |
|
{
|
| 634 |
|
$cur_x += $calc_column_widths->[$j];
|
| 635 |
|
$gfx->move( $cur_x, $table_top_y );
|
| 636 |
|
$gfx->vline( $cur_y );
|
| 637 |
|
|
| 638 |
|
}
|
| 639 |
|
# ACTUALLY draw all the lines
|
| 640 |
|
$gfx->fillcolor( $border_color);
|
| 641 |
|
$gfx->stroke if $line_w;
|
|
653 |
if ($line_w) {
|
|
654 |
$gfx->move($xbase, $table_top_y);
|
|
655 |
$gfx->vline($cur_y);
|
|
656 |
$gfx->move($xbase + sum(@{ $calc_column_widths }[0..$num_cols - 1]), $table_top_y);
|
|
657 |
$gfx->vline($cur_y);
|
|
658 |
$gfx->fillcolor($border_color);
|
|
659 |
$gfx->stroke();
|
|
660 |
}
|
| 642 |
661 |
$pg_cnt++;
|
| 643 |
662 |
}# End of while(scalar(@{$data}))
|
| 644 |
663 |
}# End of if(ref $data eq 'ARRAY')
|
| ... | ... | |
| 656 |
675 |
my $min_width = 0;
|
| 657 |
676 |
|
| 658 |
677 |
my $calc_widths ;
|
| 659 |
|
|
| 660 |
678 |
for(my $j = 0; $j < scalar( @$col_props); $j++)
|
| 661 |
679 |
{
|
| 662 |
680 |
$min_width += $col_props->[$j]->{min_w};
|
Unterstützung für zellenübergreifende Überschriften im PDF-Export des ReportGenerators verbessert.