Revision 844a541e
Von Moritz Bunkus vor etwa 3 Jahren hinzugefügt
| SL/DB/Customer.pm | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 |
use List::Util qw(first); |
|
| 5 | 6 |
use Rose::DB::Object::Helpers qw(as_tree); |
| 6 | 7 |
|
| 7 | 8 |
use SL::Locale::String qw(t8); |
| ... | ... | |
| 114 | 115 |
return $self->create_zugferd_invoices; |
| 115 | 116 |
} |
| 116 | 117 |
|
| 118 |
sub default_billing_address {
|
|
| 119 |
my $self = shift; |
|
| 120 |
|
|
| 121 |
die 'not an accessor' if @_ > 1; |
|
| 122 |
return first { $_->default_address } @{ $self->additional_billing_addresses };
|
|
| 123 |
} |
|
| 124 |
|
|
| 117 | 125 |
1; |
Auch abrufbar als: Unified diff
Zusätzliche Rechnungsadressen: in Verkaufsbelegmasken auswählbar