Revision 66e5ad7b
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
| 268 | 268 |
} |
| 269 | 269 |
|
| 270 | 270 |
my ($outer_idx, $inner_idx) = (0, 0); |
| 271 |
my $next_border_top; |
|
| 271 | 272 |
my @rows; |
| 272 | 273 |
|
| 273 | 274 |
foreach my $row_set (@{ $self->{data} }) {
|
| 274 | 275 |
if ('HASH' eq ref $row_set) {
|
| 276 |
if ($row_set->{type} eq 'separator') {
|
|
| 277 |
if (! scalar @rows) {
|
|
| 278 |
$next_border_top = 1; |
|
| 279 |
} else {
|
|
| 280 |
$rows[-1]->{BORDER_BOTTOM} = 1;
|
|
| 281 |
} |
|
| 282 |
|
|
| 283 |
next; |
|
| 284 |
} |
|
| 285 |
|
|
| 275 | 286 |
my $row_data = {
|
| 276 | 287 |
'IS_CONTROL' => 1, |
| 277 |
'IS_SEPARATOR' => $row_set->{type} eq 'separator',
|
|
| 278 | 288 |
'IS_COLSPAN_DATA' => $row_set->{type} eq 'colspan_data',
|
| 279 | 289 |
'NUM_COLUMNS' => scalar @visible_columns, |
| 290 |
'BORDER_TOP' => $next_border_top, |
|
| 280 | 291 |
'data' => $row_set->{data},
|
| 281 | 292 |
}; |
| 282 | 293 |
|
| 283 | 294 |
push @rows, $row_data; |
| 284 | 295 |
|
| 296 |
$next_border_top = 0; |
|
| 297 |
|
|
| 285 | 298 |
next; |
| 286 | 299 |
} |
| 287 | 300 |
|
| ... | ... | |
| 306 | 319 |
'outer_idx' => $outer_idx, |
| 307 | 320 |
'outer_idx_odd' => $outer_idx % 2, |
| 308 | 321 |
'inner_idx' => $inner_idx, |
| 322 |
'BORDER_TOP' => $next_border_top, |
|
| 309 | 323 |
}; |
| 310 | 324 |
|
| 311 | 325 |
push @rows, $row_data; |
| 326 |
|
|
| 327 |
$next_border_top = 0; |
|
| 312 | 328 |
} |
| 313 | 329 |
} |
| 314 | 330 |
|
Auch abrufbar als: Unified diff
Trennstriche in Berichten als Rahmen der Tabellenzellen zeichnen, nicht als <hr>.