common: replace html links by common function

[sheet.git] / writing.plp

diff --git a/writing.plp b/writing.plp
index a718c884bd6a1c8ffab718bc7107a32d3a793c73..ee2d825e153f83203acaf74c49d7861a24557c28 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -36,7 +36,7 @@ unless (exists $get{v}) {
 }
 
 my $scriptname = do 'writing-script.inc.pl';
 }
 
 my $scriptname = do 'writing-script.inc.pl';

-$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
+$_ = showlink($_, "/latin") for $scriptname->{latn} || ();

 
 for (
        [phnx => 'Phoenician'],
 
 for (
        [phnx => 'Phoenician'],