From 8bb7ab90a1720dcc48a016aff68cfcdfddf6f49d Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Tue, 3 May 2016 17:08:58 +0100
Subject: [PATCH] Add Schema.org product markup and change title of details
 pages

---
 lib/App/Web/Oof.pm | 30 +++++++++++++++++++++++++-----
 tmpl/details.html  |  5 ++++-
 2 files changed, 29 insertions(+), 6 deletions(-)

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index dffaaa5..fa256a6 100644
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -62,6 +62,25 @@ sub make_slug {
 	$slug
 }
 
+sub product_to_schemaorg {
+	my ($include_url, %data) = @_;
+	my $stock = $data{stock} > 0 ? 'InStock' : 'OutOfStock';
+	+{
+		'@context' => 'http://schema.org/',
+		'@type'    => 'Product',
+		name => $data{title},
+		image => "/static/fullpics/$data{product}-1.jpg",
+		description => $data{summary},
+		offers => {
+			'@type' => 'Offer',
+			price => ($data{price} =~ s/(..)$/\.$1/r),
+			priceCurrency => 'GBP',
+			availability => "http://schema.org/$stock",
+			($include_url ? (url => "/details/$data{product}/" . make_slug $data{title}) : ())
+		}
+	}
+}
+
 our %highlight;
 sub form_table_row {
 	my ($data, $tr) = @_;
@@ -230,14 +249,15 @@ 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, $summary) = $db{$$}->select(products => [qw/title summary/], {product => $id})->list;
+	my %data = %{$db{$$}->select(products => '*', {product => $id})->hash};
 	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->fid('summary')->replace_content($summary);
+	my $slug = make_slug $data{title};
+	$tree->find('title')->replace_content("$data{title} | ledparts4you");
+	$tree->find('h2')->replace_content($data{title});
+	$tree->fid('summary')->replace_content($data{summary});
 	$tree->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
 	$tree->fid('pictures')->find('li')->iter3(\@pics, \&details_list_element);
+	$tree->fid('jsonld')->replace_content(encode_json product_to_schemaorg '', %data);
 
 	for my $ahref ($tree->find('a')) {
 		$ahref->attr(href => "/form?highlight=$id") if $ahref->attr('href') eq '/';
diff --git a/tmpl/details.html b/tmpl/details.html
index ec99046..aa9b4cd 100644
--- a/tmpl/details.html
+++ b/tmpl/details.html
@@ -2,7 +2,10 @@
 <meta charset="utf-8">
 <link rel="stylesheet" href="/static/style.css">
 <link rel="canonical" href="https://example.org">
-<title>Pictures of an item | ledparts4you</title>
+<title>Item | ledparts4you</title>
+
+<script id="jsonld" type="application/ld+json">
+</script>
 
 <h1 id="title">ledparts4you</h1>
 <div id="subtitle">Issues/Questions? Contact us at <a href="mailto:orders@ledparts4you.uk.to">orders@ledparts4you.uk.to</a></div>
-- 
2.39.2