version 1.36, 2011/05/18 20:03:17 |
version 1.37, 2011/05/26 02:09:36 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.35 2011/05/18 19:02:36 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.36 2011/05/18 19:03:17 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
$type = '' if $type eq 'default'; |
$type = '' if $type eq 'default'; |
$fee->{detail} .= " $discount_time $type Hours Discounted"; |
$fee->{detail} .= " $discount_time $type Hours Discounted"; |
} |
} |
|
|
|
last if $discount_time == $fee->{count}; |
} |
} |
} |
} |
|
|