From 4abce51769bac077d5ff8f6c65657a969642f6db Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Fri, 29 Nov 2024 05:44:30 +0100
Subject: [PATCH] revspace_lasercutter: fix direction

Oops, lasercutting should cost money, not generate it...
---
 plugins/revspace_lasercutter | 4 ++--
 revbank                      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/plugins/revspace_lasercutter b/plugins/revspace_lasercutter
index 6386dd9..7daa64b 100644
--- a/plugins/revspace_lasercutter
+++ b/plugins/revspace_lasercutter
@@ -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;
 }
diff --git a/revbank b/revbank
index 04d6924..8a8c6a3 100755
--- a/revbank
+++ b/revbank
@@ -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",