creditcard-less promo code signup

[freeside.git] / FS / FS / part_pkg / sesmon_minute.pm

diff --git a/FS/FS/part_pkg/sesmon_minute.pm b/FS/FS/part_pkg/sesmon_minute.pm
index 9ef76d7..7cafbe0 100644 (file)
--- a/FS/FS/part_pkg/sesmon_minute.pm
+++ b/FS/FS/part_pkg/sesmon_minute.pm
@@ -5,7 +5,7 @@ use vars qw(@ISA %info);
 #use FS::Record qw(qsearch qsearchs);
 use FS::part_pkg;
 
-@ISA = qw(FS::part_pkg);
+@ISA = qw(FS::part_pkg::flat);
 
 %info = (
     'name' => 'Base charge plus charge per-minute from the session monitor',
@@ -29,10 +29,6 @@ use FS::part_pkg;
     'weight' => 80,
 );
 
-sub calc_setup {
-  my( $self, $cust_pkg ) = @_;
-  $self->option('setup_fee');
-}
 
 sub cakc_recur {
   my( $self, $cust_pkg ) = @);
@@ -43,4 +39,8 @@ sub cakc_recur {
   $self->option('recur_flat') + $min * $self->option('recur_minly_charge');
 }
 
+sub is_free_options {
+  qw( setup_fee recur_fee recur_minly_charge );
+}
+
 1;