projekt kivitendo

  $form->{email_journal_id}    = delete $form->{workflow_email_journal_id};

  $form->{email_attachment_id} = delete $form->{workflow_email_attachment_id};

  map { delete $form->{$_} } qw(printed emailed queued invnumber deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno convert_from_oe_id);

  $form->{paidaccounts} = 1;

  die "No 'email_journal_id' was given." unless ($::form->{email_journal_id});

  $::form->{workflow_email_journal_id}    = delete $::form->{email_journal_id};

  $::form->{workflow_email_attachment_id} = delete $::form->{email_attachment_id};

  &edit;

}