version 1.48, 2012/11/28 02:23:34 |
version 1.49, 2013/02/05 03:41:58 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.47 2012/01/31 04:36:28 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.48 2012/11/28 02:23:34 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
|
|
next unless $cust; |
next unless $cust; |
next unless $cust->{invoice}; |
next unless $cust->{invoice}; |
|
next unless $credits->{$custid} < 0; |
|
|
$cust->{invoice}->{credit} = $credits->{$custid}; |
$cust->{invoice}->{credit} = $credits->{$custid}; |
|
|