Merge branch 'b-3.6.1' of ../kivitendo-erp_20220811

[kivitendo-erp.git] / SL / DB / PriceFactor.pm

diff --git a/SL/DB/PriceFactor.pm b/SL/DB/PriceFactor.pm
index af8b4ef2a65b9747206ace81a711b987718c81af..e5fab1ce7368a0a17c5e27f8f4f2ec8d83c6b1a9 100644 (file)
--- a/SL/DB/PriceFactor.pm
+++ b/SL/DB/PriceFactor.pm
@@ -8,6 +8,26 @@ 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__