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

Fix bug: ->changed is getter only, not a setter

Browse source
This commit is contained in:
Juerd Waalboer 2023-01-19 05:24:50 +01:00
parent e1aed5cbdf
commit f479060576
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/RevBank/Cart.pm
View file

@ -118,13 +118,15 @@ sub entries($self, $attribute = undef) {
return @entries;
}
sub changed($self) {
sub changed($self, $keep = 0) {
my $changed = 0;
for my $entry ($self->entries('changed')) {
$entry->attribute('changed', undef);
$entry->attribute('changed', undef) unless $keep;
$changed = 1;
}
$changed = 1 if delete $self->{changed};
$changed = 1 if $self->{changed};
delete $self->{changed} unless $keep;
return $changed;
}