+ my @additional_fields;
+ my $accountline_fields = Koha::AdditionalFields->search({ tablename => 'accountlines:credit' });
+ while ( my $field = $accountline_fields->next ) {
+ my $value = $input->param('additional_field_' . $field->id);
+ if (defined $value) {
+ push @additional_fields, {
+ id => $field->id,
+ value => $value,
+ };
+ }
+ }
+ if (@additional_fields) {
+ my $payment = Koha::Account::Lines->find($payment_id);
+ $payment->set_additional_fields(\@additional_fields);
+ }
+
+