1##
2## Czech tables
3##
4## Contributed by Honza Pazdziora
5
6package Date::Language::Czech;
7
8use vars qw(@ISA @DoW @DoWs @MoY @MoYs @MoY2 @AMPM %MoY %DoW $VERSION);
9@ISA = qw(Date::Language Date::Format::Generic);
10$VERSION = "1.01";
11
12@MoY = qw(leden �nor b�ezen duben kv�ten �erven �ervenec srpen z���
13	      ��jen listopad prosinec);
14@MoYs = qw(led �nor b�e dub kv� �vn �ec srp z��� ��j lis pro);
15@MoY2 = @MoY;
16for (@MoY2)
17      { s!en$!na! or s!ec$!ce! or s!ad$!adu! or s!or$!ora!; }
18
19@DoW = qw(ned�le pond�l� �ter� st�eda �tvrtek p�tek sobota);
20@DoWs = qw(Ne Po �t St �t P� So);
21
22@AMPM = qw(dop. odp.);
23
24@MoY{@MoY}  = (0 .. scalar(@MoY));
25@MoY{@MoYs} = (0 .. scalar(@MoYs));
26@DoW{@DoW}  = (0 .. scalar(@DoW));
27@DoW{@DoWs} = (0 .. scalar(@DoWs));
28
29# Formatting routines
30
31sub format_a { $DoWs[$_[0]->[6]] }
32sub format_A { $DoW[$_[0]->[6]] }
33sub format_b { $MoYs[$_[0]->[4]] }
34sub format_B { $MoY[$_[0]->[4]] }
35sub format_h { $MoYs[$_[0]->[4]] }
36sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }
37
38sub format_d { $_[0]->[3] }
39sub format_m { $_[0]->[4] + 1 }
40sub format_o { $_[0]->[3] . '.' }
41
42sub format_Q { $MoY2[$_[0]->[4]] }
43
44sub time2str {
45      my $ref = shift;
46      my @a = @_;
47      $a[0] =~ s/(%[do]\.?\s?)%B/$1%Q/;
48      $ref->SUPER::time2str(@a);
49      }
50
51sub strftime {
52      my $ref = shift;
53      my @a = @_;
54      $a[0] =~ s/(%[do]\.?\s?)%B/$1%Q/;
55      $ref->SUPER::time2str(@a);
56      }
57
581;
59