Revision d3801bc9
Von Kivitendo Admin vor mehr als 10 Jahren hinzugefügt
| SL/DB/Buchungsgruppe.pm | ||
|---|---|---|
| 72 | 72 |
my ($self) = @_; |
| 73 | 73 |
return SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->id ]); |
| 74 | 74 |
} |
| 75 |
|
|
| 76 |
sub orphaned {
|
|
| 77 |
my ($self) = @_; |
|
| 78 |
die 'not an accessor' if @_ > 1; |
|
| 79 |
|
|
| 80 |
require SL::DB::Part; |
|
| 81 |
return 0 if SL::DB::Manager::Part->get_all_count(query => [ buchungsgruppen_id => $self->id ]); |
|
| 82 |
return 1; |
|
| 83 |
} |
|
| 75 | 84 |
|
| 76 | 85 |
1; |
| 77 | 86 |
__END__ |
| ... | ... | |
| 111 | 120 |
account for the given taxzone (either the DB id or an instance of |
| 112 | 121 |
L<SL::DB::TaxZone>). |
| 113 | 122 |
|
| 123 |
=item C<orphaned> |
|
| 124 |
|
|
| 125 |
Checks whether this Buchungsgruppe is assigned to any parts. |
|
| 126 |
|
|
| 114 | 127 |
=back |
| 115 | 128 |
|
| 116 | 129 |
=head1 BUGS |
Auch abrufbar als: Unified diff
Neue Methode orphaned für Buchungsgruppe
Zum Prüfen, ob eine Buchungsgruppe gelöscht oder bearbeitet werden kann.