projekt kivitendo

use List::Util qw(max sum);

use List::UtilsBy qw(sort_by);

sub _sort_payments {

  my @fields   = qw(acc_trans_id gldate datepaid source memo paid AR_paid paid_project_id);

  my @payments =

    grep { $_->{paid} != 0 }

    map  {

      my $idx = $_;

      +{ map { ($_ => delete($::form->{"${_}_${idx}"})) } @fields }

    } (1..$::form->{paidaccounts});

  @payments = sort_by { DateTime->from_kivitendo($_->{datepaid}) } @payments;

  $::form->{paidaccounts} = max scalar(@payments), 1;

  foreach my $idx (1 .. scalar(@payments)) {

    my $payment = $payments[$idx - 1];

    $::form->{"${_}_${idx}"} = $payment->{$_} for @fields;

  }

}

  _sort_payments();