X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FWeb%2FOof.pm;h=dffaaa57136a65d91d55151eb090fc75e2b2c775;hb=bf8c3839b1715d687ec4fa9607164c10b225f9e3;hp=0bd08dfc84eecbc60c99aefd8afd4e50c4090dcf;hpb=b11f7d46cd706bd6a5d358f92bd7d0ee74a6f10b;p=app-web-oof.git diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm index 0bd08df..dffaaa5 100644 --- a/lib/App/Web/Oof.pm +++ b/lib/App/Web/Oof.pm @@ -6,7 +6,7 @@ use warnings; use utf8; use parent qw/Plack::Component/; -our $VERSION = '0.000_004'; +our $VERSION = '0.000_005'; use DBIx::Simple; use File::Slurp; @@ -62,8 +62,10 @@ sub make_slug { $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}; @@ -77,7 +79,9 @@ sub form_table_row { 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); @@ -226,14 +230,19 @@ sub details_app { $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 = ; 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 '/'; + } + [200, ['Content-type' => 'text/html; charset=utf-8'], [$tree->as_HTML]] } @@ -255,7 +264,7 @@ sub app { my $app = shift; sub { my $res = $app->(@_); - push @{$res->[2]}, $footer if $res->[0] == 200; + $res->[2][0] =~ s,,$footer, if $res->[0] == 200; $res; } };