Fix date formatting on payment screen

Fixes #8541

lib/LedgerSMB.pm

@@ -216,6 +216,10 @@ Parses the $date given the session user's date formatting settings.
 
 formats the $amount given the session user's number formatting settings.
 
+=item format_date($date, %args)
+
+formats the $date given the session user's date formatting settings.
+
 =item formatter_options()
 
 Returns a hashref containing the session user's number and date formatting
@@ -775,6 +779,16 @@ sub format_amount {
         );
 }
 
+sub format_date {
+    my ($request, $date, %args) = @_;
+    my $config = $request->{_user};
+
+    return $date->to_output(
+        format => $config->{dateformat},
+        %args
+        );
+}
+
 sub formatter_options {
     my ($request) = @_;
     my $config = $request->{_user};

lib/LedgerSMB/Scripts/payment.pm

@@ -1017,7 +1017,7 @@ sub payment2 {
     my @topay_state;
     my @open_invoices  = $Payment->get_open_invoices();
     for my $invoice (@open_invoices) {
-        $invoice->{invoice_date} = $request->format_amount( $invoice->{invoice_date} );
+        $invoice->{invoice_date} = $request->format_date( $invoice->{invoice_date} );
 
         if ($args{update}
             && ! $request->{"checkbox_$invoice->{invoice_id}"}) {