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

Allow cart manipulation during hook_checkout

Browse source
This commit is contained in:
Juerd Waalboer 2023-01-16 03:05:03 +01:00
parent 6089e212dc
commit 11ca0a86b2
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/RevBank/Cart.pm
View file

@ -72,21 +72,26 @@ sub checkout($self, $user) {
my $entries = $self->{entries};
my %deltas;
for my $entry (@$entries) {
$entry->sanity_check;
$entry->user($user);
$deltas{$entry->{user}} //= RevBank::Amount->new(0);
$deltas{$_->{user}} += $_->{amount} * $entry->quantity
for $entry, $entry->contras;
}
RevBank::FileIO::with_lock {
my $transaction_id = time() - 1300000000;
RevBank::Plugins::call_hooks("checkout", $self, $user, $transaction_id);
my %deltas = ($user => RevBank::Amount->new(0));
for my $entry (@$entries) {
# In case entries were added by the hook
$entry->sanity_check;
$entry->user($user) if not $entry->user;
$deltas{$_->{user}} += $_->{amount} * $entry->quantity
for $entry, $entry->contras;
}
for my $account (reverse sort keys %deltas) {
# The reverse sort is a lazy way to make the "-" accounts come last,
# which looks nicer with the "cash" plugin.