Line # Revision Author
1 3 ahitrov@rambler.ru --- DateTime/Locale/ru_RU_KOI8_R.pm.old 1970-01-01 03:00:00.000000000 +0300
2 +++ DateTime/Locale/ru_RU_KOI8_R.pm 2007-01-16 12:18:53.000000000 +0300
3 @@ -0,0 +1,119 @@
4 +package DateTime::Locale::ru_RU_KOI8_R;
5 +
6 +use strict;
7 +use DateTime::Locale::Base;
8 +
9 +@DateTime::Locale::ru_RU_KOI8_R::ISA = qw(DateTime::Locale::Base);
10 +
11 +my @day_names = (
12 +"�����������",
13 +"�������",
14 +"�����",
15 +"�������",
16 +"�������",
17 +"�������",
18 +"�����������",
19 +);
20 +
21 +my @day_abbreviations = (
22 +"��",
23 +"��",
24 +"��",
25 +"��",
26 +"��",
27 +"��",
28 +"��",
29 +);
30 +
31 +my @day_narrows = (
32 +"�",
33 +"�",
34 +"�",
35 +"�",
36 +"�",
37 +"�",
38 +"�",
39 +);
40 +
41 +my @month_names = (
42 +"������",
43 +"�������",
44 +"�����",
45 +"������",
46 +"���",
47 +"����",
48 +"����",
49 +"�������",
50 +"��������",
51 +"�������",
52 +"������",
53 +"�������",
54 +);
55 +
56 +my @month_abbreviations = (
57 +"������",
58 +"�������",
59 +"����",
60 +"������",
61 +"���",
62 +"����",
63 +"����",
64 +"������",
65 +"��������",
66 +"�������",
67 +"������",
68 +"�������",
69 +);
70 +
71 +my @month_narrows = (
72 +"�",
73 +"�",
74 +"�",
75 +"�",
76 +"�",
77 +"�",
78 +"�",
79 +"�",
80 +"�",
81 +"�",
82 +"�",
83 +"�",
84 +);
85 +
86 +my @am_pms = (
87 +"AM",
88 +"PM",
89 +);
90 +
91 +my @eras = (
92 +"��\ �\.�\.",
93 +"�\.�\.",
94 +);
95 +
96 +my $date_before_time = "1";
97 +my $default_date_format_length = "medium";
98 +my $default_time_format_length = "medium";
99 +my $date_parts_order = "dmy";
100 +
101 +sub day_names { \@day_names }
102 +sub day_abbreviations { \@day_abbreviations }
103 +sub day_narrows { \@day_narrows }
104 +sub month_names { \@month_names }
105 +sub month_abbreviations { \@month_abbreviations }
106 +sub month_narrows { \@month_narrows }
107 +sub am_pms { \@am_pms }
108 +sub eras { \@eras }
109 +sub full_date_format { "\%A\,\ \%\{ce_year\}\ \%B\ \%d" }
110 +sub long_date_format { "\%\{ce_year\}\ \%B\ \%\{day\}" }
111 +sub medium_date_format { "\%\{ce_year\}\ \%b\ \%\{day\}" }
112 +sub short_date_format { "\%y\/\%m\/\%d" }
113 +sub full_time_format { "\%H\:\%M\:\%S\ \%\{time_zone_long_name\}" }
114 +sub long_time_format { "\%H\:\%M\:\%S\ \%\{time_zone_long_name\}" }
115 +sub medium_time_format { "\%H\:\%M\:\%S" }
116 +sub short_time_format { "\%H\:\%M" }
117 +sub date_before_time { $date_before_time }
118 +sub _default_date_format_length { $default_date_format_length }
119 +sub _default_time_format_length { $default_time_format_length }
120 +sub date_parts_order { $date_parts_order }
121 +
122 +1;