[BACK]Return to test.pl CVS log [TXT][DIR] Up to [local] / RT / Invoicing

Diff for /RT/Invoicing/test.pl between version 1.2 and 1.5

version 1.2, 2011/03/20 02:34:42 version 1.5, 2011/12/21 02:20:59
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $AFresh1: test.pl,v 1.1.1.1 2011/03/19 22:27:16 andrew Exp $  # $AFresh1: test.pl,v 1.4 2011/03/22 04:53:59 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
   
Line 7 
Line 7 
   
 my %invoice = (  my %invoice = (
     id => 1,      id => 1,
       logo  => '/home/andrew/.rt_invoicing/afresh_logo.pdf',
     info1 => 'Visit me online at http://example.com',      info1 => 'Visit me online at http://example.com',
     info2 => 'Create a new ticket rt@example.com',      info2 => 'Create a new ticket rt@example.com',
     from => {      from => 'Example Company
         name => 'Example Company',  
         #attn => 'Jane Smith',  22115 Central Way
         addr1 => '22115 Central Way',  
         addr2 => 'Suite C',  Suite C
         city => 'Anytown',  
         state => 'America',  Anytown, America  11111
         zip  => '11111',  
         phone => '(800) 555-1212',  (800) 555-1212
         email => 'company@example.com',  
     },  \texttt{<company@example.com>}',
     to => {      to => 'John Doe
         name => 'John Doe',  
         addr1 => '123 W Main St',  123 W Main St
         city => 'Anytown',  
         state => 'America',  Anytown, America  11111',
         zip  => '11111',  
     },  
     projects => [      projects => [
         {          {
             title => 'Weekly Retainer',              title => 'Weekly Retainer',
Line 60 
Line 59 
                     count => 1.5,                      count => 1.5,
                     rate => 100,                      rate => 100,
                 },                  },
             ],  
             discounts => [  
                 {                  {
                     contents => 'Included Hours',                      contents => 'Rounding FAIL',
                     amount   => .33 * 75,                      detail => 'Should be $8.30',
                       count => .083,
                       rate => 100,
                 },                  },
                 {  
                     contents => 'Included Hours',  
                     amount   => 1.5 * 100,  
                 },  
             ],              ],
         },          },
         {          {
Line 98 
Line 93 
                     rate => 125,                      rate => 125,
                 },                  },
             ],              ],
             discounts => [  
                 {  
                     contents => 'Included Hours',  
                     amount   => (.33 * 75) + ( 3.33 * 100 ),  
                 },  
                 {  
                     contents => 'Included Hours',  
                     amount   => (.25 * 75 ) + (2.25 * 100),  
                 },  
             ],  
         },          },
         {          {
             id => 85,              id => 85,
Line 139 
Line 124 
             ],              ],
         },          },
     ],      ],
       discount => {
           contents => 'Discount',
           amount   => '8.498',
       },
 );  );
   
 my $tt = Template->new;  my $tt = Template->new;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>