revspace_lasercutter: fix direction

Oops, lasercutting should cost money, not generate it...
This commit is contained in:
Juerd Waalboer 2024-11-29 05:44:30 +01:00
parent 3b6f11f0dd
commit 4abce51769
2 changed files with 3 additions and 3 deletions

View file

@ -23,8 +23,8 @@ sub time ($self, $cart, $time, @) {
$time = int($q / 4) . ":" . sprintf("%02d", ($q % 4) * 15);
$cart
->add($q * $cost, "Lasercutter usage ($time)")
->add_contra("+sales/lasercutter", -$q * $cost, "\$you used lasercutter ($time)");
->add(-$q * $cost, "Lasercutter usage ($time)")
->add_contra("+sales/lasercutter", $q * $cost, "\$you used lasercutter ($time)");
return ACCEPT;
}

View file

@ -17,7 +17,7 @@ use RevBank::Messages;
use RevBank::Cart;
use RevBank::Prompt;
our $VERSION = "7.2.2";
our $VERSION = "7.2.3";
our %HELP1 = (
"abort" => "Abort the current transaction",