Revision 9c879953
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ca.pl | ||
|---|---|---|
| 299 | 299 |
my $idx = 0; |
| 300 | 300 |
my %totals = ( 'debit' => 0, 'credit' => 0 ); |
| 301 | 301 |
my %subtotals = ( 'debit' => 0, 'credit' => 0 ); |
| 302 |
my ($previous_index, $row_set); |
|
| 302 | 303 |
|
| 303 | 304 |
foreach my $ca (@{ $form->{CA} }) {
|
| 304 | 305 |
$form->{balance} += $ca->{amount};
|
| ... | ... | |
| 320 | 321 |
}; |
| 321 | 322 |
} |
| 322 | 323 |
|
| 323 |
$row->{reference}->{link} = build_std_url("script=$ca->{module}.pl", 'action=edit', 'id=' . E($ca->{id}), 'callback');
|
|
| 324 |
if ($ca->{index} ne $previous_index) {
|
|
| 325 |
$report->add_data($row_set) if ($row_set); |
|
| 324 | 326 |
|
| 325 |
$report->add_data($row); |
|
| 327 |
$row_set = [ ]; |
|
| 328 |
$previous_index = $ca->{index};
|
|
| 329 |
|
|
| 330 |
$row->{reference}->{link} = build_std_url("script=$ca->{module}.pl", 'action=edit', 'id=' . E($ca->{id}), 'callback');
|
|
| 331 |
|
|
| 332 |
} else {
|
|
| 333 |
map { $row->{$_}->{data} = '' } qw(reference description);
|
|
| 334 |
$row->{transdate}->{data} = '' if ($form->{sort} eq 'transdate');
|
|
| 335 |
} |
|
| 336 |
|
|
| 337 |
push @{ $row_set }, $row;
|
|
| 326 | 338 |
|
| 327 | 339 |
if (($form->{l_subtotal} eq 'Y')
|
| 328 | 340 |
&& (($idx == scalar @{ $form->{CA} } - 1)
|
Auch abrufbar als: Unified diff
Buchungsliste: Optische Gruppierung wieder eingebaut, die bei der Umstellung auf ReportGenerator verloren ging.