Revision a040e91f
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 86 | 86 |
return shift()->invoices(query => [ abschlag => 0 ]); |
| 87 | 87 |
} |
| 88 | 88 |
|
| 89 |
sub convert_to {
|
|
| 90 |
my ($self, %params) = @_; |
|
| 91 |
|
|
| 92 |
my $destination_type = lc(delete $params{destination_type});
|
|
| 93 |
|
|
| 94 |
if ($destination_type eq 'invoice') {
|
|
| 95 |
$self->convert_to_invoice(%params); |
|
| 96 |
} else {
|
|
| 97 |
croak("Unsupported destination type `$destination_type'");
|
|
| 98 |
} |
|
| 99 |
} |
|
| 100 |
|
|
| 101 | 89 |
sub convert_to_invoice {
|
| 102 | 90 |
my ($self, %params) = @_; |
| 103 | 91 |
|
Auch abrufbar als: Unified diff
Überflüssige Funktion
Conflicts: