"use base" for compatibility

diff --git a/FS/FS/detail_format/accountcode_default.pm b/FS/FS/detail_format/accountcode_default.pm
index 031cc4b..f76c9d5 100644 (file)
--- a/FS/FS/detail_format/accountcode_default.pm
+++ b/FS/FS/detail_format/accountcode_default.pm
@@ -1,7 +1,7 @@
 package FS::detail_format::accountcode_default;
 
 use strict;
 package FS::detail_format::accountcode_default;
 
 use strict;

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use Date::Format qw(time2str);
 
 sub name { 'Default with accountcode' }
 use Date::Format qw(time2str);
 
 sub name { 'Default with accountcode' }

diff --git a/FS/FS/detail_format/basic.pm b/FS/FS/detail_format/basic.pm
index 21b5da4..811cf40 100644 (file)
--- a/FS/FS/detail_format/basic.pm
+++ b/FS/FS/detail_format/basic.pm
@@ -1,7 +1,7 @@
 package FS::detail_format::basic;
 
 use strict;
 package FS::detail_format::basic;
 
 use strict;

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use Date::Format qw(time2str);
 
 sub name { 'Basic' }
 use Date::Format qw(time2str);
 
 sub name { 'Basic' }

diff --git a/FS/FS/detail_format/default.pm b/FS/FS/detail_format/default.pm
index 33abb09..6c73d08 100644 (file)
--- a/FS/FS/detail_format/default.pm
+++ b/FS/FS/detail_format/default.pm
@@ -1,7 +1,7 @@
 package FS::detail_format::default;
 
 use strict;
 package FS::detail_format::default;
 
 use strict;

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use Date::Format qw(time2str);
 
 sub name { 'Default' }
 use Date::Format qw(time2str);
 
 sub name { 'Default' }

diff --git a/FS/FS/detail_format/description_default.pm b/FS/FS/detail_format/description_default.pm
index b00983d..42e1725 100644 (file)
--- a/FS/FS/detail_format/description_default.pm
+++ b/FS/FS/detail_format/description_default.pm
@@ -1,7 +1,7 @@
 package FS::detail_format::description_default;
 
 use strict;
 package FS::detail_format::description_default;
 
 use strict;

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use Date::Format qw(time2str);
 
 sub name { 'Default with description field as destination' }
 use Date::Format qw(time2str);
 
 sub name { 'Default with description field as destination' }

diff --git a/FS/FS/detail_format/simple.pm b/FS/FS/detail_format/simple.pm
index cb6b672..ef92706 100644 (file)
--- a/FS/FS/detail_format/simple.pm
+++ b/FS/FS/detail_format/simple.pm
@@ -1,7 +1,7 @@
 package FS::detail_format::simple;
 
 use strict;
 package FS::detail_format::simple;
 
 use strict;

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use Date::Format qw(time2str);
 
 sub name { 'Simple' }
 use Date::Format qw(time2str);
 
 sub name { 'Simple' }

diff --git a/FS/FS/detail_format/simple2.pm b/FS/FS/detail_format/simple2.pm
index 5bba18d..82773d2 100644 (file)
--- a/FS/FS/detail_format/simple2.pm
+++ b/FS/FS/detail_format/simple2.pm
@@ -1,7 +1,7 @@
 package FS::detail_format::simple2;
 
 use strict;
 package FS::detail_format::simple2;
 
 use strict;

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use Date::Format qw(time2str);
 
 sub name { 'Simple with source' }
 use Date::Format qw(time2str);
 
 sub name { 'Simple with source' }

diff --git a/FS/FS/detail_format/source_default.pm b/FS/FS/detail_format/source_default.pm
index 26c1146..1f46cd2 100644 (file)
--- a/FS/FS/detail_format/source_default.pm
+++ b/FS/FS/detail_format/source_default.pm
@@ -1,7 +1,7 @@
 package FS::detail_format::source_default;
 
 use strict;
 package FS::detail_format::source_default;
 
 use strict;

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use Date::Format qw(time2str);
 
 sub name { 'Default with source' }
 use Date::Format qw(time2str);
 
 sub name { 'Default with source' }

diff --git a/FS/FS/detail_format/sum_count.pm b/FS/FS/detail_format/sum_count.pm
index 5597de2..5cf87c7 100644 (file)
--- a/FS/FS/detail_format/sum_count.pm
+++ b/FS/FS/detail_format/sum_count.pm
@@ -2,7 +2,7 @@ package FS::detail_format::sum_count;
 
 use strict;
 use vars qw( $DEBUG );
 
 use strict;
 use vars qw( $DEBUG );

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use FS::Record qw(qsearchs);
 use FS::cust_svc;
 use FS::svc_Common; # for label
 use FS::Record qw(qsearchs);
 use FS::cust_svc;
 use FS::svc_Common; # for label

diff --git a/FS/FS/detail_format/sum_duration.pm b/FS/FS/detail_format/sum_duration.pm
index 16c1de5..4af7f0a 100644 (file)
--- a/FS/FS/detail_format/sum_duration.pm
+++ b/FS/FS/detail_format/sum_duration.pm
@@ -2,7 +2,7 @@ package FS::detail_format::sum_duration;
 
 use strict;
 use vars qw( $DEBUG );
 
 use strict;
 use vars qw( $DEBUG );

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use FS::Record qw(qsearchs);
 use FS::cust_svc;
 use FS::svc_Common; # for label
 use FS::Record qw(qsearchs);
 use FS::cust_svc;
 use FS::svc_Common; # for label

diff --git a/FS/FS/detail_format/sum_duration_prefix.pm b/FS/FS/detail_format/sum_duration_prefix.pm
index 0db62b2..afdc196 100644 (file)
--- a/FS/FS/detail_format/sum_duration_prefix.pm
+++ b/FS/FS/detail_format/sum_duration_prefix.pm
@@ -2,7 +2,7 @@ package FS::detail_format::sum_duration_prefix;
 
 use strict;
 use vars qw( $DEBUG );
 
 use strict;
 use vars qw( $DEBUG );

-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);

 use List::Util qw(sum);
 
 $DEBUG = 0;
 use List::Util qw(sum);
 
 $DEBUG = 0;