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; |