pricecharts

commit 0a3a3c69e2de3542ec63b67bc920c9e30d364e67
parent d6aa7134c0fa7157d1977e512bfee9c14fdd01f5
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Thu, 19 Mar 2015 17:57:17 -0600

gen_svg: make series hyperlinks

Diffstat:
M
gen_svg
 | 
7
++++++-

1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/gen_svg b/gen_svg
@@ -92,8 +92,13 @@ while (my ($brand, $part_num, $description) = $parts_sth->fetchrow_array()) {
 			-closed => "false"
 		);
 
+		my $tag = $svg->anchor(
+			-href => $cfg->{vendors}{$vendor}{search_url} . $part_num,
+			target => "new_window"
+		);
+
 		# polyline sucks, spline would look nicer
-		$svg->polyline(
+		$tag->polyline(
 			%$points, id => $vendor,
 			style => {
 				"fill-opacity" => 0, fill => "#$line_color",