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

18
lib/RevBank/Cart.pm
View file

@ -35,7 +35,23 @@ sub add($self, $amount, $description, $data = {}) {
# ->add($user, ...) => use $cart->add(...)->add_contra($user, ...)
# ->add($entry) => use $cart->add_entry($entry)
return $self->add_entry(RevBank::Cart::Entry->new($amount, $description, $data));
my $entry = $self->add_entry(RevBank::Cart::Entry->new($amount, $description, $data));
$self->select($entry);
return $entry;
}
sub select($self, $entry) {
return $self->{selected_entry} = $entry;
}
sub selected($self) {
return undef if not @{ $self->{entries} };
for my $entry (@{ $self->{entries} }) {
return $entry if $entry == $self->{selected_entry};
}
return $self->select( $self->{entries}->[-1] );
}
sub delete($self, $entry) {