[freeside-commits] freeside/FS/FS/part_pkg delayed_Mixin.pm, 1.1.2.3, 1.1.2.4 discount_Mixin.pm, 1.8.2.1, 1.8.2.2 flat.pm, 1.65.2.1, 1.65.2.2 global_Mixin.pm, 1.1, 1.1.4.1 prorate_Mixin.pm, 1.15, 1.15.2.1 sql_external.pm, 1.15, 1.15.2.1 usage_Mixin.pm, 1.1, 1.1.4.1

Ivan,,, ivan at wavetail.420.am
Thu Sep 8 15:09:59 PDT 2011


Update of /home/cvs/cvsroot/freeside/FS/FS/part_pkg
In directory wavetail.420.am:/tmp/cvs-serv20614

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	delayed_Mixin.pm discount_Mixin.pm flat.pm global_Mixin.pm 
	prorate_Mixin.pm sql_external.pm usage_Mixin.pm 
Log Message:
fix mixin inheritence preventing prorate_delayed packages from billing, RT#14372

Index: prorate_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/prorate_Mixin.pm,v
retrieving revision 1.15
retrieving revision 1.15.2.1
diff -u -w -d -r1.15 -r1.15.2.1
--- prorate_Mixin.pm	17 Jun 2011 09:47:04 -0000	1.15
+++ prorate_Mixin.pm	8 Sep 2011 22:09:57 -0000	1.15.2.1
@@ -1,10 +1,9 @@
 package FS::part_pkg::prorate_Mixin;
 
 use strict;
-use vars qw(@ISA %info);
+use vars qw( %info );
 use Time::Local qw(timelocal);
 
- at ISA = qw(FS::part_pkg);
 %info = ( 
   'disabled'  => 1,
   # define all fields that are referenced in this code

Index: usage_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/usage_Mixin.pm,v
retrieving revision 1.1
retrieving revision 1.1.4.1
diff -u -w -d -r1.1 -r1.1.4.1
--- usage_Mixin.pm	24 Dec 2010 09:49:32 -0000	1.1
+++ usage_Mixin.pm	8 Sep 2011 22:09:57 -0000	1.1.4.1
@@ -1,10 +1,8 @@
 package FS::part_pkg::usage_Mixin;
 
 use strict;
-use vars qw( @ISA %info );
-use FS::part_pkg;
+use vars qw( %info );
 use FS::UI::bytecount;
- at ISA = qw(FS::part_pkg);
 
 # Field definitions for time and data usage, other than CDRs.
 

Index: sql_external.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sql_external.pm,v
retrieving revision 1.15
retrieving revision 1.15.2.1
diff -u -w -d -r1.15 -r1.15.2.1
--- sql_external.pm	17 Jun 2011 09:47:04 -0000	1.15
+++ sql_external.pm	8 Sep 2011 22:09:57 -0000	1.15.2.1
@@ -1,7 +1,7 @@
 package FS::part_pkg::sql_external;
+use base qw( FS::part_pkg::discount_Mixin FS::part_pkg::recur_Common );
 
 use strict;
-use base qw( FS::part_pkg::recur_Common FS::part_pkg::discount_Mixin );
 use vars qw( %info );
 use DBI;
 #use FS::Record qw(qsearch qsearchs);

Index: delayed_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/delayed_Mixin.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -w -d -r1.1.2.3 -r1.1.2.4
--- delayed_Mixin.pm	11 Aug 2011 00:38:13 -0000	1.1.2.3
+++ delayed_Mixin.pm	8 Sep 2011 22:09:56 -0000	1.1.2.4
@@ -1,5 +1,4 @@
 package FS::part_pkg::delayed_Mixin;
-use base qw( FS::part_pkg );
 
 use strict;
 use vars qw(%info);

Index: flat.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat.pm,v
retrieving revision 1.65.2.1
retrieving revision 1.65.2.2
diff -u -w -d -r1.65.2.1 -r1.65.2.2
--- flat.pm	11 Aug 2011 00:38:13 -0000	1.65.2.1
+++ flat.pm	8 Sep 2011 22:09:57 -0000	1.65.2.2
@@ -1,14 +1,13 @@
 package FS::part_pkg::flat;
-
-use strict;
-use base qw( FS::part_pkg 
-             FS::part_pkg::prorate_Mixin
+use base qw( FS::part_pkg::prorate_Mixin
              FS::part_pkg::discount_Mixin
+             FS::part_pkg
            );
+
+use strict;
 use vars qw( %info %usage_recharge_fields @usage_recharge_fieldorder );
 use Tie::IxHash;
-use List::Util qw(min); # max);
-#use FS::Record qw(qsearch);
+use List::Util qw( min );
 use FS::UI::bytecount;
 use FS::Conf;
 

Index: global_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/global_Mixin.pm,v
retrieving revision 1.1
retrieving revision 1.1.4.1
diff -u -w -d -r1.1 -r1.1.4.1
--- global_Mixin.pm	24 Dec 2010 09:49:32 -0000	1.1
+++ global_Mixin.pm	8 Sep 2011 22:09:57 -0000	1.1.4.1
@@ -1,9 +1,7 @@
 package FS::part_pkg::global_Mixin;
 
 use strict;
-use vars qw(@ISA %info);
-use FS::part_pkg;
- at ISA = qw(FS::part_pkg);
+use vars qw(%info);
 
 %info = (
   'disabled' => 1,

Index: discount_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/discount_Mixin.pm,v
retrieving revision 1.8.2.1
retrieving revision 1.8.2.2
diff -u -w -d -r1.8.2.1 -r1.8.2.2
--- discount_Mixin.pm	7 Sep 2011 19:12:55 -0000	1.8.2.1
+++ discount_Mixin.pm	8 Sep 2011 22:09:56 -0000	1.8.2.2
@@ -1,14 +1,12 @@
 package FS::part_pkg::discount_Mixin;
 
 use strict;
-use vars qw(@ISA %info);
-use FS::part_pkg;
+use vars qw( %info );
+use Time::Local qw( timelocal );
+use List::Util  qw( min );
 use FS::cust_pkg;
 use FS::cust_bill_pkg_discount;
-use Time::Local qw(timelocal);
-use List::Util 'min';
 
- at ISA = qw(FS::part_pkg);
 %info = ( 'disabled' => 1 );
 
 =head1 NAME



More information about the freeside-commits mailing list