kivitendo/SL/DB/PriceFactor.pm @ cfb7b8d7
| 82515b2d | Sven Schöling | package SL::DB::PriceFactor;
|
||
use strict;
|
||||
use SL::DB::MetaSetup::PriceFactor;
|
||||
| 0701c7ef | Geoffrey Richardson | use SL::DB::Manager::PriceFactor;
|
||
| 117fefac | Moritz Bunkus | use SL::DB::Helper::ActsAsList;
|
||
| 82515b2d | Sven Schöling | |||
| 2d7e4203 | Sven Schöling | __PACKAGE__->meta->initialize;
|
||
| 5e1de2f8 | Moritz Bunkus | sub orphaned {
|
||
my ($self) = @_;
|
||||
die 'not an accessor' if @_ > 1;
|
||||
require SL::DB::DeliveryOrderItem;
|
||||
require SL::DB::InvoiceItem;
|
||||
require SL::DB::OrderItem;
|
||||
require SL::DB::Part;
|
||||
return 1 if !$self->id;
|
||||
return 0 if SL::DB::Manager::DeliveryOrderItem->get_first(query => [ price_factor_id => $self->id ]);
|
||||
return 0 if SL::DB::Manager::InvoiceItem ->get_first(query => [ price_factor_id => $self->id ]);
|
||||
return 0 if SL::DB::Manager::OrderItem ->get_first(query => [ price_factor_id => $self->id ]);
|
||||
return 0 if SL::DB::Manager::Part ->get_first(query => [ price_factor_id => $self->id ]);
|
||||
return 1;
|
||||
}
|
||||
| 82515b2d | Sven Schöling | 1;
|
||
__END__
|
||||
=pod
|
||||
=head1 NAME
|
||||
SL::DB::PriceFactor: Model for the 'price_factors' table
|
||||
=head1 SYNOPSIS
|
||||
This is a standard Rose::DB::Object based model and can be used as one.
|
||||
=head1 FUNCTIONS
|
||||
None so far.
|
||||
=head1 AUTHOR
|
||||
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
|
||||
=cut
|