dieren: what does the fox say?

[sheet.git] / dieren.plp

diff --git a/dieren.plp b/dieren.plp
index 4d0ee93c83a9557522d7c3e01065846d56514c30..8e660081aaa9d93fcebf776ea4dd347f6201bc51 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -34,14 +34,16 @@ my $pageinfo = $subpages{$Request}
 
 Html({
        title => $pageinfo->{title}.' cheat sheet',
-       version => '1.0',
+       version => '1.2',
+       lang => 'nl',
        description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
        keywords => [qw'
                dier beest naam naamgeving woord taal nederlands gerelateerd
                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 */
@@ -56,7 +58,7 @@ figure[hidden]:hover > figcaption {
        transition-delay: 2s;
 }
 
-@media (max-width: 60em) {
+\@media (max-width: 60em) {
        td, th {
                font-size: 50%;
        }
@@ -72,7 +74,7 @@ EOT
 });
 
 :>
-<h1>Dierennamen <small>(Dutch animal names)</small></h1>
+<h1>Dierennamen <small lang=en>(Dutch animal names)</small></h1>
 
 <p>
 <:
@@ -82,7 +84,7 @@ say $pageinfo->{altlink};
 </p>
 
 <:
-my $table = readdata('dieren');
+my $table = Data('dieren');
 
 if (exists $get{r}) {
        use List::MoreUtils qw( part );
@@ -124,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 ' />';