1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
package FS::part_pkg::base_rate;
use strict;
use vars qw(@ISA %info);
#use FS::Record qw(qsearch);
use FS::part_pkg;
@ISA = qw(FS::part_pkg);
%info = (
'name' => 'Base rate (anniversary billing, Times units ordered)',
'fields' => {
'setup_fee' => { 'name' => 'Setup fee for this package',
'default' => 0,
},
'recur_fee' => { 'name' => 'Recurring Base fee for this package',
'default' => 0,
},
'unused_credit' => { 'name' => 'Credit the customer for the unused portion'.
' of service at cancellation',
'type' => 'checkbox',
},
'externalid' => { 'name' => 'Optional External ID',
'default' => '',
},
},
'fieldorder' => [ 'setup_fee', 'recur_fee', 'unused_credit',
'externalid' ],
'weight' => 10,
);
sub calc_setup {
my($self, $cust_pkg, $sdate, $details ) = @_;
my $i = 0;
my $count = $self->option( 'additional_count', 'quiet' ) || 0;
while ($i < $count) {
push @$details, $self->option( 'additional_info' . $i++ );
}
$self->option('setup_fee');
}
sub calc_recur {
my($self, $cust_pkg) = @_;
$self->base_recur($cust_pkg);
}
sub base_recur {
my($self, $cust_pkg) = @_;
my $units = $cust_pkg->option('units') ? $cust_pkg->option('units') : 1 ;
# default to 1 if not found
sprintf("%.2f",
($self->option('recur_fee') * $units )
);
}
sub calc_remain {
my ($self, $cust_pkg) = @_;
my $time = time; #should be able to pass this in for credit calculation
my $next_bill = $cust_pkg->getfield('bill') || 0;
my $last_bill = $cust_pkg->last_bill || 0;
return 0 if ! $self->base_recur
|| ! $self->option('unused_credit', 1)
|| ! $last_bill
|| ! $next_bill
|| $next_bill < $time;
my %sec = (
'h' => 3600, # 60 * 60
'd' => 86400, # 60 * 60 * 24
'w' => 604800, # 60 * 60 * 24 * 7
'm' => 2629744, # 60 * 60 * 24 * 365.2422 / 12
);
$self->freq =~ /^(\d+)([hdwm]?)$/
or die 'unparsable frequency: '. $self->freq;
my $freq_sec = $1 * $sec{$2||'m'};
return 0 unless $freq_sec;
sprintf("%.2f", $self->base_recur * ( $next_bill - $time ) / $freq_sec );
}
sub is_free_options {
qw( setup_fee recur_fee );
}
sub is_prepaid {
0; #no, we're postpaid
}
1;
|