sub _replace_vars {
my (%params) = @_;
my $sub = $params{attribute};
- my $str = $params{object}->$sub;
+ my $str = $params{object}->$sub // '';
my $sub_fmt = lc($params{attribute_format} // 'text');
my ($start_tag, $end_tag) = $sub_fmt eq 'html' ? ('<%', '%>') : ('<%', '%>');
$invoice->assign_attributes(deliverydate => $period_start_date,
intnotes => $intnotes,
employee => $order->employee, # new_from sets employee to import user
+ direct_debit => $config->direct_debit,
);
_replace_vars(object => $invoice, vars => $time_period_vars, attribute => $_, attribute_format => ($_ eq 'notes' ? 'html' : 'text')) for qw(notes intnotes transaction_description);
$form->{OUT} = $config->printer->printer_command;
$form->{OUT_MODE} = '|-';
+ $form->{TEMPLATE_DRIVER_OPTIONS} = {
+ variable_content_types => {
+ longdescription => 'html',
+ partnotes => 'html',
+ notes => 'html',
+ },
+ };
+
$form->prepare_for_printing;
$form->throw_on_error(sub {