index: release v1.18 with only altgr index linked

[sheet.git] / writing.plp

diff --git a/writing.plp b/writing.plp
index a12c1f94c540ee5a411af718e02433cb6233931d..dfd78a4a77835f5943dd039b9a5abcc23dbc709d 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -40,12 +40,11 @@ $_ = showlink($_, "/latin") for $scriptname->{latn} || ();
 $_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || ();
 
 say $glyphs->table([map {
-               my $ref = $_;
-               my $lead = s/^(-)// && $1;
-               (map { ".>$lead$_" }
-                       $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
-               ),
-               @{ $info->{table}->{$ref} || [] }
+       my $lead = s/^(-)// && $1;
+       (map { ".>$lead$_" }
+               $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+       ),
+       @{ $info->{table}->{$_} || [] }
 } @{$rows}]);
 
 say "</div>\n";