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

Diff for /RT/Invoicing/rt_invoices.pl between version 1.19 and 1.20

version 1.19, 2011/03/22 06:27:12 version 1.20, 2011/03/24 00:05:47
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $AFresh1$  # $AFresh1: rt_invoices.pl,v 1.19 2011/03/22 05:27:12 andrew Exp $
 ########################################################################  ########################################################################
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>  # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
 #  #
Line 210 
Line 210 
     File::Path::make_path($invoice_dir);      File::Path::make_path($invoice_dir);
     my $file = join '/', $invoice_dir, $invoice->{file};      my $file = join '/', $invoice_dir, $invoice->{file};
   
     my $tt = Template->new;      my $tt = Template->new(
     $tt->process( 'invoice.tex.tt', $invoice, $file )          INCLUDE_PATH => $config->get('template_dir'),
       )|| die $Template::ERROR, "\n";
   
       $tt->process( $config->get('invoice_template'), $invoice, $file )
         or die $tt->error . "\n";          or die $tt->error . "\n";
   
     printf "Generated %s for %s: \$%.02f\n", $invoice->{file}, $custid,      printf "Generated %s for %s: \$%.02f\n", $invoice->{file}, $custid,
Line 630 
Line 633 
         }          }
         when ('invoice_dir') {          when ('invoice_dir') {
             $value = dirname( $self->{file} ) . '/invoices';              $value = dirname( $self->{file} ) . '/invoices';
           }
           when ('template_dir') {
               $value = dirname( $self->{file} );
           }
           when ('invoice_template') {
               $value = 'invoice.tex.tt';
         }          }
     }      }
   

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>