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

openepaperlink: erase tag images on unlink

Browse source
This commit is contained in:
Juerd Waalboer 2025-01-17 01:17:43 +01:00
parent 0ce6eba77a
commit 19dd4c820e
2 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
plugins/openepaperlink
View file

@ -42,6 +42,8 @@ sub command :Tab(openepaperlink) ($self, $cart, $command, @) {
return "Tag MAC", sub ($self, $cart, $mac, @) {
$mac =~ $mac_regex or return REJECT, "Malformed MAC.";
_run erase => $mac if $product_id eq 'unlink'; # while it's still in the .oepl
_create;
my $found = 0;
rewrite $fn, sub($line) {
@ -54,7 +56,7 @@ sub command :Tab(openepaperlink) ($self, $cart, $command, @) {
if (!$found and $product_id ne 'unlink') {
append $fn, "$mac $product_id\n";
}
_run $mac;
_run $mac unless $product_id eq 'unlink';
return ACCEPT;
};