Revision 6e7e7ef1
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
|
my $saved_order = SL::DB::DeliveryOrder->new(id => $order->id)->load;
|
||
|
|
||
|
# Create new record from current one
|
||
|
my $updated_order = SL::Model::Record->update_for_save_as_new($saved_order, $order);
|
||
|
|
||
|
$self->order($updated_order);
|
||
|
my $new_order = SL::Model::Record->clone_for_save_as_new($saved_order, $order);
|
||
|
$self->order($new_order);
|
||
|
|
||
|
# no linked records on save as new
|
||
|
delete $::form->{$_} for qw(converted_from_oe_id converted_from_orderitems_ids);
|
||
| SL/Controller/Order.pm | ||
|---|---|---|
|
my $saved_order = SL::DB::Order->new(id => $order->id)->load;
|
||
|
|
||
|
# Create new record from current one
|
||
|
my $updated_order = SL::Model::Record->update_for_save_as_new($saved_order, $order);
|
||
|
|
||
|
$self->order($updated_order);
|
||
|
my $new_order = SL::Model::Record->clone_for_save_as_new($saved_order, $order);
|
||
|
$self->order($new_order);
|
||
|
|
||
|
# Warn on obsolete items
|
||
|
my @obsolete_positions = map { $_->position } grep { $_->part->obsolete } @{ $self->order->items_sorted };
|
||
| SL/Controller/Reclamation.pm | ||
|---|---|---|
|
my $saved_reclamation = SL::DB::Reclamation->new(id => $reclamation->id)->load;
|
||
|
|
||
|
# Create new record from current one
|
||
|
my $new_reclamation = SL::Model::Record->update_for_save_as_new($saved_reclamation, $reclamation);
|
||
|
my $new_reclamation = SL::Model::Record->clone_for_save_as_new($saved_reclamation, $reclamation);
|
||
|
$self->reclamation($new_reclamation);
|
||
|
|
||
|
if (!$::form->{form_validity_token}) {
|
||
| SL/Model/Record.pm | ||
|---|---|---|
|
}
|
||
|
}
|
||
|
|
||
|
sub update_for_save_as_new {
|
||
|
sub clone_for_save_as_new {
|
||
|
my ($class, $saved_record, $changed_record, %params) = @_;
|
||
|
|
||
|
# der übergebene beleg wurde mit new_from erstellt und muss nachbearbeitet werden:
|
||
Auch abrufbar als: Unified diff
Model::Record: umbenennen von update_... zu clone_for_save_as_new