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;