X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d1bffbc141ae931caf359090c6b7ec56a4feccd1..cd274d3f3c0600fedf42cca0830179cbeb81a535:/SL/DB/Order.pm diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm index 8228def98..cff772a5d 100644 --- a/SL/DB/Order.pm +++ b/SL/DB/Order.pm @@ -315,9 +315,6 @@ sub new_from { croak("Cannot convert from '" . $source->type . "' to '" . $destination_type . "'") if !$from_to; my $is_abbr_any = sub { - # foreach my $abbr (@_) { - # croak "no such abbreviation: '$abbr'" if !grep { $_->{abbr} eq $abbr } @from_tos; - # } any { $from_to->{abbr} eq $_ } @_; };