Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 408 | 408 |
'to_table' => 'delivery_orders', |
| 409 | 409 |
'to_id' => $params{do_id});
|
| 410 | 410 |
|
| 411 |
my ($oe_id) = $links[0]->{from_id} if (scalar @links);
|
|
| 411 |
my $oe_id = @links ? $links[0]->{from_id} : undef;
|
|
| 412 | 412 |
|
| 413 | 413 |
return $main::lxdebug->leave_sub() if (!$oe_id); |
| 414 | 414 |
|
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.