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
|
package FS::part_pkg::bulk_simple;
use base qw( FS::part_pkg::bulk_Common );
use strict;
use vars qw($DEBUG $me %info);
use Date::Format;
use FS::Conf;
use FS::cust_svc_option;
$DEBUG = 0;
$me = '[FS::part_pkg::bulk]';
%info = (
'name' => 'Bulk billing based on number of active services (at invoice generation)',
'inherit_fields' => [ 'bulk_Common', 'global_Mixin' ],
'weight' => 50,
);
sub _bulk_cust_svc {
my( $self, $cust_pkg, $sdate ) = @_;
return $self->_only_svcs_filter($cust_pkg->cust_svc);
}
sub _bulk_setup {
my( $self, $cust_pkg, $cust_svc ) = @_;
return 0 if $cust_svc->option('bulk_setup');
my $bulk_setup = new FS::cust_svc_option {
'svcnum' => $cust_svc->svcnum,
'optionname' => 'bulk_setup',
'optionvalue' => time, #invoice date?
};
my $error = $bulk_setup->insert;
die $error if $error;
$self->option('svc_setup_fee');
}
sub _bulk_recur {
my( $self, $cust_pkg, $cust_svc ) = @_;
( $self->option('svc_recur_fee'), '' );
}
1;
|
