From b22ac114768f3e40187431a2195c5ee6f4f452e3 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Thu, 26 Dec 2024 03:13:19 +0100
Subject: [PATCH] read_products: do calculate total_price for alias of addon

There was a bug with the example product defined as:

    +smk,matekrat  1.50@+statiegeld  "..."

Only the id `+smk` was considered, and no total price was calculated. This
broke the accessible id `matekrat`. The fix is to consider the keys of
the products in the hash, instead of the `id` field.
---
 lib/RevBank/Products.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/RevBank/Products.pm b/lib/RevBank/Products.pm
index 7dcafb1..9a96b41 100644
--- a/lib/RevBank/Products.pm
+++ b/lib/RevBank/Products.pm
@@ -144,8 +144,9 @@ sub read_products($filename = "revbank.products", $default_contra = "+sales/prod
     }
 
     # Calculate tag and total price
-    PRODUCT: for my $product (values %products) {
-        next if $product->{id} =~ /^\+/;
+    PRODUCT: for my $id (keys %products) {
+        next if $id =~ /^\+/;
+        my $product = $products{$id};
 
         my $tag_price = $product->{price} || 0;
         my $hidden = 0;