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

Expose deltas

Browse source 
In preparation for future plugin
This commit is contained in:
Juerd Waalboer 2024-11-17 01:15:18 +01:00
parent a303cad131
commit 807d255b53
1 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lib/RevBank/Cart.pm
View file

@ -84,6 +84,18 @@ sub prohibit_checkout($self, $bool, $reason) {
} }
} }
sub deltas($self, $user) {
my %deltas = ($user => RevBank::Amount->new(0));
for my $entry (@{ $self->{entries} }) {
$deltas{$_->{user}} += $_->{amount} * $entry->quantity
for $entry, $entry->contras;
}
return \%deltas;
}
sub checkout($self, $user) { sub checkout($self, $user) {
if ($self->{prohibited}) { if ($self->{prohibited}) {
die RevBank::Cart::CheckoutProhibited->new( die RevBank::Cart::CheckoutProhibited->new(
@ -133,18 +145,13 @@ sub checkout($self, $user) {
RevBank::Plugins::call_hooks("checkout", $self, $user, $transaction_id); RevBank::Plugins::call_hooks("checkout", $self, $user, $transaction_id);
my %deltas = ($user => RevBank::Amount->new(0)); my $deltas = $self->deltas($user);
for my $entry (@$entries) { for my $account (reverse sort keys %$deltas) {
$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, # The reverse sort is a lazy way to make the "-" accounts come last,
# which looks nicer with the "cash" plugin. # which looks nicer with the "cash" plugin.
RevBank::Users::update($account, $deltas{$account}, $transaction_id) RevBank::Users::update($account, $deltas->{$account}, $transaction_id)
if $deltas{$account} != 0; if $deltas->{$account} != 0;
} }
RevBank::Plugins::call_hooks("checkout_done", $self, $user, $transaction_id); RevBank::Plugins::call_hooks("checkout_done", $self, $user, $transaction_id);