X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fsqlradacct_hour.pm;h=a2550e241cd72a144787045e28e3cf2eda358dcb;hb=45c9760355d17bbec96cc3c040c4540ad35cdbc0;hp=f5ad2b1fc7eab8b76857720662a6caba3694f3af;hpb=b8cfd0780aa40bb07f3215bf9cb58011f5e32a35;p=freeside.git

diff --git a/FS/FS/part_pkg/sqlradacct_hour.pm b/FS/FS/part_pkg/sqlradacct_hour.pm
index f5ad2b1fc..a2550e241 100644
--- a/FS/FS/part_pkg/sqlradacct_hour.pm
+++ b/FS/FS/part_pkg/sqlradacct_hour.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 per-hour (and for data) from an SQL RADIUS radacct table',
@@ -51,11 +51,6 @@ use FS::part_pkg;
     'weight' => 40,
 );
 
-sub calc_setup {
-  my($self, $cust_pkg ) = @_;
-  $self->option('setup_fee');
-}
-
 sub calc_recur {
   my($self, $cust_pkg, $sdate, $details ) = @_;
 
@@ -112,4 +107,9 @@ sub calc_recur {
     + $hourscharge + $inputcharge + $outputcharge + $totalcharge;
 }
 
+sub is_free_options {
+  qw( setup_fee recur_flat recur_hourly_charge
+      recur_input_charge recur_output_charge recur_total_charge );
+}
+
 1;