[freeside-commits] freeside/FS/FS/part_pkg delayed_Mixin.pm, 1.2, 1.3 discount_Mixin.pm, 1.9, 1.10 flat.pm, 1.66, 1.67 global_Mixin.pm, 1.1, 1.2 prorate_Mixin.pm, 1.15, 1.16 sql_external.pm, 1.15, 1.16 usage_Mixin.pm, 1.1, 1.2

[Ivan,,,]

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

Modified Files:
	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.16
diff -u -w -d -r1.15 -r1.16
--- prorate_Mixin.pm	17 Jun 2011 09:47:04 -0000	1.15
+++ prorate_Mixin.pm	8 Sep 2011 22:09:56 -0000	1.16
@@ -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.2
diff -u -w -d -r1.1 -r1.2
--- usage_Mixin.pm	24 Dec 2010 09:49:32 -0000	1.1
+++ usage_Mixin.pm	8 Sep 2011 22:09:56 -0000	1.2
@@ -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.16
diff -u -w -d -r1.15 -r1.16
--- sql_external.pm	17 Jun 2011 09:47:04 -0000	1.15
+++ sql_external.pm	8 Sep 2011 22:09:56 -0000	1.16
@@ -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.2
retrieving revision 1.3
diff -u -w -d -r1.2 -r1.3
--- delayed_Mixin.pm	11 Aug 2011 00:38:01 -0000	1.2
+++ delayed_Mixin.pm	8 Sep 2011 22:09:55 -0000	1.3
@@ -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.66
retrieving revision 1.67
diff -u -w -d -r1.66 -r1.67
--- flat.pm	11 Aug 2011 00:38:01 -0000	1.66
+++ flat.pm	8 Sep 2011 22:09:56 -0000	1.67
@@ -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.2
diff -u -w -d -r1.1 -r1.2
--- global_Mixin.pm	24 Dec 2010 09:49:32 -0000	1.1
+++ global_Mixin.pm	8 Sep 2011 22:09:56 -0000	1.2
@@ -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.9
retrieving revision 1.10
diff -u -w -d -r1.9 -r1.10
--- discount_Mixin.pm	7 Sep 2011 19:12:45 -0000	1.9
+++ discount_Mixin.pm	8 Sep 2011 22:09:56 -0000	1.10
@@ -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