Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 64b88708

Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt

  • ID 64b8870862fd9411db8fe47f26d31350844a84bf
  • Vorgänger ea81b67e
  • Nachfolger fdb2c33e

S:D:Order: Typo

Unterschiede anzeigen:

SL/DB/Order.pm
{ from => PURCHASE_QUOTATION_INTAKE_TYPE(), to => PURCHASE_ORDER_TYPE(), abbr => 'pqipo' },
{ from => REQUEST_QUOTATION_TYPE(), to => PURCHASE_QUOTATION_INTAKE_TYPE(), abbr => 'rqpqi' },
);
my $from_to = (grep { $_->{from} eq $source->recrod_type && $_->{to} eq $destination_type} @from_tos)[0];
croak("Cannot convert from '" . $source->recrod_type . "' to '" . $destination_type . "'") if !$from_to;
my $from_to = (grep { $_->{from} eq $source->record_type && $_->{to} eq $destination_type} @from_tos)[0];
croak("Cannot convert from '" . $source->record_type . "' to '" . $destination_type . "'") if !$from_to;
my $is_abbr_any = sub {
any { $from_to->{abbr} eq $_ } @_;

Auch abrufbar als: Unified diff