Revision 32cb209c
Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 390 | 390 |
{ from => PURCHASE_QUOTATION_INTAKE_TYPE(), to => PURCHASE_ORDER_TYPE(), abbr => 'pqipo' },
|
| 391 | 391 |
{ from => REQUEST_QUOTATION_TYPE(), to => PURCHASE_QUOTATION_INTAKE_TYPE(), abbr => 'rqpqi' },
|
| 392 | 392 |
); |
| 393 |
my $from_to = (grep { $_->{from} eq $source->recrod_type && $_->{to} eq $destination_type} @from_tos)[0];
|
|
| 394 |
croak("Cannot convert from '" . $source->recrod_type . "' to '" . $destination_type . "'") if !$from_to;
|
|
| 393 |
my $from_to = (grep { $_->{from} eq $source->record_type && $_->{to} eq $destination_type} @from_tos)[0];
|
|
| 394 |
croak("Cannot convert from '" . $source->record_type . "' to '" . $destination_type . "'") if !$from_to;
|
|
| 395 | 395 |
|
| 396 | 396 |
my $is_abbr_any = sub {
|
| 397 | 397 |
any { $from_to->{abbr} eq $_ } @_;
|
Auch abrufbar als: Unified diff
S:D:Order: Typo