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) }
)
}
die "$me error combining ".$self->csv->error_input."\n"
if !$status;
+ my $object = $self->{inbound} ? $cdr->cdr_termination(1) : $cdr;
+ my $price = $object->rated_price if $object;
+ $price = 0 if $cdr->freesidestatus eq 'no-charge';
+
FS::cust_bill_pkg_detail->new( {
- 'amount' => $cdr->rated_price,
+ 'amount' => $price,
'classnum' => $cdr->rated_classnum,
'duration' => $cdr->rated_seconds,
'regionname' => $cdr->rated_regionname,
$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 {
my $cdr = shift;
my $object = $self->{inbound} ? $cdr->cdr_termination(1) : $cdr;
my $sec = $object->rated_seconds if $object;
+ $sec ||= 0;
# XXX termination objects don't have rated_granularity so this may
# result in inbound CDRs being displayed as min/sec when they shouldn't.
# Should probably fix this.
my $cdr = shift;
my $object = $self->{inbound} ? $cdr->cdr_termination(1) : $cdr;
my $price = $object->rated_price if $object;
+ $price = '0.00' if $object->freesidestatus eq 'no-charge';
length($price) ? $self->money_char . $price : '';
}