+ my ($id) = $env->{PATH_INFO} =~ m,^/([0-9A-F]+),;
+ if ($id) {
+ my $total = $db{$$}->select(orders => 'total', {id => $id})->list or
+ return [500, ['Content-type', 'text/plain'], ['Order not found']];
+ $tree->fid('orderid')->replace_content($id);
+ $tree->look_down(name => 'order')->attr(value => $id);
+ $tree->fid('total')->replace_content(stringify_money $total);
+ $tree->find('script')->attr('data-amount', $total);
+ return [200, ['Content-type' => 'text/html; charset=utf-8'], [$tree->as_HTML]]
+ } else {
+ my %parms = %{$req->body_parameters};
+ my $id = sprintf "%X%04X", time, $$;
+ my $err;
+ try {
+ $db{$$}->begin_work;
+ my $products = decode_json $req->body_parameters->{products};
+ for my $prod (@$products) {
+ my $stock = $db{$$}->select(products => 'stock', {product => $prod->{product}})->list;
+ die "Not enough of " .$prod->{title}."\n" if $prod->{quantity} > $stock;
+ $db{$$}->update(products => {stock => $stock - $prod->{quantity}}, {product => $prod->{product}});
+ }
+ $db{$$}->insert(orders => {id => $id, %parms});
+ $db{$$}->commit;
+ } catch {
+ $db{$$}->rollback;
+ $err = [500, ['Content-type', 'text/plain'], ["Error: $_"]]
+ };
+ return $err if $err;
+ return [303, [Location => "/order/$id"], []]
+ }
+}
+
+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");
+ my $thumb = $data =~ s/fullpics/thumbs/r;
+ $thumb = $data unless -f $thumb;
+ $li->find('img')->attr(src => "/$thumb");
+}
+
+sub details_app {
+ my ($env) = @_;
+ $db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
+ my $tree = $details->clone;
+ my ($id) = $env->{PATH_INFO} =~ m,^/(\d+),;
+ my ($title, $summary) = $db{$$}->select(products => [qw/title summary/], {product => $id})->list;
+ my @pics = <static/fullpics/$id-*>;
+ my $slug = make_slug $title;
+ $tree->find('title')->replace_content("Pictures of $title | ledparts4you");
+ $tree->find('h2')->replace_content($title);
+ $tree->fid('summary')->replace_content($summary);
+ $tree->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
+ $tree->fid('pictures')->find('li')->iter3(\@pics, \&details_list_element);
+
+ for my $ahref ($tree->find('a')) {
+ $ahref->attr(href => "/form?highlight=$id") if $ahref->attr('href') eq '/';