X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fsql_generic.pm;fp=FS%2FFS%2Fpart_pkg%2Fsql_generic.pm;h=b7c7008c16790a3633531de1cfc331f72aea800f;hb=45c9760355d17bbec96cc3c040c4540ad35cdbc0;hp=85c34137568d2dc614c28256d4de027f1f4d7826;hpb=6c772e644f0c0774c21c67dde68bb01ea333049e;p=freeside.git

diff --git a/FS/FS/part_pkg/sql_generic.pm b/FS/FS/part_pkg/sql_generic.pm
index 85c341375..b7c7008c1 100644
--- a/FS/FS/part_pkg/sql_generic.pm
+++ b/FS/FS/part_pkg/sql_generic.pm
@@ -6,7 +6,7 @@ use DBI;
 #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 a per-domain metered rate from a configurable SQL query',
@@ -44,11 +44,6 @@ use FS::part_pkg;
     'weight' => '70',
 );
 
-sub calc_setup {
-  my($self, $cust_pkg ) = @_;
-  $self->option('setup_fee');
-}
-
 sub calc_recur {
   my($self, $cust_pkg ) = @_;
 
@@ -76,4 +71,8 @@ sub calc_recur {
   $self->option('recur_flat') + $units * $self->option('recur_unit_charge');
 }
 
+sub is_free_options {
+  qw( setup_fee recur_flat recur_unit_charge );
+}
+
 1;