Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/CA.pm | ||
|---|---|---|
| 84 | 84 |
$amount{ $ref->{accno} } = $ref->{amount};
|
| 85 | 85 |
} |
| 86 | 86 |
|
| 87 |
my $where = "AND c.id = $chart_id" if ($chart_id ne '');
|
|
| 87 |
my $where = $chart_id ne '' ? "AND c.id = $chart_id" : '';
|
|
| 88 | 88 |
|
| 89 | 89 |
$query = qq{
|
| 90 | 90 |
SELECT |
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.