Parent Directory | Revision Log | Patch
revision 1.3 by twid, Mon Jul 21 12:52:42 2003 UTC | revision 1.4 by twid, Mon Sep 8 21:44:58 2003 UTC | |
---|---|---|
# | Line 20 sub lang { | Line 20 sub lang { |
20 | ||
21 | if (@_) { | if (@_) { |
22 | my $l = shift; | my $l = shift; |
23 | ||
24 | # Some language codes are aliases or indicate a group of | |
25 | # languages. Such codes should be translated to something | |
26 | # more usable. | |
27 | $l = 'nb' if $l eq 'no'; | |
28 | ||
29 | $self->{LANG} = $l; | $self->{LANG} = $l; |
30 | } | } |
31 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |