Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 1048 | 1048 |
my $select_clause = join ', ', map { $token_builder->($_, 1) } @select_tokens;
|
| 1049 | 1049 |
my $join_clause = join ' ', @joins{ grep $joins_needed{$_}, @join_order };
|
| 1050 | 1050 |
my $where_clause = join ' AND ', map { "($_)" } @where_tokens;
|
| 1051 |
my $group_clause = ' GROUP BY ' . join ', ', map { $token_builder->($_) } @group_tokens if scalar @group_tokens;
|
|
| 1051 |
my $group_clause = @group_tokens ? ' GROUP BY ' . join ', ', map { $token_builder->($_) } @group_tokens : '';
|
|
| 1052 | 1052 |
|
| 1053 | 1053 |
my %oe_flag_to_cvar = ( |
| 1054 | 1054 |
bought => 'invoice', |
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.