qw( setup_fee recur_fee );
}
-sub is_prepaid {
- 0; #no, we're postpaid
-}
+sub is_prepaid { 0; } #no, we're postpaid
+
+sub can_discount { 1; } #and anything that inherits from us
sub usage_valuehash {
my $self = shift;
sub reset_usage {
my($self, $cust_pkg, %opt) = @_;
- warn " resetting usage counters" if $opt{debug} > 1;
+ warn " resetting usage counters" if defined($opt{debug}) && $opt{debug} > 1;
my %values = $self->usage_valuehash;
if ($self->option('usage_rollover', 1)) {
$cust_pkg->recharge(\%values);