freeside/FS/FS/part_pkg flat.pm,1.2,1.3 sesmon_hour.pm,1.2,1.3 sesmon_minute.pm,1.2,1.3 sql_external.pm,1.2,1.3 sql_generic.pm,1.2,1.3 sqlradacct_hour.pm,1.2,1.3 voip_sqlradacct.pm,1.6,1.7

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_pkg
In directory pouncequick:/tmp/cvs-serv11730/part_pkg

Modified Files:
	flat.pm sesmon_hour.pm sesmon_minute.pm sql_external.pm 
	sql_generic.pm sqlradacct_hour.pm voip_sqlradacct.pm 
Log Message:
one-time referral credits

Index: voip_sqlradacct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/voip_sqlradacct.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- voip_sqlradacct.pm	5 Jan 2005 10:01:41 -0000	1.6
+++ voip_sqlradacct.pm	19 Jan 2005 00:57:11 -0000	1.7
@@ -181,5 +181,10 @@
   0;
 }
 
+sub base_recur {
+  my($self, $cust_pkg) = @_;
+  $self->option('recur_flat');
+}
+
 1;
 

Index: sesmon_minute.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sesmon_minute.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sesmon_minute.pm	1 Dec 2004 03:35:05 -0000	1.2
+++ sesmon_minute.pm	19 Jan 2005 00:57:11 -0000	1.3
@@ -43,4 +43,9 @@
   qw( setup_fee recur_fee recur_minly_charge );
 }
 
+sub base_recur {
+  my($self, $cust_pkg) = @_;
+  $self->option('recur_flat');
+}
+
 1;

Index: sql_generic.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sql_generic.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sql_generic.pm	1 Dec 2004 03:35:05 -0000	1.2
+++ sql_generic.pm	19 Jan 2005 00:57:11 -0000	1.3
@@ -75,4 +75,9 @@
   qw( setup_fee recur_flat recur_unit_charge );
 }
 
+sub base_recur {
+  my($self, $cust_pkg) = @_;
+  $self->option('recur_flat');
+}
+
 1;

Index: sql_external.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sql_external.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sql_external.pm	1 Dec 2004 03:35:05 -0000	1.2
+++ sql_external.pm	19 Jan 2005 00:57:11 -0000	1.3
@@ -64,4 +64,9 @@
   0;
 }
 
+sub base_recur {
+  my($self, $cust_pkg) = @_;
+  $self->option('recur_flat');
+}
+
 1;

Index: sesmon_hour.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sesmon_hour.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sesmon_hour.pm	1 Dec 2004 03:35:05 -0000	1.2
+++ sesmon_hour.pm	19 Jan 2005 00:57:11 -0000	1.3
@@ -44,4 +44,9 @@
   qw( setup_fee recur_fee recur_hourly_charge );
 }
 
+sub base_recur {
+  my($self, $cust_pkg) = @_;
+  $self->option('recur_flat');
+}
+
 1;

Index: sqlradacct_hour.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/sqlradacct_hour.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sqlradacct_hour.pm	1 Dec 2004 03:35:05 -0000	1.2
+++ sqlradacct_hour.pm	19 Jan 2005 00:57:11 -0000	1.3
@@ -112,4 +112,9 @@
       recur_input_charge recur_output_charge recur_total_charge );
 }
 
+sub base_recur {
+  my($self, $cust_pkg) = @_;
+  $self->option('recur_flat');
+}
+
 1;

Index: flat.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- flat.pm	1 Dec 2004 03:35:05 -0000	1.2
+++ flat.pm	19 Jan 2005 00:57:11 -0000	1.3
@@ -29,7 +29,12 @@
 }
 
 sub calc_recur {
-  my($self, $cust_pkg ) = @_;
+  my $self = shift;
+  $self->base_recur(@_);
+}
+
+sub base_recur {
+  my($self, $cust_pkg) = @_;
   $self->option('recur_fee');
 }