Revision f4632ae8
Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 511 | 511 |
croak("Cannot convert from '" . $source->record_type . "' to '" . $destination_type . "'") if !$from_to;
|
| 512 | 512 |
|
| 513 | 513 |
my $is_abbr_any = sub {
|
| 514 |
any { $from_to->{abbr} eq $_ } @_;
|
|
| 514 |
my (@abbrs) = @_; |
|
| 515 |
|
|
| 516 |
my $missing_abbr; |
|
| 517 |
if (any { $missing_abbr = $_; !grep { $_->{abbr} eq $missing_abbr } @from_tos } @abbrs) {
|
|
| 518 |
die "no such workflow abbreviation '$missing_abbr'"; |
|
| 519 |
} |
|
| 520 |
|
|
| 521 |
any { $from_to->{abbr} eq $_ } @abbrs;
|
|
| 515 | 522 |
}; |
| 516 | 523 |
|
| 517 | 524 |
my ($item_parent_id_column, $item_parent_column); |
Auch abrufbar als: Unified diff
S:D:Order: new_from: Workflow-Abkuerzungen prüfen