Revision 0a25d5a4
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/CA.pm | ||
|---|---|---|
| 347 | 347 |
$union = qq|UNION ALL|; |
| 348 | 348 |
} |
| 349 | 349 |
|
| 350 |
$query .= qq|ORDER BY | . $form->{sort};
|
|
| 350 |
my $sort = grep({ $form->{sort} eq $_ } qw(transdate reference description)) ? $form->{sort} : 'transdate';
|
|
| 351 |
|
|
| 352 |
$query .= qq|ORDER BY $sort|; |
|
| 351 | 353 |
$sth = prepare_execute_query($form, $dbh, $query, @values); |
| 352 | 354 |
|
| 353 | 355 |
$form->{CA} = [];
|
| ... | ... | |
| 370 | 372 |
$ca->{debit} = 0;
|
| 371 | 373 |
} |
| 372 | 374 |
|
| 373 |
$ca->{index} = $ca->{reference}.$ca->{description};
|
|
| 375 |
$ca->{index} = join "--", map { $ca->{$_} } qw(id reference description);
|
|
| 374 | 376 |
|
| 375 | 377 |
push(@{ $form->{CA} }, $ca);
|
| 376 | 378 |
|
Auch abrufbar als: Unified diff
Buchungsliste:
1. $form->{sort} nicht ohne Überprüfung in einem SQL-Query benutzen.
2. Nur dann mehrere Zeilen zusammenfassen, wenn auch ihre ID übereinstimmen (was vermutlich nie der Fall sein wird, aber anders ist es schlicht falsch, weil dann Buchungen zusammengefasst werden können, die zu unterschiedlichen Belegen gehören).