[freeside-commits] freeside/FS/FS/part_pkg flat.pm, 1.6,
1.7 flat_comission.pm, 1.3, 1.4 flat_comission_cust.pm, 1.4,
1.5 flat_comission_pkg.pm, 1.3, 1.4 flat_delayed.pm, 1.3,
1.4 prepaid.pm, NONE, 1.1 prorate.pm, 1.3, 1.4 sesmon_hour.pm,
1.4, 1.5 sesmon_minute.pm, 1.5, 1.6 sql_external.pm, 1.4,
1.5 sql_generic.pm, 1.4, 1.5 sqlradacct_hour.pm, 1.4,
1.5 subscription.pm, 1.3, 1.4 voip_sqlradacct.pm, 1.15, 1.16
Ivan,,,
ivan at wavetail.420.am
Sat Jul 9 03:36:45 PDT 2005
Update of /home/cvs/cvsroot/freeside/FS/FS/part_pkg
In directory wavetail:/tmp/cvs-serv14740/part_pkg
Modified Files:
flat.pm flat_comission.pm flat_comission_cust.pm
flat_comission_pkg.pm flat_delayed.pm prorate.pm
sesmon_hour.pm sesmon_minute.pm sql_external.pm sql_generic.pm
sqlradacct_hour.pm subscription.pm voip_sqlradacct.pm
Added Files:
prepaid.pm
Log Message:
add desc method to cust_bill_pkg and use it in cust_bill... this should help with any *other* cust_bill_pkg.pkgnum == -1 stuff that needs to be sorted out
Index: flat.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- flat.pm 13 Apr 2005 10:16:12 -0000 1.6
+++ flat.pm 9 Jul 2005 10:36:43 -0000 1.7
@@ -78,4 +78,8 @@
qw( setup_fee recur_fee );
}
+sub is_prepaid {
+ 0; #no, we're postpaid
+}
+
1;
--- NEW FILE: prepaid.pm ---
package FS::part_pkg::prepaid;
use strict;
use vars qw(@ISA %info);
use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
%info = (
'name' => 'Prepaid, flat rate',
'fields' => {
'setup_fee' => { 'name' => 'One-time setup fee for this package',
'default' => 0,
},
'recur_fee' => { 'name' => 'Initial and recharge fee for this package',
'default' => 0,
}
},
'fieldorder' => [ 'setup_fee', 'recur_fee', ],
'weight' => 25,
);
sub is_prepaid {
1;
}
1;
Index: flat_comission_cust.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat_comission_cust.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- flat_comission_cust.pm 13 Apr 2005 03:38:34 -0000 1.4
+++ flat_comission_cust.pm 9 Jul 2005 10:36:43 -0000 1.5
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: sesmon_hour.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sesmon_hour.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- sesmon_hour.pm 19 Jan 2005 21:25:43 -0000 1.4
+++ sesmon_hour.pm 9 Jul 2005 10:36:43 -0000 1.5
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: flat_comission.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat_comission.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- flat_comission.pm 19 Jan 2005 21:25:43 -0000 1.3
+++ flat_comission.pm 9 Jul 2005 10:36:43 -0000 1.4
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: sql_external.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sql_external.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- sql_external.pm 19 Jan 2005 21:25:43 -0000 1.4
+++ sql_external.pm 9 Jul 2005 10:36:43 -0000 1.5
@@ -4,7 +4,7 @@
use vars qw(@ISA %info);
use DBI;
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: flat_delayed.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat_delayed.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- flat_delayed.pm 19 Jan 2005 21:25:43 -0000 1.3
+++ flat_delayed.pm 9 Jul 2005 10:36:43 -0000 1.4
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: voip_sqlradacct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/voip_sqlradacct.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- voip_sqlradacct.pm 3 Mar 2005 09:05:39 -0000 1.15
+++ voip_sqlradacct.pm 9 Jul 2005 10:36:43 -0000 1.16
@@ -4,7 +4,7 @@
use vars qw(@ISA $DEBUG %info);
use Date::Format;
use FS::Record qw(qsearchs qsearch);
-use FS::part_pkg;
+use FS::part_pkg::flat;
#use FS::rate;
use FS::rate_prefix;
Index: sesmon_minute.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sesmon_minute.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- sesmon_minute.pm 31 May 2005 23:42:42 -0000 1.5
+++ sesmon_minute.pm 9 Jul 2005 10:36:43 -0000 1.6
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: prorate.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/prorate.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- prorate.pm 19 Jan 2005 21:25:43 -0000 1.3
+++ prorate.pm 9 Jul 2005 10:36:43 -0000 1.4
@@ -4,7 +4,7 @@
use vars qw(@ISA %info);
use Time::Local qw(timelocal);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: sqlradacct_hour.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sqlradacct_hour.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- sqlradacct_hour.pm 19 Jan 2005 21:25:43 -0000 1.4
+++ sqlradacct_hour.pm 9 Jul 2005 10:36:43 -0000 1.5
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: flat_comission_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat_comission_pkg.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- flat_comission_pkg.pm 19 Jan 2005 21:25:43 -0000 1.3
+++ flat_comission_pkg.pm 9 Jul 2005 10:36:43 -0000 1.4
@@ -3,7 +3,7 @@
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: sql_generic.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sql_generic.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- sql_generic.pm 19 Jan 2005 21:25:43 -0000 1.4
+++ sql_generic.pm 9 Jul 2005 10:36:43 -0000 1.5
@@ -4,7 +4,7 @@
use vars qw(@ISA %info);
use DBI;
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
Index: subscription.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/subscription.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- subscription.pm 19 Jan 2005 21:25:43 -0000 1.3
+++ subscription.pm 9 Jul 2005 10:36:43 -0000 1.4
@@ -4,7 +4,7 @@
use vars qw(@ISA %info);
use Time::Local qw(timelocal);
#use FS::Record qw(qsearch qsearchs);
-use FS::part_pkg;
+use FS::part_pkg::flat;
@ISA = qw(FS::part_pkg::flat);
More information about the freeside-commits
mailing list