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

Use read_products in new namespace

Browse source 
(Would also work without this change, but indirectly through the
products plugin which imports this symbol)
This commit is contained in:
Juerd Waalboer 2024-12-25 23:50:03 +01:00
parent 7c5431fba4
commit a450aa7468
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/statiegeld
View file

@ -1,5 +1,6 @@
#!perl #!perl
use List::Util; use List::Util;
use RevBank::Products;
our @addon_accounts = ("+statiegeld"); our @addon_accounts = ("+statiegeld");
my $nope = "Sorry, no deposit on that product.\n"; my $nope = "Sorry, no deposit on that product.\n";
@ -9,8 +10,7 @@ our $S = ($ENV{REVBANK_STATIEGELD} // 0) == 1;
sub statiegeld_product($product) { sub statiegeld_product($product) {
if (not ref $product) { if (not ref $product) {
# $product is a product id string; look up in product list # $product is a product id string; look up in product list
my $products = RevBank::Plugin::products::read_products(); $product = read_products->{$product} or return;
$product = $products->{$product} or return;
} }
# Called 'addons' here but also includes the queried product itself, # Called 'addons' here but also includes the queried product itself,

4
plugins/statiegeld_tokens
View file

@ -1,6 +1,6 @@
#!perl #!perl
use List::Util; use List::Util;
use RevBank::Products;
HELP void => "Destroy deposit tokens"; HELP void => "Destroy deposit tokens";
@ -220,7 +220,7 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
$tokens_changed++; $tokens_changed++;
} }
for my $type (keys %warnings_by_type) { for my $type (keys %warnings_by_type) {
my $products = RevBank::Plugin::products::read_products(); my $products = read_products;
my $addon = $products->{"+$type"} // $products->{$type}; my $addon = $products->{"+$type"} // $products->{$type};
my $avail = $had_num_tokens_by_type{$type} // 0; my $avail = $had_num_tokens_by_type{$type} // 0;
my $only = my $only =