Revision 3d7ea2e6
Von Sven Schöling vor fast 14 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
| 1385 | 1385 |
my $edit_url = build_std_url('action=edit', 'type', 'vc');
|
| 1386 | 1386 |
|
| 1387 | 1387 |
my $idx; |
| 1388 |
foreach my $accno (@{ $form->{TB} }) {
|
|
| 1388 |
foreach my $accno (@{ $form->{TB} || [] }) {
|
|
| 1389 | 1389 |
|
| 1390 | 1390 |
$accno->{soll} = $accno->{debit};
|
| 1391 | 1391 |
$accno->{haben} = $accno->{credit};
|
| ... | ... | |
| 1533 | 1533 |
my %subtotals = map { $_ => 0 } @totals_columns;
|
| 1534 | 1534 |
my %totals = map { $_ => 0 } @totals_columns;
|
| 1535 | 1535 |
my $found_heading = 0; |
| 1536 |
my @tb = sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} };
|
|
| 1536 |
my @tb = sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} || [] };
|
|
| 1537 | 1537 |
|
| 1538 | 1538 |
# sort the whole thing by account numbers and display |
| 1539 | 1539 |
foreach my $idx (0 .. scalar(@tb) - 1) {
|
Auch abrufbar als: Unified diff
2 weitere nicht abgefangene Arraykonvertierungen.