package Bibulus::Lang::da; use strict; use warnings; use Carp; sub yearonly { my ($year) = @_; return $year; } sub ibid { return 'ibid.'; } sub and { return 'og'; } sub etal { return 'et al.'; } sub editors { return 'redaktører' ;#!abbr_ed; } sub edby { return 'redigeret af'; } sub edition { return 'udgave'; #!abbr_wd; } sub volume { return 'bd.;abbr_wd'; } sub of { # as in 'volume three OF five' return 'af'; } sub number { return 'nummer'; #!abbr_wd'; } sub in { return 'i'; } #sub pages sub page { return 'side' #;!abbr_pp'; } sub eidpp { return 'sider'; } sub chapter { return 'kapitel'; #;!abbr_wd'; } sub techrep { return 'Teknisk rapport'; #!abbr_wd'; } sub techrep { return 'Tekn. rap.'; #abbr_wd'; } sub mthesis { return 'Speciale'; } sub phdthesis { return 'ph.d.-afhandling'; } sub month { my ($month) = @_; return qw(januar februar marts april maj juni juli august september oktober november december)[$month - 1]; } sub ordinal { my $self = shift; my ($number, $counted) = @_; # $counted is whatever is counted if ($self->{ORDABBR}) { return $number . '.'; } # return number as word if ($number < 20) { return qw(første anden tredie fjerde femte sjette syvende ottende niende tiende ellevte tolvte trettende fjortende femtende sekstende syttende attende nittende)[$number - 1]; } elsif ($number < 100) { my ($ten, $one) = (int($number / 10), $number % 10); my $res; $res = ('', 'enog', 'toog', 'treog', 'fireog', 'femog', 'seksog', 'syvog', 'otteog', 'niog')[$one]; $ten -= 2; return $res . qw(tyvende tredivte fyrretyvende halvtredsindstyvende tresindstyvende halvfjerdsindstyvende firsindstyvende halvfemsindstyvende)[$ten]; } else { warn "I don't know how to say $number"."th in Danish"; return $number . '.'; } } 1; __END__ =head1 NAME Bibulus::Lang::da - Bibulus support for Danish =head1 SYNOPSIS Bibulus::Lang::da - Bibulus support for Danish =head1 DESCRIPTION use Bibulus::Lang; my $lang = new Bibulus::Lang; $lang->lang('da'); # sets language to Danish print $lang->mastersthesis; # returns 'speciale' =head2 EXPORT None. =head1 SEE ALSO F. The homepage is L. =head1 AUTHOR Thomas M. Widmann, L =head1 COPYRIGHT AND LICENSE Copyright 2003 by Thomas M. Widmann This module is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =cut