$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($_)->replace_content($data->{$_}) for qw/title subtitle stock/;
$tr->fclass('price')->replace_content(stringify_money $data->{price});
$tr->fclass('freepost')->detach unless $data->{freepost};
my $data = $db{$$}->select(products => '*', {}, 'product')->hashes;
my $tree = $form->clone;
$tree->find('tbody')->find('tr')->iter3($data, \&form_table_row);
my $data = $db{$$}->select(products => '*', {}, 'product')->hashes;
my $tree = $form->clone;
$tree->find('tbody')->find('tr')->iter3($data, \&form_table_row);
$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
my $tree = $details->clone;
my ($id) = $env->{PATH_INFO} =~ m,^/(\d+),;
$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
my $tree = $details->clone;
my ($id) = $env->{PATH_INFO} =~ m,^/(\d+),;
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);
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->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
$tree->fid('pictures')->find('li')->iter3(\@pics, \&details_list_element);
$tree->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
$tree->fid('pictures')->find('li')->iter3(\@pics, \&details_list_element);