RT/Invoicing/rt_invoices.pl - diff

Return to rt_invoices.pl CVS log

Up to [local] / RT / Invoicing

version 1.37, 2011/05/26 02:09:36

version 1.38, 2011/06/21 01:20:28

Line 1

#!/usr/bin/perl

# $AFresh1: rt_invoices.pl,v 1.36 2011/05/18 19:03:17 andrew Exp $

# $AFresh1: rt_invoices.pl,v 1.37 2011/05/26 01:09:36 andrew Exp $

########################################################################

Line 96

foreach my $fee ( @{ $project->{fees} } ) {

my $hours = hours_for_date( $cust->{invoice}, $fee->{date} );

my $type = 'unknown';

while ( $type && $type ne 'default' ) {

my $count = $fee->{count};

while ( $type && $count > 0 && $type ne 'default' ) {

$type = exists $hours->{ $fee->{type} }

&& $hours->{ $fee->{type} } > 0 ? $fee->{type} : 'default';

next unless exists $hours->{$type} && $hours->{$type} > 0;

my $discount_time = 0;

if ( $hours->{$type} > $fee->{count} ) {

if ( $hours->{$type} > $count ) {

$hours->{$type} -= $fee->{count};

$hours->{$type} -= $count;

$discount_time = $fee->{count};

$discount_time = $count;

}

else {

$discount_time = $hours->{$type};

Line 120

Line 121

+= $discount_time;

$type = '' if $type eq 'default';

$count -= $discount_time;

$fee->{detail} .= " $discount_time $type Hours Discounted";

}

last if $discount_time == $fee->{count};

}