|
package SL::DB::PriceFactor;
|
|
|
|
use strict;
|
|
|
|
use SL::DB::MetaSetup::PriceFactor;
|
|
use SL::DB::Manager::PriceFactor;
|
|
use SL::DB::Helper::ActsAsList;
|
|
|
|
__PACKAGE__->meta->initialize;
|
|
|
|
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;
|
|
}
|
|
|
|
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
|