MT#8401 Use common invoice data preprocessing for generation script.

gjungwirth/email_test
Irka 12 years ago
parent c43ccd7c5d
commit f2e983db25

@ -11,10 +11,9 @@ use Email::MIME;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP;
use Template;
use Geography::Countries qw/country/;
use Pod::Usage;
use Log::Log4perl;
use HTML::Entities;
use Sipwise::Base;
use NGCP::Panel;
@ -280,15 +279,8 @@ sub generate_invoice_data{
my ($contract_balance,$invoice)=({},{});
($contract_balance,$invoice) = get_contract_balance($client_contract,$billing_profile,$contract_balance,$invoice,$stime,$etime);
#$logger->debug( Dumper $contract_balance );
$client_contact->{country} = country($client_contact->{country} || '');
foreach(keys %$client_contact){
$client_contact->{$_} = encode_entities($client_contact->{$_}, '<>&"');
}
$provider_contact->{country} = country($provider_contact->{country} || '');
foreach(keys %$provider_contact){
$provider_contact->{$_} = encode_entities($provider_contact->{$_}, '<>&"');
}
NGCP::Panel::Utils::Invoice::prepare_contact_data($client_contact);
NGCP::Panel::Utils::Invoice::prepare_contact_data($provider_contact);
# TODO: if not a full month, calculate fraction?
#TODO: to utils::contract and share with catalyst version
my $invoice_amounts = NGCP::Panel::Utils::Invoice::get_invoice_amounts(

Loading…
Cancel
Save