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: Gedeo.pm
## ## Gedeo tables ## package Date::Language::Gedeo; 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( Sanbbattaa Sanno Masano Roobe Hamusse Arbe Qiddamme); @MoY = ( "Oritto", "Birre'a", "Onkkollessa", "Saddasa", "Arrasa", "Qammo", "Ella", "Waacibajje", "Canissa", "Addolessa", "Bittitotessa", "Hegeya" ); @DoWs = map { substr($_,0,3) } @DoW; $DoWs[0] = "Snb"; $DoWs[1] = "Sno"; @MoYs = map { substr($_,0,3) } @MoY; @AMPM = qw(gorsa warreti-udumma); @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