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

Highlight change; apply operators to last scanned instead of last added

Browse source
This commit is contained in:
Juerd Waalboer 2023-01-30 04:35:56 +01:00
parent ef5babd3df
commit 99435cef17
5 changed files with 47 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
plugins/repeat
View file

@ -17,7 +17,7 @@ sub command($self, $cart, $command, @) {
return ABORT, $err_pfand if $cart->entries('is_pfand');
my $last = ($cart->entries)[-1];
my $last = $cart->selected;
return NEXT if $lhs and $rhs; # 123x123 -> invalid, likely user or product
@ -79,7 +79,7 @@ sub repeat($self, $cart, $arg, @) {
return REJECT, $err_limit if $arg > $limit;
($cart->entries)[-1]->quantity($arg);
$cart->selected->quantity($arg);
return ACCEPT;
}
@ -87,7 +87,7 @@ sub plusminus($self, $cart, $arg, @) {
$arg =~ /^\d+$/ and $arg > 0
or return REJECT, "Invalid value.";
my $last = ($cart->entries)[-1];
my $last = $cart->selected;
my $new = $last->quantity;
$new += $arg if $self->{op} eq '+';
$new -= $arg if $self->{op} eq '-';
@ -97,7 +97,7 @@ sub plusminus($self, $cart, $arg, @) {
$cart->delete($last);
print "Deleted.\n";
} else {
($cart->entries)[-1]->quantity($new);
$cart->selected->quantity($new);
}
return ACCEPT;
}