version 1.53, 2015/05/07 06:26:08 |
version 1.54, 2015/12/08 02:10:43 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.52 2015/05/07 05:23:15 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.53 2015/05/07 05:26:08 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
} |
} |
|
|
foreach my $cust ( @{$customers} ) { |
foreach my $cust ( @{$customers} ) { |
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice} ||= make_invoice($cust); |
next unless $invoice && $invoice->{projects} && @{ $invoice->{projects} }; |
next unless $invoice && $invoice->{projects} && @{ $invoice->{projects} }; |
|
|
$invoice->{custid} = $cust->{id}; |
$invoice->{custid} = $cust->{id}; |