X7ROOT File Manager
Current Path:
/usr/local/share/perl5/Date/Language
usr
/
local
/
share
/
perl5
/
Date
/
Language
/
??
..
??
Afar.pm
(1.01 KB)
??
Amharic.pm
(1.88 KB)
??
Austrian.pm
(994 B)
??
Brazilian.pm
(966 B)
??
Bulgarian.pm
(2.51 KB)
??
Chinese.pm
(977 B)
??
Chinese_GB.pm
(918 B)
??
Czech.pm
(1.38 KB)
??
Danish.pm
(1.01 KB)
??
Dutch.pm
(1.06 KB)
??
English.pm
(973 B)
??
Finnish.pm
(1.21 KB)
??
French.pm
(1020 B)
??
Gedeo.pm
(1.04 KB)
??
German.pm
(1.02 KB)
??
Greek.pm
(2.76 KB)
??
Hungarian.pm
(2.08 KB)
??
Icelandic.pm
(1.01 KB)
??
Italian.pm
(1006 B)
??
Norwegian.pm
(1004 B)
??
Occitan.pm
(964 B)
??
Oromo.pm
(999 B)
??
Romanian.pm
(892 B)
??
Russian.pm
(1.35 KB)
??
Russian_cp1251.pm
(1.01 KB)
??
Russian_koi8r.pm
(1.01 KB)
??
Sidama.pm
(980 B)
??
Somali.pm
(1.13 KB)
??
Spanish.pm
(922 B)
??
Swedish.pm
(1.1 KB)
??
Tigrinya.pm
(1.4 KB)
??
TigrinyaEritrean.pm
(1.86 KB)
??
TigrinyaEthiopian.pm
(1.88 KB)
??
Turkish.pm
(2.03 KB)
Editing: Oromo.pm
## ## Oromo tables ## package Date::Language::Oromo; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "0.99"; @DoW = qw(Dilbata Wiixata Qibxata Roobii Kamiisa Jimaata Sanbata); @MoY = qw(Amajjii Guraandhala Bitooteessa Elba Caamsa Waxabajjii Adooleessa Hagayya Fuulbana Onkololeessa Sadaasa Muddee); @DoWs = map { substr($_,0,3) } @DoW; @MoYs = map { substr($_,0,3) } @MoY; @AMPM = qw(WD WB); @Dsuf = (qw(th st nd rd th th th th th th)) x 3; @Dsuf[11,12,13] = qw(th th th); @Dsuf[30,31] = qw(th st); @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] } 1;
Upload File
Create Folder