projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
implement quantity charging for setup fees
[freeside.git]
/
FS
/
FS
/
part_pkg
/
flat.pm
diff --git
a/FS/FS/part_pkg/flat.pm
b/FS/FS/part_pkg/flat.pm
index
e8417ff
..
1d93e55
100644
(file)
--- a/
FS/FS/part_pkg/flat.pm
+++ b/
FS/FS/part_pkg/flat.pm
@@
-99,7
+99,9
@@
sub calc_setup {
push @$details, $self->option( 'additional_info' . $i++ );
}
push @$details, $self->option( 'additional_info' . $i++ );
}
- $self->option('setup_fee');
+ my $quantity = $cust_pkg->quantity || 1;
+
+ sprintf("%.2f", $quantity * $self->option('setup_fee') );
}
sub calc_recur {
}
sub calc_recur {
@@
-155,7
+157,8
@@
sub is_prepaid {
}
sub reset_usage {
}
sub reset_usage {
- my($self, $cust_pkg) = @_;
+ my($self, $cust_pkg, %opt) = @_;
+ warn " resetting usage counters" if $opt{debug} > 1;
my %values = map { $_, $self->option($_) }
grep { $self->option($_, 'hush') }
qw(seconds upbytes downbytes totalbytes);
my %values = map { $_, $self->option($_) }
grep { $self->option($_, 'hush') }
qw(seconds upbytes downbytes totalbytes);