From 1c9c35d535823c647d4c3a6056b098f9c7966be9 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Thu, 25 Apr 2024 01:34:47 +0200
Subject: [PATCH] v6.1.3: fix grandtotal for invalid balances

This somehow escaped change with the introduction of RevBank::Amount in
v3.2 in 2021, which only now became relevant due to the recent change in
v6.1.0 which turns invalid account balances into a feature.
---
 plugins/grandtotal | 8 ++++----
 revbank            | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/plugins/grandtotal b/plugins/grandtotal
index 04ddc22..437068b 100644
--- a/plugins/grandtotal
+++ b/plugins/grandtotal
@@ -12,14 +12,14 @@ sub command :Tab(grandtotal) ($self, $cart, $command, @) {
         my ($username, $balance) = split " ", $line;
         next if RevBank::Users::is_special($username);
 
-        my $credit = $balance;
+        my $credit = RevBank::Amount->parse_string($balance) or next;
         $neg += $credit if $credit < 0;
         $pos += $credit if $credit > 0;
     }
 
-    printf "Total positive: %8.2f\n", $pos;
-    printf "Total negative: \e[31;1m%8.2f\e[0m\n", $neg;
-    printf "GRAND TOTAL:    \e[1m%8.2f\e[0m\n", $pos + $neg;
+    printf "Total positive: %8s\n", $pos;
+    printf "Total negative: \e[31;1m%8s\e[0m\n", $neg;
+    printf "GRAND TOTAL:    \e[1m%8s\e[0m\n", $pos + $neg;
 
     return ACCEPT;
 }
diff --git a/revbank b/revbank
index 78e9028..2ea3379 100755
--- a/revbank
+++ b/revbank
@@ -16,7 +16,7 @@ use RevBank::Messages;
 use RevBank::Cart;
 use RevBank::Prompt;
 
-our $VERSION = "6.1.2";
+our $VERSION = "6.1.3";
 our %HELP1 = (
     "abort" => "Abort the current transaction",
 );