Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
bin/mozilla/ic.pl | ||
---|---|---|
1273 | 1273 |
my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns); |
1274 | 1274 |
my %totals = map { $_ => 0 } @subtotal_columns; |
1275 | 1275 |
my $idx = 0; |
1276 |
my $same_item = $form->{parts}[0]{ $form->{sort} } if (scalar @{ $form->{parts} });
|
|
1276 |
my $same_item = @{ $form->{parts} } ? $form->{parts}[0]{ $form->{sort} } : undef;
|
|
1277 | 1277 |
|
1278 | 1278 |
my $defaults = AM->get_defaults(); |
1279 | 1279 |
|
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.