/[bibulus]/bibulus/Bibulus/language.pm
ViewVC logotype

Diff of /bibulus/Bibulus/language.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26