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

revspace_lasercutter: fix direction

Browse source 
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

4
plugins/revspace_lasercutter
View file

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

2
revbank
View file

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