Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1440 | 1440 |
|
| 1441 | 1441 |
my ($sth, $ref, $query); |
| 1442 | 1442 |
|
| 1443 |
my $query_transdate = ", current_date AS invdate" if !$form->{id};
|
|
| 1443 |
my $query_transdate = !$form->{id} ? ", current_date AS invdate" : '';
|
|
| 1444 | 1444 |
|
| 1445 | 1445 |
$query = |
| 1446 | 1446 |
qq|SELECT |
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.