=================================================================== RCS file: /cvs/RT/Invoicing/test.pl,v retrieving revision 1.1 retrieving revision 1.5 diff -u -r1.1 -r1.5 --- RT/Invoicing/test.pl 2011/03/19 23:27:16 1.1 +++ RT/Invoicing/test.pl 2011/12/21 02:20:59 1.5 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $AFresh1$ +# $AFresh1: test.pl,v 1.4 2011/03/22 04:53:59 andrew Exp $ use strict; use warnings; @@ -7,26 +7,25 @@ my %invoice = ( id => 1, + logo => '/home/andrew/.rt_invoicing/afresh_logo.pdf', info1 => 'Visit me online at http://example.com', info2 => 'Create a new ticket rt@example.com', - from => { - name => 'Example Company', - #attn => 'Jane Smith', - addr1 => '22115 Central Way', - addr2 => 'Suite C', - city => 'Anytown', - state => 'America', - zip => '11111', - phone => '(800) 555-1212', - email => 'company@example.com', - }, - to => { - name => 'John Doe', - addr1 => '123 W Main St', - city => 'Anytown', - state => 'America', - zip => '11111', - }, + from => 'Example Company + +22115 Central Way + +Suite C + +Anytown, America 11111 + +(800) 555-1212 + +\texttt{}', + to => 'John Doe + +123 W Main St + +Anytown, America 11111', projects => [ { title => 'Weekly Retainer', @@ -46,32 +45,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 +93,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 +124,10 @@ ], }, ], + discount => { + contents => 'Discount', + amount => '8.498', + }, ); my $tt = Template->new;