version 1.47, 2008/07/02 21:31:32
|
version 1.48, 2008/09/13 02:37:29
|
Line 170 use DateTime::TimeZone;
|
Line 170 use DateTime::TimeZone;
|
require Exporter; |
require Exporter; |
|
|
our @ISA = qw (Exporter); |
our @ISA = qw (Exporter); |
our @EXPORT = qw(mt mtn ns); |
our @EXPORT = qw(mt mtn ns mt_user); |
|
|
# ========================================================= The language handle |
# ========================================================= The language handle |
|
|
Line 201 sub mt (@) {
|
Line 201 sub mt (@) {
|
} |
} |
} |
} |
|
|
|
sub mt_user { |
|
my ($user_lh,@what) = @_; |
|
if ($user_lh) { |
|
if ($what[0] eq '') { |
|
if (wantarray) { |
|
return @what; |
|
} else { |
|
return $what[0]; |
|
} |
|
} else { |
|
return $user_lh->maketext(@what); |
|
} |
|
} else { |
|
if (wantarray) { |
|
return @what; |
|
} else { |
|
return $what[0]; |
|
} |
|
} |
|
} |
|
|
# ============================================================== What language? |
# ============================================================== What language? |
|
|
sub current_language { |
sub current_language { |