X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/8cd8b696d867095b360be613130d8207cb68d992..73efa77e17e78f6af24c05855873529f1c204b8f:/word.plp
diff --git a/word.plp b/word.plp
index a3be917..909c6fd 100644
--- a/word.plp
+++ b/word.plp
@@ -30,6 +30,7 @@ my $limit = $get{v} // (exists $get{v} ? 5 : 3);
Html({
title => 'words cheat sheet',
version => '1.0',
+ lang => $lang,
description => "Visual words",
keywords => [qw'
language
@@ -78,7 +79,6 @@ my $table = Data($wordlistbase);
sub showimg {
my ($id, $name) = @_;
my ($imgname) = $name =~ m{^([^/]+)};
- $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)//gx;
($name, my @morenames) = split m{/}, $name;
$name =~ s{\( ([^/]+) \)}{$1}x;
$name .= " ($_)" for @morenames;