Revision f37d4ebc
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/Controller/RecordBase.pm | ||
|---|---|---|
|
package SL::Controller::RecordBase;
|
||
|
|
||
|
use strict;
|
||
|
use parent qw(SL::Controller::Base);
|
||
|
|
||
|
use List::Util qw(first);
|
||
|
use List::MoreUtils qw(none);
|
||
|
|
||
|
use SL::Helper::Flash qw(flash flash_later);
|
||
|
|
||
|
use Rose::Object::MakeMethods::Generic(
|
||
|
scalar => [ qw(
|
||
|
item_ids_to_delete is_custom_shipto_to_delete
|
||
|
) ],
|
||
|
'scalar --get_set_init' => [ qw(record) ],
|
||
|
);
|
||
|
|
||
|
# actions ----------------------------------------------------------------------
|
||
|
sub action_add {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
$self->record(SL::Model::Record->update_after_new($self->record));
|
||
|
|
||
|
$self->pre_render();
|
||
|
|
||
|
if (!$::form->{form_validity_token}) {
|
||
|
$::form->{form_validity_token} = SL::DB::ValidityToken->create(scope => SL::DB::ValidityToken::SCOPE_ORDER_SAVE())->token; # TODO remove scope
|
||
|
}
|
||
|
|
||
|
$self->render(
|
||
|
$self->base_template_folder . '/form',
|
||
|
title => $self->record->type_data->text('add'),
|
||
|
%{$self->{template_args}}
|
||
|
);
|
||
|
}
|
||
|
|
||
|
# helper -----------------------------------------------------------------------
|
||
|
|
||
|
# load record object from form or create a new object
|
||
|
#
|
||
|
# And assign changes from the form to this object.
|
||
|
# If the record is loaded from db, check if items are deleted in the form,
|
||
|
# remove them form the object and collect them for removing from db on saving.
|
||
|
# Then create/update items from form (via make_item) and add them.
|
||
|
sub init_record {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
die "type in form needed" unless $::form->{type};
|
||
|
my $record;
|
||
|
if ($::form->{id}) {
|
||
|
$record = SL::Model::Record->get_record($::form->{type}, $::form->{id});
|
||
|
} else {
|
||
|
$record = SL::Model::Record->create_new_record($::form->{type});
|
||
|
|
||
|
my $cv_id_method = $record->type_data->properties('customervendor'). '_id';
|
||
|
if ($::form->{$cv_id_method}) {
|
||
|
$record->$cv_id_method($::form->{$cv_id_method});
|
||
|
$record = SL::Model::Record->update_after_customer_vendor_change($record);
|
||
|
};
|
||
|
}
|
||
|
|
||
|
my $object_key = $record->type_data->properties('object_key');
|
||
|
my $items_key = $record->type_data->properties('items_key');
|
||
|
my $form_items = delete $::form->{$object_key}->{$items_key};
|
||
|
|
||
|
|
||
|
$record->assign_attributes(%{$::form->{$object_key}});
|
||
|
|
||
|
$self->setup_custom_shipto_from_form($record, $::form);
|
||
|
|
||
|
# remove deleted items
|
||
|
$self->item_ids_to_delete([]);
|
||
|
foreach my $idx (reverse 0..$#{$record->items}) {
|
||
|
my $item = $record->items->[$idx];
|
||
|
if (none { $item->id == $_->{id} } @{$form_items}) {
|
||
|
splice @{$record->items}, $idx, 1;
|
||
|
push @{$self->item_ids_to_delete}, $item->id;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
my @items;
|
||
|
my $pos = 1;
|
||
|
foreach my $form_attr (@{$form_items}) {
|
||
|
my $item = make_item($record, $form_attr);
|
||
|
$item->position($pos);
|
||
|
push @items, $item;
|
||
|
$pos++;
|
||
|
}
|
||
|
$record->add_items(grep {!$_->id} @items);
|
||
|
|
||
|
return $record;
|
||
|
}
|
||
|
|
||
|
# create or update items from form
|
||
|
#
|
||
|
# Make item objects from form values. For items already existing read from db.
|
||
|
# Create a new item else. And assign attributes.
|
||
|
sub make_item {
|
||
|
my ($record, $attr) = @_;
|
||
|
|
||
|
my $item;
|
||
|
$item = first { $_->id == $attr->{id} } @{$record->items} if $attr->{id};
|
||
|
|
||
|
my $is_new = !$item;
|
||
|
|
||
|
# add_custom_variables adds cvars to an orderitem with no cvars for saving, but
|
||
|
# they cannot be retrieved via custom_variables until the order/orderitem is
|
||
|
# saved. Adding empty custom_variables to new orderitem here solves this problem.
|
||
|
$item ||= SL::Model::Record->create_new_record_item($record->record_type);
|
||
|
|
||
|
$item->assign_attributes(%$attr);
|
||
|
|
||
|
if ($is_new) {
|
||
|
my $texts = get_part_texts($item->part, $record->language_id);
|
||
|
$item->longdescription($texts->{longdescription}) if !defined $attr->{longdescription};
|
||
|
$item->project_id($record->globalproject_id) if !defined $attr->{project_id};
|
||
|
$item->lastcost($record->is_sales ? $item->part->lastcost : 0) if !defined $attr->{lastcost_as_number};
|
||
|
}
|
||
|
|
||
|
return $item;
|
||
|
}
|
||
|
|
||
|
# virtual functions ------------------------------------------------------------
|
||
|
|
||
|
sub base_template_folder {...}
|
||
|
|
||
|
sub pre_render {...}
|
||
|
|
||
|
sub setup_custom_shipto_from_form {...}
|
||
|
|
||
|
sub get_part_texts {...}
|
||
|
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
SL::Controller::RecordBase: Basisklasse für Beleg-Controller