Admin

name	type	size	perms	modified	actions
[parent directory]
Afar.pm	file	1,032 B	0644	2009-02-23 21:34:32	edit
Amharic.pm	file	1,927 B	0644	2009-02-23 21:34:32	edit
Austrian.pm	file	994 B	0644	2009-12-12 12:30:06	edit
Brazilian.pm	file	966 B	0644	2009-02-23 21:34:32	edit
Bulgarian.pm	file	2,567 B	0644	2020-05-19 17:30:43	edit
Chinese.pm	file	977 B	0644	2009-12-12 12:30:06	edit
Chinese_GB.pm	file	918 B	0644	2009-02-23 21:34:32	edit
Czech.pm	file	1,411 B	0644	2009-02-23 21:34:32	edit
Danish.pm	file	1,035 B	0644	2009-12-12 12:30:06	edit
Dutch.pm	file	1,086 B	0644	2009-02-23 21:34:32	edit
English.pm	file	973 B	0644	2009-02-23 21:34:32	edit
Finnish.pm	file	1,239 B	0644	2009-02-23 21:34:32	edit
French.pm	file	1,020 B	0644	2020-05-19 17:30:43	edit
Gedeo.pm	file	1,064 B	0644	2009-02-23 21:34:32	edit
German.pm	file	1,040 B	0644	2009-12-12 12:30:06	edit
Greek.pm	file	2,826 B	0644	2009-02-23 21:34:32	edit
Hungarian.pm	file	2,133 B	0644	2009-12-12 12:30:06	edit
Icelandic.pm	file	1,037 B	0644	2009-12-12 12:30:06	edit
Italian.pm	file	1,006 B	0644	2009-12-12 12:30:06	edit
Norwegian.pm	file	1,004 B	0644	2009-12-12 12:30:06	edit
Occitan.pm	file	964 B	0644	2020-05-19 17:30:43	edit
Oromo.pm	file	999 B	0644	2009-02-23 21:34:32	edit
Romanian.pm	file	892 B	0644	2009-12-12 12:30:06	edit
Russian.pm	file	1,384 B	0644	2009-12-12 12:30:06	edit
Russian_cp1251.pm	file	1,036 B	0644	2009-12-12 12:30:06	edit
Russian_koi8r.pm	file	1,034 B	0644	2009-12-12 12:30:06	edit
Sidama.pm	file	980 B	0644	2009-02-23 21:34:32	edit
Somali.pm	file	1,155 B	0644	2009-02-23 21:34:32	edit
Spanish.pm	file	922 B	0644	2009-12-12 12:27:24	edit
Swedish.pm	file	1,122 B	0644	2009-12-12 12:30:06	edit
Tigrinya.pm	file	1,434 B	0644	2009-12-12 12:30:06	edit
TigrinyaEritrean.pm	file	1,904 B	0644	2009-02-23 21:34:32	edit
TigrinyaEthiopian.pm	file	1,930 B	0644	2009-02-23 21:34:32	edit
Turkish.pm	file	2,079 B	0644	2009-12-12 12:30:06	edit

editing: Russian.pm

##
## Russian tables
##
## Contributed by Danil Pismenny <dapi@mail.ru>

package Date::Language::Russian;

use vars qw(@ISA @DoW @DoWs @MoY @MoYs @MoY2 @AMPM %MoY %DoW $VERSION);
@ISA = qw(Date::Language Date::Format::Generic);
$VERSION = "1.01";

@MoY = qw(����� ������ ��� ������ �� ��� ��� ������ �������� ������� ������ ������);
@MoY2 = qw(����� ������ ��� ������ �� ��� ��� ������ �������� ������� ������ ������);
@MoYs = qw(��� ��� ��� ��� �� �� �� ��� ��� ��� ��� ���);

@DoW = qw(����������� ������� ���� ������� ������ ������ �����������);
@DoWs = qw(�� �� �� �� �� �� ��);
@DoWs2 = qw(��� ��� ��� ��� ��� ��� ���);

@AMPM = qw(�� ��);

@MoY{@MoY}  = (0 .. scalar(@MoY));
@MoY{@MoYs} = (0 .. scalar(@MoYs));
@DoW{@DoW}  = (0 .. scalar(@DoW));
@DoW{@DoWs} = (0 .. scalar(@DoWs));

# Formatting routines

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]] }

sub str2time {
  my ($self,$value) = @_;
  map {$value=~s/(\s|^)$DoWs2[$_](\s)/$DoWs[$_]$2/ig} (0..6);
  $value=~s/(\s+|^)��(\s+)/$1���$2/;
  return $self->SUPER::str2time($value);
}

cancel