projekt kivitendo

use SL::DB::Shop;

use SL::DB::MetaSetup::ShopOrder;

use SL::DB::Manager::ShopOrder;

use SL::DB::Helper::LinkedRecords;

use SL::Locale::String qw(t8);

use Carp;

  my $customer_proposals = $self->check_for_existing_customers;

  my $name = $self->billing_firstname . " " . $self->billing_lastname;

  my $customer = 0;

  if(!scalar(@{$customer_proposals})){

    my %address = ( 'name'                  => $name,

                    'department_1'          => $self->billing_company,

                    'pricegroup_id'         => (split '\/',$shop->price_source)[0] eq "pricegroup" ?  (split '\/',$shop->price_source)[1] : undef,

                    'taxzone_id'            => $shop->taxzone_id,

                    'currency'              => $::instance_conf->get_currency_id,

                  );

    $customer = SL::DB::Customer->new(%address);