X-Git-Url: http://git.ieval.ro/?p=app-web-oof.git;a=blobdiff_plain;f=lib%2FApp%2FWeb%2FOof.pm;fp=lib%2FApp%2FWeb%2FOof.pm;h=d74eca7b7ba727d3016bc7c67b0c240fb91152e8;hp=c2344c65aa28a0386c59cec3c48ebcc8e4710b67;hb=fc536c37d2613d680e34b28e6c4595ca4cc772a7;hpb=b312852edba2294eb593a74d7209cc7082482244

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index c2344c6..d74eca7 100644
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -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);
@@ -235,6 +239,10 @@ sub details_app {
 	$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]]
 }