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