## Contributed by Honza Pazdziora
package Date
::Language
::Czech
;
use vars
qw(@ISA @DoW @DoWs @MoY @MoYs @MoY2 @AMPM %MoY %DoW $VERSION);
@ISA = qw(Date::Language Date::Format::Generic);
@MoY = qw(leden únor bøezen duben kvìten èerven èervenec srpen záøí
øíjen listopad prosinec);
@MoYs = qw(led únor bøe dub kvì èvn èec srp záøí øíj lis pro);
{ s!en$!na! or s!ec$!ce! or s!ad$!adu! or s!or$!ora!; }
@DoW = qw(nedìle pondìlí úterý støeda ètvrtek pátek sobota);
@DoWs = qw(Ne Po Út St Èt Pá So);
@MoY{@MoY} = (0 .. scalar(@MoY));
@MoY{@MoYs} = (0 .. scalar(@MoYs));
@DoW{@DoW} = (0 .. scalar(@DoW));
@DoW{@DoWs} = (0 .. scalar(@DoWs));
sub format_a
{ $DoWs[$_[0]->[6]] }
sub format_A
{ $DoW[$_[0]->[6]] }
sub format_b
{ $MoYs[$_[0]->[4]] }
sub format_B
{ $MoY[$_[0]->[4]] }
sub format_h
{ $MoYs[$_[0]->[4]] }
sub format_p
{ $_[0]->[2] >= 12 ?
$AMPM[1] : $AMPM[0] }
sub format_d
{ $_[0]->[3] }
sub format_m
{ $_[0]->[4] + 1 }
sub format_o
{ $_[0]->[3] . '.' }
sub format_Q
{ $MoY2[$_[0]->[4]] }
$a[0] =~ s/(%[do]\.?\s?)%B/$1%Q/;
$ref->SUPER::time2str
(@a);
$a[0] =~ s/(%[do]\.?\s?)%B/$1%Q/;
$ref->SUPER::time2str
(@a);