sub locale_info {
my($class, $locale) = @_;
- %{ $locales{$locale} };
+ if (!$locale) {
+ return ();
+ } elsif (exists $locales{$locale}) {
+ return %{ $locales{$locale} };
+ } else {
+ die "unsupported locale '$locale'\n";
+ }
}
=item description LOCALE
use FS::Conf;
use FS::cdr;
use FS::cust_bill_pkg_detail;
-use Date::Format qw(time2str);
+use FS::L10N;
+use Date::Language;
use Text::CSV_XS;
my $me = '[FS::detail_format]';
rated_price, rated_seconds, rated_minutes, and svcnum. This can be
changed with the C<inbound> method.
+- locale: a locale string to use for static text and date formats. This
+ is optional.
+
=cut
sub new {
die "$me error loading $class: $@" if $@;
my %opt = @_;
- my $self = { conf => FS::Conf->new,
+ my $locale = $opt{'locale'} || '';
+ my $conf = FS::Conf->new(locale => $locale);
+ $locale ||= $conf->config('locale') || 'en_US';
+
+ my %locale_info = FS::Locales->locale_info($locale);
+ my $language_name = $locale_info{'name'};
+
+ my $self = { conf => FS::Conf->new(locale => $locale),
csv => Text::CSV_XS->new,
inbound => ($opt{'inbound'} ? 1 : 0),
buffer => ($opt{'buffer'} || []),
- };
+ _lh => FS::L10N->get_handle($locale),
+ _dh => eval { Date::Language->new($language_name) } ||
+ Date::Language->new()
+ };
bless $self, $class;
}
my $self = shift;
FS::cust_bill_pkg_detail->new(
- { 'format' => 'C', 'detail' => $self->header_detail }
+ { 'format' => 'C', 'detail' => $self->mt($self->header_detail) }
)
}
$self->{money_char} ||= ($self->conf->config('money_char') || '$');
}
+# localization methods
+
+sub time2str_local {
+ my $self = shift;
+ $self->{_dh}->time2str(@_);
+}
+
+sub mt {
+ my $self = shift;
+ $self->{_lh}->maketext(@_);
+}
+
#imitate previous behavior for now
sub duration {
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Default with accountcode' }
my $self = shift;
my $cdr = shift;
(
- time2str($self->date_format, $cdr->startdate),
- time2str('%r', $cdr->startdate),
+ $self->time2str_local($self->date_format, $cdr->startdate),
+ $self->time2str_local('%r', $cdr->startdate),
$cdr->accountcode,
($cdr->rated_pretty_dst || $cdr->dst),
$cdr->rated_regionname,
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Simple with source' }
my $self = shift;
my $cdr = shift;
(
- time2str($self->date_format, $cdr->startdate),
- time2str('%r', $cdr->startdate),
+ $self->time2str_local($self->date_format, $cdr->startdate),
+ $self->time2str_local('%r', $cdr->startdate),
$cdr->src,
$cdr->accountcode,
$self->duration($cdr),
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Basic' }
my $self = shift;
my $cdr = shift;
(
- time2str('%d %b - %I:%M %p', $cdr->startdate),
+ $self->time2str_local('%d %b - %I:%M %p', $cdr->startdate),
$cdr->dst,
$self->duration($cdr),
$self->price($cdr),
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Default' }
my $self = shift;
my $cdr = shift;
(
- time2str($self->date_format, $cdr->startdate),
- time2str('%r', $cdr->startdate),
+ $self->time2str_local($self->date_format, $cdr->startdate),
+ $self->time2str_local('%r', $cdr->startdate),
($cdr->rated_pretty_dst || $cdr->dst),
$cdr->rated_regionname,
$self->duration($cdr),
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Default with description field as destination' }
my $cdr = shift;
(
$cdr->src,
- time2str($self->date_format, $cdr->startdate),
- time2str('%r', $cdr->startdate),
+ $self->time2str_local($self->date_format, $cdr->startdate),
+ $self->time2str_local('%r', $cdr->startdate),
($cdr->rated_pretty_dst || $cdr->dst),
$cdr->description,
$self->duration($cdr),
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Simple' }
my $self = shift;
my $cdr = shift;
(
- time2str($self->date_format, $cdr->startdate),
- time2str('%r', $cdr->startdate),
+ $self->time2str_local($self->date_format, $cdr->startdate),
+ $self->time2str_local('%r', $cdr->startdate),
$cdr->userfield,
$cdr->dst,
$self->duration($cdr),
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Simple with source' }
my $self = shift;
my $cdr = shift;
(
- time2str($self->date_format, $cdr->startdate),
- time2str('%r', $cdr->startdate),
+ $self->time2str_local($self->date_format, $cdr->startdate),
+ $self->time2str_local('%r', $cdr->startdate),
$cdr->userfield,
$cdr->src,
$cdr->dst,
use strict;
use base qw(FS::detail_format);
-use Date::Format qw(time2str);
sub name { 'Default with source' }
my $cdr = shift;
(
$cdr->src,
- time2str($self->date_format, $cdr->startdate),
- time2str('%r', $cdr->startdate),
+ $self->time2str_local($self->date_format, $cdr->startdate),
+ $self->time2str_local('%r', $cdr->startdate),
($cdr->rated_pretty_dst || $cdr->dst),
$cdr->rated_regionname,
$self->duration($cdr),
my $usage_showzero = $self->option('usage_showzero', 1);
- my $formatter = FS::detail_format->new($output_format, buffer => $details);
+ my $formatter = FS::detail_format->new($output_format,
+ buffer => $details,
+ locale => $cust_pkg->cust_main->locale
+ );
my $use_duration = $self->option('use_duration');
my $output_format = $self->option('output_format', 1) || 'default';
my $formatter =
- FS::detail_format->new($output_format, buffer => $details, inbound => 1);
+ FS::detail_format->new($output_format,
+ buffer => $details,
+ inbound => 1,
+ locale => $cust_pkg->cust_main->locale
+ );
my $granularity = length($self->option('sec_granularity'))
? $self->option('sec_granularity')