use utf8;
use parent qw/Plack::Component/;
-our $VERSION = '0.000_003';
+our $VERSION = '0.000_004';
use DBIx::Simple;
use File::Slurp;
my $req = Plack::Request->new($env);
my ($id) = $env->{PATH_INFO} =~ m,^/([0-9A-F]+),;
if ($id) {
- my $total = $db{$$}->select(orders => 'total', {id => $id})->list;
+ 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);
$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
my $tree = $details->clone;
my ($id) = $env->{PATH_INFO} =~ m,^/(\d+),;
- my $title = $db{$$}->select(products => 'title', {product => $id})->list;
+ 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);
my $app = shift;
sub {
my $res = $app->(@_);
- push @{$res->[2]}, $footer if $res->[0] == 200;
+ $res->[2][0] =~ s,</body>,$footer</body>, if $res->[0] == 200;
$res;
}
};