X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FWeb%2FOof.pm;h=2814ad3760b879b85193982019d69e91cb2b79e1;hb=5eeddbd0b0c20375cf6d0258ed8cf3b9ef3b7a9b;hp=3e76325eda5509c2ce55d8f5c6031b1ca627b3ad;hpb=b66954a00daf8f8461626b52bee6030eac8843fd;p=app-web-oof.git

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index 3e76325..2814ad3 100644
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -66,6 +66,7 @@ sub form_table_row {
 	my ($data, $tr) = @_;
 	$tr->fclass($_)->replace_content($data->{$_}) for qw/title subtitle stock/;
 	$tr->fclass('price')->replace_content(stringify_money $data->{price});
+	$tr->fclass('freepost')->detach unless $data->{freepost};
 	$tr->fclass('title')->attr('data-product', $data->{product});
 	$tr->fclass('title')->attr('href', '/details/'.$data->{product}.'/'.make_slug $data->{title});
 #	$tr->fclass('title')->attr('data-summary', $data->{summary});
@@ -87,6 +88,7 @@ sub form_app {
 sub continue_table_row {
 	my ($data, $tr) = @_;
 	$tr->fclass($_)->replace_content($data->{$_}) for qw/title subtitle quantity/;
+	$tr->fclass('freepost')->detach unless $data->{freepost};
 	$tr->fclass('price')->replace_content(stringify_money $data->{subtotal});
 	$tr->fclass('title')->attr('data-product', $data->{product});
 }
@@ -98,7 +100,7 @@ sub continue_app {
 	my $req = Plack::Request->new($env);
 	my $params = $req->body_parameters;
 
-	my ($quant, $total, @data, @notes);
+	my ($quant, $quant_freepost, $total, @data, @notes) = (0) x 3;
 	for (sort keys %$params) {
 		next unless /^quant/;
 		next unless $params->{$_};
@@ -114,6 +116,7 @@ sub continue_app {
 		}
 		$data->{subtotal} = $data->{price} * $data->{quantity};
 		$quant += $data->{quantity};
+		$quant_freepost += $data->{quantity} if $data->{freepost};
 		$total += $data->{subtotal};
 		push @data, $data
 	}
@@ -139,7 +142,8 @@ sub continue_app {
 	}
 	$tree->look_down(name => 'discount')->detach unless $dvalue;
 	$tree->fid('discount_tr')->detach unless $dvalue;
-	my $postage = 220 + 50 * $quant;
+	my $postage = 220 + 50 * ($quant - $quant_freepost);
+	$postage = 0 if $quant == $quant_freepost;
 	$tree->fid('postage')->replace_content(stringify_money $postage);
 	$total += $postage;
 	$tree->fid('total')->replace_content(stringify_money $total);
@@ -189,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");