Revision 84ba8214
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| modules/override/PDF/Table.pm | ||
|---|---|---|
| 238 | 238 |
# Table Header Section |
| 239 | 239 |
#===================================== |
| 240 | 240 |
# Disable header row into the table |
| 241 |
my $header_props = 0; |
|
| 241 |
my $header_props; |
|
| 242 |
my $num_header_rows = 0; |
|
| 243 |
my @header_rows; |
|
| 242 | 244 |
# Check if the user enabled it ? |
| 243 | 245 |
if (defined $arg{'header_props'} and ref( $arg{'header_props'}) eq 'HASH') {
|
| 244 | 246 |
# Transfer the reference to local variable |
| ... | ... | |
| 249 | 251 |
$header_props->{'font_color'} = $header_props->{'font_color'} || '#000066';
|
| 250 | 252 |
$header_props->{'font_size'} = $header_props->{'font_size'} || $fnt_size + 2;
|
| 251 | 253 |
$header_props->{'bg_color'} = $header_props->{'bg_color'} || '#FFFFAA';
|
| 254 |
|
|
| 255 |
$num_header_rows = $arg{'num_header_rows'} || 1;
|
|
| 252 | 256 |
} |
| 253 |
my $header_row = undef; |
|
| 254 | 257 |
#===================================== |
| 255 | 258 |
# Other Parameters check |
| 256 | 259 |
#===================================== |
| ... | ... | |
| 276 | 279 |
my $pg_cnt = 1; |
| 277 | 280 |
my $cur_y = $ybase; |
| 278 | 281 |
my $cell_props = $arg{cell_props} || []; # per cell properties
|
| 279 |
my $row_cnt = ( ref $header_props and $header_props->{'repeat'} ) ? 1 : 0; # current row in user data
|
|
| 282 |
my $row_cnt = $num_header_rows;
|
|
| 280 | 283 |
|
| 281 | 284 |
#If there is valid data array reference use it! |
| 282 | 285 |
if (ref $data eq 'ARRAY') {
|
| 283 | 286 |
# Copy the header row if header is enabled |
| 284 |
@$header_row = $$data[0] if defined $header_props; |
|
| 287 |
if (defined $header_props) {
|
|
| 288 |
map { push @header_rows, $$data[$_] } (0..$num_header_rows - 1);
|
|
| 289 |
} |
|
| 285 | 290 |
# Determine column widths based on content |
| 286 | 291 |
|
| 287 | 292 |
# an arrayref whose values are a hashref holding |
| ... | ... | |
| 292 | 297 |
# the actual widths of the column/row intersection |
| 293 | 298 |
my $row_props = []; |
| 294 | 299 |
# An array ref with the widths of the header row |
| 295 |
my $header_row_props = [];
|
|
| 300 |
my @header_row_props;
|
|
| 296 | 301 |
|
| 297 | 302 |
# Scalars that hold sum of the maximum and minimum widths of all columns |
| 298 | 303 |
my ( $max_col_w, $min_col_w ) = ( 0,0 ); |
| ... | ... | |
| 301 | 306 |
# Hash that will hold the width of every word from input text |
| 302 | 307 |
my $word_w = {};
|
| 303 | 308 |
my $rows_counter = 0; |
| 304 |
my $first_row = 1; |
|
| 305 | 309 |
|
| 306 | 310 |
foreach $row ( @{$data} ) {
|
| 311 |
push(@header_row_props, []) if ($rows_counter < $num_header_rows); |
|
| 312 |
|
|
| 307 | 313 |
my $column_widths = []; #holds the width of each column |
| 308 | 314 |
for( my $j = 0; $j < scalar(@$row) ; $j++ ) {
|
| 309 | 315 |
# look for font information for this column |
| ... | ... | |
| 360 | 366 |
}#End of for(my $j.... |
| 361 | 367 |
$row_props->[$rows_counter] = $column_widths; |
| 362 | 368 |
# Copy the calculated row properties of header row. |
| 363 |
@$header_row_props = @$column_widths if (!$rows_counter and ref $header_props); |
|
| 369 |
if (($rows_counter < $num_header_rows) && $header_props) {
|
|
| 370 |
push(@header_row_props, [ @{ $column_widths } ]);
|
|
| 371 |
} |
|
| 364 | 372 |
$rows_counter++; |
| 365 | 373 |
} |
| 374 |
$main::lxdebug->dump(0, "hrp", \@header_row_props); |
|
| 366 | 375 |
# Calc real column widths and expand table width if needed. |
| 367 | 376 |
my $calc_column_widths; |
| 368 | 377 |
($calc_column_widths, $width) = $self->CalcColumnWidths( $col_props, $width ); |
| ... | ... | |
| 373 | 382 |
my ( $gfx , $gfx_bg , $background_color , $font_color, ); |
| 374 | 383 |
my ( $bot_marg, $table_top_y, $text_start , $record, $record_widths ); |
| 375 | 384 |
|
| 385 |
my $remaining_header_rows = $header_props ? $num_header_rows : 0; |
|
| 386 |
|
|
| 376 | 387 |
# Each iteration adds a new page as neccessary |
| 377 | 388 |
while(scalar(@{$data})) {
|
| 378 | 389 |
my $page_header; |
| ... | ... | |
| 392 | 403 |
$bot_marg = $table_top_y - $next_h; |
| 393 | 404 |
|
| 394 | 405 |
if ( ref $header_props and $header_props->{'repeat'}) {
|
| 395 |
# Copy Header Data |
|
| 396 |
@$page_header = @$header_row; |
|
| 397 |
my $hrp ; |
|
| 398 |
@$hrp = @$header_row_props ; |
|
| 399 |
# Then prepend it to master data array |
|
| 400 |
unshift @$data ,@$page_header ; |
|
| 401 |
unshift @$row_props ,$hrp ; |
|
| 402 |
$first_row = 1; # Means YES |
|
| 406 |
foreach my $idx (0 .. $num_header_rows - 1) {
|
|
| 407 |
unshift @$data, [ @{ $header_rows[$idx] } ];
|
|
| 408 |
unshift @$row_props, [ @{ $header_row_props[$idx] } ];
|
|
| 409 |
} |
|
| 410 |
$remaining_header_rows = $num_header_rows; |
|
| 403 | 411 |
} |
| 404 | 412 |
} |
| 405 | 413 |
|
| ... | ... | |
| 438 | 446 |
$background_color = $rows_counter % 2 ? $background_color_even : $background_color_odd; |
| 439 | 447 |
$font_color = $rows_counter % 2 ? $font_color_even : $font_color_odd; |
| 440 | 448 |
|
| 441 |
if ($first_row and ref $header_props) {
|
|
| 449 |
if ($remaining_header_rows and ref $header_props) {
|
|
| 442 | 450 |
$background_color = $header_props->{'bg_color'}
|
| 443 | 451 |
} |
| 444 | 452 |
$text_start = $cur_y - $fnt_size - $pad_top; |
| ... | ... | |
| 455 | 463 |
$leftovers->[$j] = undef; |
| 456 | 464 |
|
| 457 | 465 |
# Choose font color |
| 458 |
if ( $first_row and ref $header_props ) {
|
|
| 466 |
if ( $remaining_header_rows and ref $header_props ) {
|
|
| 459 | 467 |
$txt->fillcolor( $header_props->{'font_color'} );
|
| 460 | 468 |
|
| 461 | 469 |
} elsif ( $cell_props->[$row_cnt][$j]{font_color} ) {
|
| ... | ... | |
| 469 | 477 |
} |
| 470 | 478 |
|
| 471 | 479 |
# Choose font size |
| 472 |
if ( $first_row and ref $header_props ) {
|
|
| 480 |
if ( $remaining_header_rows and ref $header_props ) {
|
|
| 473 | 481 |
$col_fnt_size = $header_props->{'font_size'};
|
| 474 | 482 |
|
| 475 | 483 |
} elsif ( $col_props->[$j]->{'font_size'} ) {
|
| ... | ... | |
| 480 | 488 |
} |
| 481 | 489 |
|
| 482 | 490 |
# Choose font family |
| 483 |
if ( $first_row and ref $header_props ) {
|
|
| 491 |
if ( $remaining_header_rows and ref $header_props ) {
|
|
| 484 | 492 |
$txt->font( $header_props->{'font'}, $header_props->{'font_size'});
|
| 485 | 493 |
|
| 486 | 494 |
} elsif ( $col_props->[$j]->{'font'} ) {
|
| ... | ... | |
| 493 | 501 |
$col_props->[$j]->{justify} = $col_props->[$j]->{justify} || 'left';
|
| 494 | 502 |
|
| 495 | 503 |
my $this_width; |
| 496 |
if (!$first_row && $cell_props->[$row_cnt]->[$j]->{colspan}) {
|
|
| 504 |
if (!$remaining_header_rows && $cell_props->[$row_cnt]->[$j]->{colspan}) {
|
|
| 497 | 505 |
$colspan = -1 == $cell_props->[$row_cnt]->[$j]->{colspan} ? $num_cols - $j : $cell_props->[$row_cnt]->[$j]->{colspan};
|
| 498 | 506 |
my $last_idx = $j + $colspan - 1; |
| 499 | 507 |
$this_width = sum @{ $calc_column_widths }[$j..$last_idx];
|
| ... | ... | |
| 550 | 558 |
$col_props->[$j]->{'background_color'} ||
|
| 551 | 559 |
$background_color ) {
|
| 552 | 560 |
$gfx_bg->rect( $cur_x, $cur_y-$row_h, $calc_column_widths->[$j], $row_h); |
| 553 |
if ( $cell_props->[$row_cnt][$j]->{'background_color'} && !$first_row ) {
|
|
| 561 |
if ( $cell_props->[$row_cnt][$j]->{'background_color'} && !$remaining_header_rows ) {
|
|
| 554 | 562 |
$gfx_bg->fillcolor($cell_props->[$row_cnt][$j]->{'background_color'});
|
| 555 | 563 |
|
| 556 |
} elsif ( $col_props->[$j]->{'background_color'} && !$first_row ) {
|
|
| 564 |
} elsif ( $col_props->[$j]->{'background_color'} && !$remaining_header_rows ) {
|
|
| 557 | 565 |
$gfx_bg->fillcolor($col_props->[$j]->{'background_color'});
|
| 558 | 566 |
|
| 559 | 567 |
} else {
|
| ... | ... | |
| 576 | 584 |
$gfx->move( $xbase , $cur_y ); |
| 577 | 585 |
$gfx->hline( $xbase + $width ); |
| 578 | 586 |
$rows_counter++; |
| 579 |
$row_cnt++ unless ( $first_row ); |
|
| 580 |
$first_row = 0; |
|
| 587 |
if ($remaining_header_rows) {
|
|
| 588 |
$remaining_header_rows--; |
|
| 589 |
} else {
|
|
| 590 |
$row_cnt++; |
|
| 591 |
} |
|
| 581 | 592 |
}# End of while(scalar(@{$data}) and $cur_y-$row_h > $bot_marg)
|
| 582 | 593 |
|
| 583 | 594 |
# Draw vertical lines |
Auch abrufbar als: Unified diff
ReportGenerator: Unterstützung für mehrzeilige und individuell festgelegte Tabellenköpfe/Spaltenüberschriften implementiert.