X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/69bb392df0fc58612d77d8e8467c0e4782782eb5..c6db89309a11fe86cedd0533e167db8b4f66754d:/SL/Controller/BankTransaction.pm diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm index 844dad521..36494038d 100644 --- a/SL/Controller/BankTransaction.pm +++ b/SL/Controller/BankTransaction.pm @@ -230,11 +230,8 @@ sub action_list { # sort bank transaction proposals by quality (score) of proposal if ($::form->{sort_by} && $::form->{sort_by} eq 'proposal') { - if ($::form->{sort_dir}) { - $bank_transactions = [ sort { $a->{agreement} <=> $b->{agreement} } @{ $bank_transactions } ]; - } else { - $bank_transactions = [ sort { $b->{agreement} <=> $a->{agreement} } @{ $bank_transactions } ]; - } + my $dir = $::form->{sort_dir} ? 1 : -1; + $bank_transactions = [ sort { ($a->{agreement} <=> $b->{agreement}) * $dir } @{ $bank_transactions } ]; } # for testing with t/bank/banktransaction.t :