Revision db5b8526
Von Werner Hahn vor mehr als 6 Jahren hinzugefügt
| SL/DB/ShopOrder.pm | ||
|---|---|---|
| 47 | 47 |
my @items = map{
|
| 48 | 48 |
|
| 49 | 49 |
# TODO Flash and exit if part not found |
| 50 |
my $part = SL::DB::Manager::Part->get_first( query => [ partnumber => $_->partnumber, ], );
|
|
| 50 |
my $part = SL::DB::Manager::Part->find_by(partnumber => $_->partnumber);
|
|
| 51 | 51 |
|
| 52 | 52 |
unless($part){
|
| 53 |
push @error_report, t8('Part with Partnumber: ') . $_->partnumber . t8(' not found');
|
|
| 53 |
push @error_report, t8('Part with partnumber: #1 not found', $_->partnumber);
|
|
| 54 | 54 |
}else{
|
| 55 | 55 |
my $shop_part = SL::DB::Manager::ShopPart->get_all( where => [ shop_id => $self->shop_id, part_id => $part->id] )->[0]; |
| 56 | 56 |
|
| ... | ... | |
| 70 | 70 |
if(!scalar(@error_report)){
|
| 71 | 71 |
|
| 72 | 72 |
my $shipto_id; |
| 73 |
if ($self->{billing_firstname} ne $self->{delivery_firstname} || $self->{billing_lastname} ne $self->{delivery_lastname} || $self->{billing_city} ne $self->{delivery_city} || $self->{billing_street} ne $self->{delivery_street}) {
|
|
| 74 |
if(my $address = SL::DB::Manager::Shipto->find_by( shiptoname => $self->{delivery_firstname} . " " . $self->{delivery_lastname},
|
|
| 75 |
shiptostreet => $self->{delivery_street},
|
|
| 76 |
shiptocity => $self->{delivery_city},
|
|
| 73 |
if ($self->billing_firstname ne $self->delivery_firstname || $self->billing_lastname ne $self->delivery_lastname || $self->billing_city ne $self->delivery_city || $self->billing_street ne $self->delivery_street) {
|
|
| 74 |
if(my $address = SL::DB::Manager::Shipto->find_by( shiptoname => $self->delivery_firstname . " " . $self->delivery_lastname,
|
|
| 75 |
shiptostreet => $self->delivery_street,
|
|
| 76 |
shiptocity => $self->delivery_city,
|
|
| 77 | 77 |
)) {
|
| 78 | 78 |
$shipto_id = $address->{shipto_id};
|
| 79 | 79 |
} else {
|
| 80 | 80 |
my $deliveryaddress = SL::DB::Shipto->new; |
| 81 | 81 |
$deliveryaddress->assign_attributes( |
| 82 |
shiptoname => $self->{delivery_firstname} . " " . $self->{delivery_lastname},
|
|
| 83 |
shiptodepartment_1 => $self->{delivery_company},
|
|
| 84 |
shiptodepartment_2 => $self->{delivery_department},
|
|
| 85 |
shiptostreet => $self->{delivery_street},
|
|
| 86 |
shiptozipcode => $self->{delivery_zipcode},
|
|
| 87 |
shiptocity => $self->{delivery_city},
|
|
| 88 |
shiptocountry => $self->{delivery_country},
|
|
| 82 |
shiptoname => $self->delivery_firstname . " " . $self->delivery_lastname,
|
|
| 83 |
shiptodepartment_1 => $self->delivery_company,
|
|
| 84 |
shiptodepartment_2 => $self->delivery_department,
|
|
| 85 |
shiptostreet => $self->delivery_street,
|
|
| 86 |
shiptozipcode => $self->delivery_zipcode,
|
|
| 87 |
shiptocity => $self->delivery_city,
|
|
| 88 |
shiptocountry => $self->delivery_country,
|
|
| 89 | 89 |
trans_id => $customer->id, |
| 90 | 90 |
module => "CT", |
| 91 | 91 |
); |
Auch abrufbar als: Unified diff
Shopmodul: Perlsyntax und locales