X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fcdr_termination.pm;h=9011846b78b34f3c7e5e88c1433f342fbe05fd18;hb=66c62dfc4734fa278e7e28c5fda5c4061778dc14;hp=37fa47e9878b13f46c235451dea6d4d978ca9f8c;hpb=90dfd05877a331fb13ba50389e3d8a3105465bc7;p=freeside.git diff --git a/FS/FS/part_pkg/cdr_termination.pm b/FS/FS/part_pkg/cdr_termination.pm index 37fa47e98..9011846b7 100644 --- a/FS/FS/part_pkg/cdr_termination.pm +++ b/FS/FS/part_pkg/cdr_termination.pm @@ -1,7 +1,7 @@ package FS::part_pkg::cdr_termination; +use base qw( FS::part_pkg::recur_Common ); use strict; -use base qw( FS::part_pkg::recur_Common ); use vars qw( $DEBUG %info ); use Tie::IxHash; use FS::Record qw( qsearch ); #qsearchs ); @@ -182,13 +182,13 @@ sub calc_recur { # eotermiation calculation - $charges += $self->calc_recur_Common(@_); + $charges += ($cust_pkg->quantity || 1) * $self->calc_recur_Common(@_); $charges; } -sub is_free { - 0; -} +sub is_free { 0; } + +sub can_usageprice { 0; } 1;