use utf8;
use parent qw/Plack::Component/;
-our $VERSION = '0.000_001';
+our $VERSION = '0.000_003';
use DBIx::Simple;
use File::Slurp;
my $title = $db{$$}->select(products => 'title', {product => $id})->list;
my @pics = <static/fullpics/$id-*>;
my $slug = make_slug $title;
- $tree->find('title')->replace_content("Pictures of $title");
+ $tree->find('title')->replace_content("Pictures of $title | ledparts4you");
$tree->find('h2')->replace_content($title);
$tree->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
$tree->fid('pictures')->iter3(\@pics, \&details_list_element);
my $app = shift;
sub {
my $res = $app->(@_);
- push @{$res->[2]}, $footer;
+ push @{$res->[2]}, $footer if $res->[0] == 200;
$res;
}
};
=head1 DESCRIPTION
Oof (Oversimplified order form) is a very simple ecommerce website.
-As of this moment it is incomplete (although functional), hence the
-version number.
+It is the code behind L<https://ledparts4you.uk.to>.
+
+This version is reasonably functional, yet not very reusable, hence
+the version number.
=head1 AUTHOR