From: mark Date: Thu, 5 Jan 2012 20:51:22 +0000 (+0000) Subject: "use base" for compatibility X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a25b4a4f96f93c8824d9e5a02591d464848d4f75 "use base" for compatibility --- diff --git a/FS/FS/detail_format/accountcode_default.pm b/FS/FS/detail_format/accountcode_default.pm index 031cc4b90..f76c9d5c0 100644 --- 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; -use parent qw(FS::detail_format); +use base qw(FS::detail_format); 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 21b5da4db..811cf403b 100644 --- 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; -use parent qw(FS::detail_format); +use base qw(FS::detail_format); 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 33abb092f..6c73d0869 100644 --- 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; -use parent qw(FS::detail_format); +use base qw(FS::detail_format); 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 b00983de5..42e1725a1 100644 --- 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; -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' } diff --git a/FS/FS/detail_format/simple.pm b/FS/FS/detail_format/simple.pm index cb6b67265..ef927062c 100644 --- 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; -use parent qw(FS::detail_format); +use base qw(FS::detail_format); 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 5bba18d4d..82773d28c 100644 --- 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; -use parent qw(FS::detail_format); +use base qw(FS::detail_format); 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 26c11463a..1f46cd225 100644 --- 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; -use parent qw(FS::detail_format); +use base qw(FS::detail_format); 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 5597de2b2..5cf87c7f4 100644 --- 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 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 diff --git a/FS/FS/detail_format/sum_duration.pm b/FS/FS/detail_format/sum_duration.pm index 16c1de53a..4af7f0a21 100644 --- 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 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 diff --git a/FS/FS/detail_format/sum_duration_prefix.pm b/FS/FS/detail_format/sum_duration_prefix.pm index 0db62b2b1..afdc19601 100644 --- 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 parent qw(FS::detail_format); +use base qw(FS::detail_format); use List::Util qw(sum); $DEBUG = 0;