Fix bug introduced by code order swap

This commit is contained in:
Juerd Waalboer 2019-11-06 03:00:58 +01:00
parent c9b704adca
commit 321ada19ae

View file

@ -36,8 +36,8 @@ sub arg :Tab(USERS) {
my $total = sprintf "%.2f", @$users * $each;
my $desc = join " + ", map $_->{description}, _select_split($cart);
my $users = join '/', @$users;
my $entry = $cart->add($total, "Taken from $users (Split: $desc)" );
my $joined = join '/', @$users;
my $entry = $cart->add($total, "Taken from $joined (Split: $desc)" );
for my $user (@$users) {
$entry->add_contra( $user, -$each, "Taken by \$you (Split: $desc)" );