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

Fix #7

Browse source
This commit is contained in:
Juerd Waalboer 2020-03-01 06:16:08 +01:00
parent 31a1aa5c45
commit f7a7a19d8d
5 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/RevBank/Cart.pm
View file

@ -75,6 +75,12 @@ sub size {
sub checkout {
my ($self, $user) = @_;
if ($self->entries('refuse_checkout')) {
warn "Refusing to finalize deficient transaction.\n";
$self->display;
return;
}
my $entries = $self->{entries};
my %deltas;
@ -98,6 +104,7 @@ sub checkout {
$self->empty;
sleep 1; # Ensure new timestamp/id for new transaction
return 1;
}
sub entries {