localize CDR column headings, #27276

8 files changed, 15 insertions, 23 deletions

diff --git a/FS/FS/detail_format/accountcode_default.pm b/FS/FS/detail_format/accountcode_default.pm
index f76c9d5..562a8a9 100644
--- a/FS/FS/detail_format/accountcode_default.pm
+++ b/FS/FS/detail_format/accountcode_default.pm
@@ -2,7 +2,6 @@ package FS::detail_format::accountcode_default;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Default with accountcode' }
 
@@ -12,8 +11,8 @@ sub columns {
   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,
diff --git a/FS/FS/detail_format/accountcode_simple.pm b/FS/FS/detail_format/accountcode_simple.pm
index 10a28db..5a19310 100644
--- a/FS/FS/detail_format/accountcode_simple.pm
+++ b/FS/FS/detail_format/accountcode_simple.pm
@@ -2,7 +2,6 @@ package FS::detail_format::accountcode_simple;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Simple with source' }
 
@@ -12,8 +11,8 @@ sub columns {
   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),
diff --git a/FS/FS/detail_format/basic.pm b/FS/FS/detail_format/basic.pm
index 811cf40..c45e926 100644
--- a/FS/FS/detail_format/basic.pm
+++ b/FS/FS/detail_format/basic.pm
@@ -2,7 +2,6 @@ package FS::detail_format::basic;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Basic' }
 
@@ -12,7 +11,7 @@ sub columns {
   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),
diff --git a/FS/FS/detail_format/default.pm b/FS/FS/detail_format/default.pm
index 6c73d08..44abc83 100644
--- a/FS/FS/detail_format/default.pm
+++ b/FS/FS/detail_format/default.pm
@@ -2,7 +2,6 @@ package FS::detail_format::default;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Default' }
 
@@ -12,8 +11,8 @@ sub columns {
   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),
diff --git a/FS/FS/detail_format/description_default.pm b/FS/FS/detail_format/description_default.pm
index 42e1725..7bc3ee2 100644
--- a/FS/FS/detail_format/description_default.pm
+++ b/FS/FS/detail_format/description_default.pm
@@ -2,7 +2,6 @@ package FS::detail_format::description_default;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Default with description field as destination' }
 
@@ -13,8 +12,8 @@ sub columns {
   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),
diff --git a/FS/FS/detail_format/simple.pm b/FS/FS/detail_format/simple.pm
index ef92706..9622e32 100644
--- a/FS/FS/detail_format/simple.pm
+++ b/FS/FS/detail_format/simple.pm
@@ -2,7 +2,6 @@ package FS::detail_format::simple;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Simple' }
 
@@ -12,8 +11,8 @@ sub columns {
   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),
diff --git a/FS/FS/detail_format/simple2.pm b/FS/FS/detail_format/simple2.pm
index 82773d2..d571141 100644
--- a/FS/FS/detail_format/simple2.pm
+++ b/FS/FS/detail_format/simple2.pm
@@ -2,7 +2,6 @@ package FS::detail_format::simple2;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Simple with source' }
 
@@ -12,8 +11,8 @@ sub columns {
   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,
diff --git a/FS/FS/detail_format/source_default.pm b/FS/FS/detail_format/source_default.pm
index 1f46cd2..592fd3c 100644
--- a/FS/FS/detail_format/source_default.pm
+++ b/FS/FS/detail_format/source_default.pm
@@ -2,7 +2,6 @@ package FS::detail_format::source_default;
 
 use strict;
 use base qw(FS::detail_format);
-use Date::Format qw(time2str);
 
 sub name { 'Default with source' }
 
@@ -13,8 +12,8 @@ sub columns {
   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),