X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FOrder.pm;fp=SL%2FController%2FOrder.pm;h=0dd06ebd45277b9472904ed9c1bc3727acff8725;hb=40f3befb965dd6125c0da70ad292f41a5d168d1c;hp=0250781113f087012884b1aab7a59693b358ebcd;hpb=94f5cb152afa9210162295b6727801c296af0631;p=kivitendo-erp.git

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index 025078111..0dd06ebd4 100644
--- a/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@ -259,6 +259,10 @@ sub action_save_as_new {
   # Update employee
   $new_attrs{employee}  = SL::DB::Manager::Employee->current;
 
+  # Warn on obsolete items
+  my @obsolete_positions = map { $_->position } grep { $_->part->obsolete } @{ $order->items_sorted };
+  flash_later('warning', t8('This record containts obsolete items at position #1', join ', ', @obsolete_positions)) if @obsolete_positions;
+
   # Create new record from current one
   $self->order(SL::DB::Order->new_from($order, destination_type => $order->type, attributes => \%new_attrs));