+ _order();
+
+ if ($::instance_conf->get_feature_experimental_order) {
+
+ # At this point, the record is saved and the exchangerate contains
+ # an unformatted value. _make_record uses RDBO attributes (i.e. _as_number)
+ # to assign values and thus expects an formatted value.
+ $::form->{exchangerate} = $::form->format_amount(\%::myconfig, $::form->{exchangerate});
+
+ my $order = _make_record();
+
+ $order->currency(SL::DB::Currency->new(name => $::form->{currency})->load) if $::form->{currency};
+ $order->globalproject_id(undef) if !$order->globalproject_id;
+ $order->payment_id(undef) if !$order->payment_id;
+
+ my $row = 1;
+ foreach my $item (@{$order->items_sorted}) {
+ $item->custom_variables([]);
+
+ $item->price_factor_id(undef) if !$item->price_factor_id;
+ $item->project_id(undef) if !$item->project_id;
+
+ # autovivify all cvars that are not in the form (cvars_by_config can do it).
+ # workaround to pre-parse number-cvars (parse_custom_variable_values does not parse number values).
+ foreach my $var (@{ $item->cvars_by_config }) {
+ my $key = 'ic_cvar_' . $var->config->name . '_' . $row;
+ $var->unparsed_value($::form->{$key});
+ $var->unparsed_value($::form->parse_amount(\%::myconfig, $var->{__unparsed_value})) if ($var->config->type eq 'number' && exists($var->{__unparsed_value}));
+ }
+ $item->parse_custom_variable_values;
+
+ $row++;
+ }
+
+ require SL::Controller::Order;
+ my $c = SL::Controller::Order->new(order => $order);
+ $c->setup_custom_shipto_from_form($order, $::form);
+ $c->action_edit();
+
+ $main::lxdebug->leave_sub();
+ $::dispatcher->end_request;
+ }
+
+ &display_form;
+
+ $main::lxdebug->leave_sub();
+}
+
+sub _order {