=================================================================== RCS file: /cvs/RT/Invoicing/test.pl,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -r1.1.1.1 -r1.3 --- RT/Invoicing/test.pl 2011/03/19 23:27:16 1.1.1.1 +++ RT/Invoicing/test.pl 2011/03/20 06:20:11 1.3 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $AFresh1$ +# $AFresh1: test.pl,v 1.2 2011/03/20 01:34:42 andrew Exp $ use strict; use warnings; @@ -46,32 +46,32 @@ { id => 60, title => '60: A Special Project', + detail => 'Requestors jdoe@example.net', fees => [ { contents => '2011-01-01: Talk a lot (727)', + detail => 'This is detail about 727', count => 0.33, rate => 75, }, { contents => '2011-01-15: Write Stuff (730)', + detail => 'This is detail about 730', count => 1.5, rate => 100, }, - ], - discounts => [ { - contents => 'Included Hours', - amount => .33 * 75, + contents => 'Rounding FAIL', + detail => 'Should be $8.30', + count => .083, + rate => 100, }, - { - contents => 'Included Hours', - amount => 1.5 * 100, - }, ], }, { id => 65, title => '65: More work!', + detail => 'Requestors jdoe@example.net', fees => [ { contents => '2011-01-06: Define Project (751)', @@ -94,20 +94,11 @@ rate => 125, }, ], - discounts => [ - { - contents => 'Included Hours', - amount => (.33 * 75) + ( 3.33 * 100 ), - }, - { - contents => 'Included Hours', - amount => (.25 * 75 ) + (2.25 * 100), - }, - ], }, { id => 85, title => '85: Replace stuff', + detail => 'Requestors maintenance@example.net', fees => [ { contents => '2011-01-13: Go unplug, replace, replug (834)', @@ -134,6 +125,10 @@ ], }, ], + discount => { + contents => 'Discount', + amount => '8.498', + }, ); my $tt = Template->new;