[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
perl5
/
vendor_perl
/
Date
/
Language
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
đ Afar.pm
1,032 B
SET
[ EDIT ]
|
[ DEL ]
đ Amharic.pm
1,927 B
SET
[ EDIT ]
|
[ DEL ]
đ Austrian.pm
994 B
SET
[ EDIT ]
|
[ DEL ]
đ Brazilian.pm
966 B
SET
[ EDIT ]
|
[ DEL ]
đ Bulgarian.pm
2,567 B
SET
[ EDIT ]
|
[ DEL ]
đ Chinese.pm
977 B
SET
[ EDIT ]
|
[ DEL ]
đ Chinese_GB.pm
918 B
SET
[ EDIT ]
|
[ DEL ]
đ Czech.pm
1,411 B
SET
[ EDIT ]
|
[ DEL ]
đ Danish.pm
1,035 B
SET
[ EDIT ]
|
[ DEL ]
đ Dutch.pm
1,086 B
SET
[ EDIT ]
|
[ DEL ]
đ English.pm
973 B
SET
[ EDIT ]
|
[ DEL ]
đ Finnish.pm
1,239 B
SET
[ EDIT ]
|
[ DEL ]
đ French.pm
992 B
SET
[ EDIT ]
|
[ DEL ]
đ Gedeo.pm
1,064 B
SET
[ EDIT ]
|
[ DEL ]
đ German.pm
1,040 B
SET
[ EDIT ]
|
[ DEL ]
đ Greek.pm
2,826 B
SET
[ EDIT ]
|
[ DEL ]
đ Hungarian.pm
2,133 B
SET
[ EDIT ]
|
[ DEL ]
đ Icelandic.pm
1,037 B
SET
[ EDIT ]
|
[ DEL ]
đ Italian.pm
1,006 B
SET
[ EDIT ]
|
[ DEL ]
đ Norwegian.pm
1,004 B
SET
[ EDIT ]
|
[ DEL ]
đ Oromo.pm
999 B
SET
[ EDIT ]
|
[ DEL ]
đ Romanian.pm
892 B
SET
[ EDIT ]
|
[ DEL ]
đ Russian.pm
1,384 B
SET
[ EDIT ]
|
[ DEL ]
đ Russian_cp1251.pm
1,036 B
SET
[ EDIT ]
|
[ DEL ]
đ Russian_koi8r.pm
1,034 B
SET
[ EDIT ]
|
[ DEL ]
đ Sidama.pm
980 B
SET
[ EDIT ]
|
[ DEL ]
đ Somali.pm
1,155 B
SET
[ EDIT ]
|
[ DEL ]
đ Spanish.pm
922 B
SET
[ EDIT ]
|
[ DEL ]
đ Swedish.pm
1,122 B
SET
[ EDIT ]
|
[ DEL ]
đ Tigrinya.pm
1,434 B
SET
[ EDIT ]
|
[ DEL ]
đ TigrinyaEritrean.pm
1,904 B
SET
[ EDIT ]
|
[ DEL ]
đ TigrinyaEthiopian.pm
1,930 B
SET
[ EDIT ]
|
[ DEL ]
đ Turkish.pm
2,079 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: Swedish.pm
## ## Swedish tables ## Contributed by Matthew Musgrove <muskrat@mindless.com> ## Corrected by dempa ## package Date::Language::Swedish; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "1.01"; @MoY = qw(januari februari mars april maj juni juli augusti september oktober november december); @MoYs = map { substr($_,0,3) } @MoY; @DoW = map($_ . "dagen", qw(sīŋŊn mīŋŊn tis ons tors fre līŋŊr)); @DoWs = map { substr($_,0,2) } @DoW; # the ordinals are not typically used in modern times @Dsuf = ('a' x 2, 'e' x 29); use Date::Language::English (); @AMPM = @{Date::Language::English::AMPM}; @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_o { sprintf("%2de",$_[0]->[3]) } 1;