X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/b5b60a0ee0f90c2895e1e4e27926840ea29c2be7..HEAD:/dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 390643b..8e66008 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -34,7 +34,7 @@ my $pageinfo = $subpages{$Request}
 
 Html({
 	title => $pageinfo->{title}.' cheat sheet',
-	version => '1.1',
+	version => '1.2',
 	lang => 'nl',
 	description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
 	keywords => [qw'
@@ -42,7 +42,8 @@ Html({
 		relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
 		land zee lucht  animals dutch language
 	'],
-	raw => <<'EOT',
+	image => 'dieren.jpg',
+	raw => <<"EOT",
 <style>
 figure[hidden] {
 	opacity: 0; /* secret */
@@ -57,7 +58,7 @@ figure[hidden]:hover > figcaption {
 	transition-delay: 2s;
 }
 
-@media (max-width: 60em) {
+\@media (max-width: 60em) {
 	td, th {
 		font-size: 50%;
 	}
@@ -83,7 +84,7 @@ say $pageinfo->{altlink};
 </p>
 
 <:
-my $table = readdata('dieren');
+my $table = Data('dieren');
 
 if (exists $get{r}) {
 	use List::MoreUtils qw( part );
@@ -125,7 +126,7 @@ for my $row (@{$table}) {
 		$name .= " <small>($alt)</small>" if $alt;
 
 		printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
-		if ($img and -e ($img = "data/dieren/$img.jpg")) {
+		if ($img and -e ($img = lc "data/dieren/$img.jpg")) {
 			printf '<img src="/%s"', $img;
 			printf ' alt="%s"', $alt || $name;
 			print ' />';