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 '.
28 'recur_method' => { 'name' => 'Recurring fee method',
30 #'options' => \%recur_method,
32 'select_options' => \%FS::part_pkg::recur_Common::recur_method,
34 'datasrc' => { 'name' => 'DBI data source',
37 'db_username' => { 'name' => 'Database username',
40 'db_password' => { 'name' => 'Database password',
43 'query' => { 'name' => 'SQL query',
47 'fieldorder' => [qw( setup_fee recur_fee unused_credit recur_method cutoff_day
48 datasrc db_username db_password query
55 my($cust_pkg) = @_; #, $sdate, $details, $param ) = @_;
57 my $price = $self->calc_recur_Common(@_);
59 my $dbh = DBI->connect( map { $self->option($_) }
60 qw( datasrc db_username db_password )
64 my $sth = $dbh->prepare( $self->option('query') )
67 foreach my $cust_svc (
68 grep { $_->part_svc->svcdb eq "svc_external" } $cust_pkg->cust_svc
70 my $id = $cust_svc->svc_x->id;
71 $sth->execute($id) or die $sth->errstr;
72 $price += $sth->fetchrow_arrayref->[0];
78 sub can_discount { 0; }