=================================================================== RCS file: /cvs/RT/Invoicing/test.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- RT/Invoicing/test.pl 2011/03/20 06:20:11 1.3 +++ RT/Invoicing/test.pl 2011/03/22 05:53:59 1.4 @@ -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.3 2011/03/20 05:20:11 andrew Exp $ use strict; use warnings; @@ -9,24 +9,22 @@ id => 1, 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',