Revision 5af5ceee
Von Bernd Bleßmann vor mehr als 6 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 202 | 202 |
my ($class, $source, %params) = @_; |
| 203 | 203 |
|
| 204 | 204 |
croak("Unsupported source object type '" . ref($source) . "'") unless ref($source) eq 'SL::DB::Order';
|
| 205 |
croak("A destination type must be given parameter") unless $params{destination_type};
|
|
| 205 |
croak("A destination type must be given as parameter") unless $params{destination_type};
|
|
| 206 | 206 |
|
| 207 | 207 |
my $destination_type = delete $params{destination_type};
|
| 208 | 208 |
my $src_dst_allowed = ('sales_quotation' eq $source->type && 'sales_order' eq $destination_type)
|
Auch abrufbar als: Unified diff
Typo in Fehlermeldung