=================================================================== RCS file: /cvs/RT/Invoicing/test.pl,v retrieving revision 1.3 retrieving revision 1.5 diff -u -r1.3 -r1.5 --- RT/Invoicing/test.pl 2011/03/20 06:20:11 1.3 +++ RT/Invoicing/test.pl 2011/12/21 02:20:59 1.5 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $AFresh1: test.pl,v 1.2 2011/03/20 01:34:42 andrew Exp $ +# $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',