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

openepaperlink: keep deleted products linked

Browse source 
This allows commenting a product in revbank.products to temporarily make
it unavailable, which is useful in the workflow that @PI4DEC wants.
This commit is contained in:
Juerd Waalboer 2025-01-07 19:49:56 +01:00
parent d703638e68
commit 65e387d84b
2 changed files with 4 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
contrib/openepaperlink.pl
View file

@ -348,9 +348,9 @@ my @lines = slurp ".revbank.oepl";
my %new_hwtype;
my $products = read_products;
$products->{_DELETED_} = {
id => "_DELETED_",
description => "(deleted)",
$products->{_NOTFOUND_} = {
id => "_NOTFOUND_",
description => "(product unavailable)",
price => "999.99",
tag_price => "999.99",
};
@ -361,10 +361,7 @@ for my $line (@lines) {
$product_id or next;
(grep { $_ eq $product_id or $_ eq $mac } @ARGV) or next if @ARGV;
my $product = $products->{$product_id} or do {
warn "Product not found ($product_id)\n";
next;
};
my $product = $products->{$product_id} || $products->{_NOTFOUND_};
$hwtype ||= $new_hwtype{$mac} = get_hwtype($mac) || next;
my $fn = draw($product, $hwtype, !!@ARGV) or next;

10
plugins/openepaperlink
View file

@ -78,18 +78,8 @@ sub hook_products_changed($class, $changes, $mtime, @) {
$product2mac{$id} or next;
push @macs, $product2mac{$id};
$deleted{$id} = 1 if not defined $new;
}
if (%deleted) {
rewrite $fn, sub($line) {
my ($mac, $product_id, $hwtype) = split " ", $line;
return "$mac _DELETED_ $hwtype\n" if $deleted{$product_id};
return $line;
};
}
@macs or return;
_run @macs;