projekt kivitendo

sub ship_to {

  $main::lxdebug->enter_sub();

  _check_io_auth();

  $::form->{print_and_post} = 0 if $::form->{second_run};

  map { $::form->{$_} = $::form->parse_amount(\%::myconfig, $::form->{$_}) } qw(exchangerate creditlimit creditremaining);

  # get details for customer/vendor

  call_sub($::form->{vc} . "_details", qw(name department_1 department_2 street zipcode city country gln contact email phone fax), $::form->{vc} . "number");

  $::form->{rowcount}--;

  my $cvars         = SL::DB::Shipto->new->cvars_by_config;

  my @shipto_vars   = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln

                         shiptocontact shiptocp_gender shiptophone shiptofax shiptoemail

                         shiptodepartment_1 shiptodepartment_2);

  my $previous_form = $::auth->save_form_in_session(skip_keys => [ @shipto_vars, qw(header shipto_id), map { "shiptocvar_" . $_->config->name } @{ $cvars } ]);

  $::form->{title}  = $::locale->text('Ship to');

  $::form->header;

  my $vc_obj = ($::form->{vc} eq 'customer' ? "SL::DB::Customer" : "SL::DB::Vendor")->new(id => $::form->{$::form->{vc} . "_id"})->load;

  $_->value($::form->{"shiptocvar_" . $_->config->name}) for @{ $cvars };

  print $::form->parse_html_template('io/ship_to', { previousform => $previous_form,

                                                     nextsub      => $::form->{display_form} || 'display_form',

                                                     vc_obj       => $vc_obj,

                                                     cvars        => $cvars,

                                                   });

  $main::lxdebug->leave_sub();

}

sub ship_to_entered {

  $::auth->restore_form_from_session(delete $::form->{previousform});

  call_sub($::form->{nextsub});

}