Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/USTVA.pm | ||
|---|---|---|
| 113 | 113 |
my $attribute = $arg_ref->{attribute}; #
|
| 114 | 114 |
my $dec_places = (defined $arg_ref->{dec_places}) ? $arg_ref->{dec_places}:undef;
|
| 115 | 115 |
|
| 116 |
my $where_type = "AND tax.report_headings.type = '$type'" if ( $type );
|
|
| 117 |
my $where_dcp = "AND tax.report_variables.dec_places = '$dec_places'" if ( defined $dec_places );
|
|
| 116 |
my $where_type = $type ? "AND tax.report_headings.type = '$type'" : '';
|
|
| 117 |
my $where_dcp = defined $dec_places ? "AND tax.report_variables.dec_places = '$dec_places'" : '';
|
|
| 118 | 118 |
|
| 119 | 119 |
my $query = qq| |
| 120 | 120 |
SELECT $attribute |
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.