version 1.1028.2.1, 2011/12/26 13:47:18
|
version 1.1028.2.2, 2011/12/27 19:47:02
|
Line 154 sub ssi_with_retries {
|
Line 154 sub ssi_with_retries {
|
# ----------------------------------------------- Filetypes/Languages/Copyright |
# ----------------------------------------------- Filetypes/Languages/Copyright |
my %language; |
my %language; |
my %supported_language; |
my %supported_language; |
my %latex_language; # Language name LaTeX uses for selecting hyphenation. |
my %latex_language; # For choosing hyphenation in <transl..> |
|
my %latex_language_bykey; # for choosing hyphenation from metadata |
my %cprtag; |
my %cprtag; |
my %scprtag; |
my %scprtag; |
my %fe; my %fd; my %fm; |
my %fe; my %fd; my %fm; |
Line 193 BEGIN {
|
Line 194 BEGIN {
|
$supported_language{$key}=$sup; |
$supported_language{$key}=$sup; |
} |
} |
if ($latex) { |
if ($latex) { |
|
$latex_language_bykey{$key} = $latex; |
$latex_language{$two} = $latex; |
$latex_language{$two} = $latex; |
} |
} |
} |
} |
Line 3278 sub latexlanguage {
|
Line 3280 sub latexlanguage {
|
} |
} |
|
|
=pod |
=pod |
|
|
|
=item * &latexhyphenation() |
|
|
|
Same as above but what's supplied is the language as it might be stored |
|
in the metadata. |
|
|
|
=cut |
|
|
|
sub latexhyphenation { |
|
my $key = shift; |
|
return $latex_language_bykey{$key}; |
|
} |
|
|
|
=pod |
|
|
=item * ©rightids() |
=item * ©rightids() |
|
|