From 5eeddbd0b0c20375cf6d0258ed8cf3b9ef3b7a9b Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 5 Mar 2016 18:17:32 +0000
Subject: [PATCH] Add a function for cancelling orders

---
 lib/App/Web/Oof.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index 3310dd1..2814ad3 100644
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -193,6 +193,25 @@ sub order_app {
 	}
 }
 
+sub cancel {
+	my ($order) = @_;
+	$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
+	$order = $db{$$}->select(orders => '*', {id => $order})->hash;
+	my $products = decode_json $order->{products};
+	$db{$$}->begin_work;
+	try {
+		for my $prod (@$products) {
+			my $stock = $db{$$}->select(products => 'stock', {product => $prod->{product}})->list;
+			$db{$$}->update(products => {stock => $stock + $prod->{quantity}}, {product => $prod->{product}});
+		}
+		$db{$$}->delete(orders => {id => $order->{id}});
+		$db{$$}->commit;
+	} catch {
+		$db{$$}->rollback;
+		die $_
+	}
+}
+
 sub details_list_element {
 	my ($data, $li) = @_;
 	$li->find('a')->attr(href => "/$data");
-- 
2.39.2