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

Diff for /RT/Invoicing/test.pl between version 1.1 and 1.3

version 1.1, 2011/03/19 23:27:16 version 1.3, 2011/03/20 06:20:11
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $AFresh1$  # $AFresh1: test.pl,v 1.2 2011/03/20 01:34:42 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
   
Line 46 
Line 46 
         {          {
             id => 60,              id => 60,
             title => '60: A Special Project',              title => '60: A Special Project',
               detail => 'Requestors jdoe@example.net',
             fees => [              fees => [
                 {                  {
                     contents => '2011-01-01: Talk a lot (727)',                      contents => '2011-01-01: Talk a lot (727)',
                       detail => 'This is detail about 727',
                     count => 0.33,                      count => 0.33,
                     rate => 75,                      rate => 75,
                 },                  },
                 {                  {
                     contents => '2011-01-15: Write Stuff (730)',                      contents => '2011-01-15: Write Stuff (730)',
                       detail => 'This is detail about 730',
                     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,  
                 },  
             ],              ],
         },          },
         {          {
             id => 65,              id => 65,
             title => '65: More work!',              title => '65: More work!',
               detail => 'Requestors jdoe@example.net',
             fees => [              fees => [
                 {                  {
                     contents => '2011-01-06: Define Project (751)',                      contents => '2011-01-06: Define Project (751)',
Line 94 
Line 94 
                     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,
             title => '85: Replace stuff',              title => '85: Replace stuff',
               detail => 'Requestors maintenance@example.net',
             fees => [              fees => [
                 {                  {
                     contents => '2011-01-13: Go unplug, replace, replug (834)',                      contents => '2011-01-13: Go unplug, replace, replug (834)',
Line 134 
Line 125 
             ],              ],
         },          },
     ],      ],
       discount => {
           contents => 'Discount',
           amount   => '8.498',
       },
 );  );
   
 my $tt = Template->new;  my $tt = Template->new;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>