1 package FS::part_pkg::sql_external;
4 use base qw( FS::part_pkg::recur_Common );
7 #use FS::Record qw(qsearch qsearchs);
10 'name' => 'Base charge plus additional fees for external services from a configurable SQL query',
11 'shortname' => 'External SQL query',
13 'setup_fee' => { 'name' => 'Setup fee for this package',
16 'recur_fee' => { 'name' => 'Base recurring fee for this package',
19 'unused_credit' => { 'name' => 'Credit the customer for the unused portion'.
20 ' of service at cancellation',
23 'cutoff_day' => { 'name' => 'Billing Day (1 - 28) for prorating or '.
27 'add_full_period'=> { 'name' => 'When prorating first month, also bill '.
28 'for one full period after that',
32 'recur_method' => { 'name' => 'Recurring fee method',
34 #'options' => \%recur_method,
36 'select_options' => \%FS::part_pkg::recur_Common::recur_method,
38 'datasrc' => { 'name' => 'DBI data source',
41 'db_username' => { 'name' => 'Database username',
44 'db_password' => { 'name' => 'Database password',
47 'query' => { 'name' => 'SQL query',
51 'fieldorder' => [qw( setup_fee recur_fee unused_credit recur_method cutoff_day
52 add_full_period datasrc db_username db_password query
59 my($cust_pkg) = @_; #, $sdate, $details, $param ) = @_;
61 my $price = $self->calc_recur_Common(@_);
63 my $dbh = DBI->connect( map { $self->option($_) }
64 qw( datasrc db_username db_password )
68 my $sth = $dbh->prepare( $self->option('query') )
71 foreach my $cust_svc (
72 grep { $_->part_svc->svcdb eq "svc_external" } $cust_pkg->cust_svc
74 my $id = $cust_svc->svc_x->id;
75 $sth->execute($id) or die $sth->errstr;
76 $price += $sth->fetchrow_arrayref->[0];
82 sub can_discount { 0; }