bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

v6.0.3: add warning for duplicates in revbank.products

Browse source
This commit is contained in:
Juerd Waalboer 2024-02-07 23:15:57 +01:00
parent 4b6fa729ff
commit 1105fbc3b2
2 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
plugins/products
View file

@ -91,16 +91,20 @@ sub read_products() {
next;
}
}
$products{$_} = {
id => $ids[0],
price => $sign * $price,
percent => $percent,
description => $desc,
contra => $contra || $default_contra,
_addon_ids => \@addon_ids,
line => $linenr,
tags => \%tags,
} for @ids;
for my $id (@ids) {
warn "Product '$id' redefined at $filename line $linenr (original at line $products{$id}{line}).\n" if exists $products{$id};
$products{$id} = {
id => $ids[0],
price => $sign * $price,
percent => $percent,
description => $desc,
contra => $contra || $default_contra,
_addon_ids => \@addon_ids,
line => $linenr,
tags => \%tags,
};
}
}
PRODUCT: for my $product (values %products) {

2
revbank
View file

@ -16,7 +16,7 @@ use RevBank::Messages;
use RevBank::Cart;
use RevBank::Prompt;
our $VERSION = "6.0.2";
our $VERSION = "6.0.3";
our %HELP1 = (
"abort" => "Abort the current transaction",
);