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

statiegeld: support statiegeld-only products

Browse source
This commit is contained in:
Juerd Waalboer 2023-01-19 01:51:40 +01:00
parent 4d5eae3ad7
commit 5e91aaff3d
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/statiegeld
View file

@ -30,13 +30,15 @@ sub statiegeld_product($product) {
$product = $products->{$product} or return; $product = $products->{$product} or return;
} }
# Called 'addons' here but also includes the queried product itself,
# to support things that are 100% statiegeld (e.g. empty crate)
my @relevant_addons = grep { my @relevant_addons = grep {
my $addon = $_; my $addon = $_;
!$addon->{percent} !$addon->{percent}
and (List::Util::any { $addon->{contra} eq $_ } @addon_accounts) and (List::Util::any { $addon->{contra} eq $_ } @addon_accounts)
and $addon->{price} > 0; and $addon->{price} > 0;
} @{ $product->{addons} // [] }; } $product, @{ $product->{addons} // [] };
return 0 if not @relevant_addons; return 0 if not @relevant_addons;
return { product => $product, statiegeld_addons => \@relevant_addons }; return { product => $product, statiegeld_addons => \@relevant_addons };

1
plugins/statiegeld_tokens
View file

@ -4,7 +4,6 @@
# voiding of tokens # voiding of tokens
# querying of tokens # querying of tokens
# expiry of tokens # expiry of tokens
# token for non-hidden addon (direct product use)
use List::Util; use List::Util;