Update SPARQLHTML serializer to return HTML links for IRIs kasei#54

Varadinsky · Jan 29, 2016 · a61a82a · a61a82a
1 parent 4263638
commit a61a82a
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/lib/AtteanX/Serializer/SPARQLHTML.pm b/lib/AtteanX/Serializer/SPARQLHTML.pm
@@ -141,6 +141,22 @@ Serializes the L<Attean::API::Term> object as HTML.
 				s/</&lt;/g;
 			}
 			my $html	= $uri;
+
+			if (my $map = $self->namespaces) {
+				my $abr = $map->abbreviate($html);
+
+				if ($abr) {
+					return qq[<a href="${html}">$abr</a>];
+				} else {
+					return $html;
+				}
+
+			} else {
+
+				return $html;
+			}
+
+
 # 			if ($link) {
 # 				$html	= qq[<a href="${uri}">$html</a>];
 # 			}
@@ -162,6 +178,7 @@ Serializes the L<Attean::API::Term> object as HTML.
 		}
 	}
 	with 'Attean::API::ResultSerializer';
+	with 'Attean::API::AbbreviatingSerializer';
 }
 
 1;