$slug
}
+our %highlight;
sub form_table_row {
my ($data, $tr) = @_;
+ $tr->attr(class => 'highlight') if $highlight{$data->{product}};
$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};
sub form_app {
my ($env) = @_;
$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
+ my $req = Plack::Request->new($env);
+ local %highlight = map { $_ => 1 } $req->param('highlight');
my $data = $db{$$}->select(products => '*', {}, 'product')->hashes;
my $tree = $form->clone;
$tree->find('tbody')->find('tr')->iter3($data, \&form_table_row);
$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 '/';
+ }
+
[200, ['Content-type' => 'text/html; charset=utf-8'], [$tree->as_HTML]]
}
border-collapse: collapse;
}
+tr.highlight {
+ background-color: rgba(255,240,0,0.5);
+}
+
th,td {
padding: 0.2em;
}
<!DOCTYPE html>
<meta charset="utf-8">
<link rel="stylesheet" href="/static/style.css">
+<link rel="canonical" href="/form">
<title>Order LED TV parts | ledparts4you</title>
<h1 id="title">ledparts4you</h1>