creditcard-less promo code signup

1 files changed, 1 insertions, 6 deletions

diff --git a/FS/FS/part_pkg/subscription.pm b/FS/FS/part_pkg/subscription.pm
index 4dc9252..d057b6b 100644
--- a/FS/FS/part_pkg/subscription.pm
+++ b/FS/FS/part_pkg/subscription.pm
@@ -6,7 +6,7 @@ use Time::Local qw(timelocal);
 #use FS::Record qw(qsearch qsearchs);
 use FS::part_pkg;
 
-@ISA = qw(FS::part_pkg);
+@ISA = qw(FS::part_pkg::flat);
 
 %info = (
     'name' => 'First partial month full charge, then flat-rate (1st of month billing)',
@@ -25,11 +25,6 @@ use FS::part_pkg;
     'weight' => 30,
 );
 
-sub calc_setup {
-  my($self, $cust_pkg ) = @_;
-  $self->option('setup_fee');
-}
-
 sub calc_recur {
   my($self, $cust_pkg, $sdate ) = @_;