browser: only annotate end date of wikimedia data

[sheet.git] / writing.plp

diff --git a/writing.plp b/writing.plp
index a718c884bd6a1c8ffab718bc7107a32d3a793c73..2f08da63a3cd18d486fd7ccd97cc24eb24c85251 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -36,7 +36,7 @@ unless (exists $get{v}) {
 }
 
 my $scriptname = do 'writing-script.inc.pl';
-$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
+$_ = showlink($_, "/latin") for $scriptname->{latn} || ();
 
 for (
        [phnx => 'Phoenician'],
@@ -56,18 +56,7 @@ for (
        } @table]);
 }
 
-:></div>
+say "</div>\n";
 
-<hr>
-
-<div class="legend">
-       <table class="glyphs"><tr>
-       <td class="X l5">unicode 1.1
-       <td class="X l4">20th century
-       <td class="X l3">in 6.0 (2010)
-       <td class="X l2">recent assignments
-       <td class="X l1">proposed
-       <td class="ex">irregular
-       </table>
-</div>
+say for '<hr/>', $glyphs->legend;