DID activity summary improvements, RT10886

[freeside.git] / FS / FS / cust_bill.pm
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm

index 0f08aaa..9d250eb 100644 (file)
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -1,9 +1,11 @@
  package FS::cust_bill;
  
  use strict;
  package FS::cust_bill;
  
  use strict;
-use vars qw( @ISA $DEBUG $me $conf $money_char $date_format );
+use vars qw( @ISA $DEBUG $me $conf
+             $money_char $date_format $rdate_format $date_format_long );
  use vars qw( $invoice_lines @buf ); #yuck
  use Fcntl qw(:flock); #for spool_csv
  use vars qw( $invoice_lines @buf ); #yuck
  use Fcntl qw(:flock); #for spool_csv
+use Cwd;
  use List::Util qw(min max);
  use Date::Format;
  use Text::Template 1.20;
  use List::Util qw(min max);
  use Date::Format;
  use Text::Template 1.20;
@@ -12,6 +14,7 @@ use String::ShellQuote;
  use HTML::Entities;
  use Locale::Country;
  use Storable qw( freeze thaw );
  use HTML::Entities;
  use Locale::Country;
  use Storable qw( freeze thaw );
+use GD::Barcode;
  use FS::UID qw( datasrc );
  use FS::Misc qw( send_email send_fax generate_ps generate_pdf do_print );
  use FS::Record qw( qsearch qsearchs dbh );
  use FS::UID qw( datasrc );
  use FS::Misc qw( send_email send_fax generate_ps generate_pdf do_print );
  use FS::Record qw( qsearch qsearchs dbh );
@@ -34,6 +37,10 @@ use FS::cust_bill_pay;
  use FS::cust_bill_pay_batch;
  use FS::part_bill_event;
  use FS::payby;
  use FS::cust_bill_pay_batch;
  use FS::part_bill_event;
  use FS::payby;
+use FS::bill_batch;
+use FS::cust_bill_batch;
+use FS::cust_bill_pay_pkg;
+use FS::cust_credit_bill_pkg;
  
  @ISA = qw( FS::cust_main_Mixin FS::Record );
  
  
  @ISA = qw( FS::cust_main_Mixin FS::Record );
  
@@ -43,8 +50,10 @@ $me = '[FS::cust_bill]';
  #ask FS::UID to run this stuff for us later
  FS::UID->install_callback( sub { 
    $conf = new FS::Conf;
  #ask FS::UID to run this stuff for us later
  FS::UID->install_callback( sub { 
    $conf = new FS::Conf;
-  $money_char = $conf->config('money_char') || '$';  
-  $date_format = $conf->config('date_format') || '%x';  
+  $money_char       = $conf->config('money_char')       || '$';  
+  $date_format      = $conf->config('date_format')      || '%x'; #/YY
+  $rdate_format     = $conf->config('date_format')      || '%m/%d/%Y';  #/YYYY
+  $date_format_long = $conf->config('date_format_long') || '%b %o, %Y';
  } );
  
  =head1 NAME
  } );
  
  =head1 NAME
@@ -159,6 +168,45 @@ sub cust_unlinked_msg {
  Adds this invoice to the database ("Posts" the invoice).  If there is an error,
  returns the error, otherwise returns false.
  
  Adds this invoice to the database ("Posts" the invoice).  If there is an error,
  returns the error, otherwise returns false.
  
+=cut
+
+sub insert {
+  my $self = shift;
+  warn "$me insert called\n" if $DEBUG;
+
+  local $SIG{HUP} = 'IGNORE';
+  local $SIG{INT} = 'IGNORE';
+  local $SIG{QUIT} = 'IGNORE';
+  local $SIG{TERM} = 'IGNORE';
+  local $SIG{TSTP} = 'IGNORE';
+  local $SIG{PIPE} = 'IGNORE';
+
+  my $oldAutoCommit = $FS::UID::AutoCommit;
+  local $FS::UID::AutoCommit = 0;
+  my $dbh = dbh;
+
+  my $error = $self->SUPER::insert;
+  if ( $error ) {
+    $dbh->rollback if $oldAutoCommit;
+    return $error;
+  }
+
+  if ( $self->get('cust_bill_pkg') ) {
+    foreach my $cust_bill_pkg ( @{$self->get('cust_bill_pkg')} ) {
+      $cust_bill_pkg->invnum($self->invnum);
+      my $error = $cust_bill_pkg->insert;
+      if ( $error ) {
+        $dbh->rollback if $oldAutoCommit;
+        return "can't create invoice line item: $error";
+      }
+    }
+  }
+
+  $dbh->commit or die $dbh->errstr if $oldAutoCommit;
+  '';
+
+}
+
  =item delete
  
  This method now works but you probably shouldn't use it.  Instead, apply a
  =item delete
  
  This method now works but you probably shouldn't use it.  Instead, apply a
@@ -197,6 +245,7 @@ sub delete {
      cust_pay_batch
      cust_bill_pay_batch
      cust_bill_pkg
      cust_pay_batch
      cust_bill_pay_batch
      cust_bill_pkg
+    cust_bill_batch
    )) {
  
      foreach my $linked ( $self->$table() ) {
    )) {
  
      foreach my $linked ( $self->$table() ) {
@@ -221,13 +270,13 @@ sub delete {
  
  }
  
  
  }
  
-=item replace OLD_RECORD
+=item replace [ OLD_RECORD ]
  
  
-Replaces the OLD_RECORD with this one in the database.  If there is an error,
-returns the error, otherwise returns false.
+You can, but probably shouldn't modify invoices...
  
  
-Only printed may be changed.  printed is normally updated by calling the
-collect method of a customer object (see L<FS::cust_main>).
+Replaces the OLD_RECORD with this one in the database, or, if OLD_RECORD is not
+supplied, replaces this record.  If there is an error, returns the error,
+otherwise returns false.
  
  =cut
  
  
  =cut
  
@@ -238,15 +287,44 @@ collect method of a customer object (see L<FS::cust_main>).
  
  sub replace_check {
    my( $new, $old ) = ( shift, shift );
  
  sub replace_check {
    my( $new, $old ) = ( shift, shift );
-  return "Can't change custnum!" unless $old->custnum == $new->custnum;
+  return "Can't modify closed invoice" if $old->closed =~ /^Y/i;
    #return "Can't change _date!" unless $old->_date eq $new->_date;
    #return "Can't change _date!" unless $old->_date eq $new->_date;
-  return "Can't change _date!" unless $old->_date == $new->_date;
-  return "Can't change charged!" unless $old->charged == $new->charged
-                                     || $old->charged == 0;
+  return "Can't change _date" unless $old->_date == $new->_date;
+  return "Can't change charged" unless $old->charged == $new->charged
+                                    || $old->charged == 0
+                                   || $new->{'Hash'}{'cc_surcharge_replace_hack'};
  
    '';
  }
  
  
    '';
  }
  
+
+=item add_cc_surcharge
+
+Giant hack
+
+=cut
+
+sub add_cc_surcharge {
+    my ($self, $pkgnum, $amount) = (shift, shift, shift);
+
+    my $error;
+    my $cust_bill_pkg = new FS::cust_bill_pkg({
+                                   'invnum' => $self->invnum,
+                                   'pkgnum' => $pkgnum,
+                                   'setup' => $amount,
+                       });
+    $error = $cust_bill_pkg->insert;
+    return $error if $error;
+
+    $self->{'Hash'}{'cc_surcharge_replace_hack'} = 1;
+    $self->charged($self->charged+$amount);
+    $error = $self->replace;
+    return $error if $error;
+
+    $self->apply_payments_and_credits;
+}
+
+
  =item check
  
  Checks all fields to make sure this is a valid invoice.  If there is an error,
  =item check
  
  Checks all fields to make sure this is a valid invoice.  If there is an error,
@@ -355,11 +433,24 @@ this invoice.
  
  sub cust_pkg {
    my $self = shift;
  
  sub cust_pkg {
    my $self = shift;
-  my @cust_pkg = map { $_->cust_pkg } $self->cust_bill_pkg;
+  my @cust_pkg = map { $_->pkgnum > 0 ? $_->cust_pkg : () }
+                     $self->cust_bill_pkg;
    my %saw = ();
    grep { ! $saw{$_->pkgnum}++ } @cust_pkg;
  }
  
    my %saw = ();
    grep { ! $saw{$_->pkgnum}++ } @cust_pkg;
  }
  
+=item no_auto
+
+Returns true if any of the packages (or their definitions) corresponding to the
+line items for this invoice have the no_auto flag set.
+
+=cut
+
+sub no_auto {
+  my $self = shift;
+  grep { $_->no_auto || $_->part_pkg->no_auto } $self->cust_pkg;
+}
+
  =item open_cust_bill_pkg
  
  Returns the open line items for this invoice.
  =item open_cust_bill_pkg
  
  Returns the open line items for this invoice.
@@ -561,44 +652,97 @@ sub cust_credit_bill {
    shift->cust_credited(@_);
  }
  
    shift->cust_credited(@_);
  }
  
-=item cust_bill_pay_pkgnum PKGNUM
+#=item cust_bill_pay_pkgnum PKGNUM
+#
+#Returns all payment applications (see L<FS::cust_bill_pay>) for this invoice
+#with matching pkgnum.
+#
+#=cut
+#
+#sub cust_bill_pay_pkgnum {
+#  my( $self, $pkgnum ) = @_;
+#  map { $_ } #return $self->num_cust_bill_pay_pkgnum($pkgnum) unless wantarray;
+#  sort { $a->_date <=> $b->_date }
+#    qsearch( 'cust_bill_pay', { 'invnum' => $self->invnum,
+#                                'pkgnum' => $pkgnum,
+#                              }
+#           );
+#}
+
+=item cust_bill_pay_pkg PKGNUM
  
  Returns all payment applications (see L<FS::cust_bill_pay>) for this invoice
  
  Returns all payment applications (see L<FS::cust_bill_pay>) for this invoice
-with matching pkgnum.
+applied against the matching pkgnum.
  
  =cut
  
  
  =cut
  
-sub cust_bill_pay_pkgnum {
+sub cust_bill_pay_pkg {
    my( $self, $pkgnum ) = @_;
    my( $self, $pkgnum ) = @_;
-  map { $_ } #return $self->num_cust_bill_pay_pkgnum($pkgnum) unless wantarray;
-  sort { $a->_date <=> $b->_date }
-    qsearch( 'cust_bill_pay', { 'invnum' => $self->invnum,
-                                'pkgnum' => $pkgnum,
-                              }
-           );
+
+  qsearch({
+    'select'    => 'cust_bill_pay_pkg.*',
+    'table'     => 'cust_bill_pay_pkg',
+    'addl_from' => ' LEFT JOIN cust_bill_pay USING ( billpaynum ) '.
+                   ' LEFT JOIN cust_bill_pkg USING ( billpkgnum ) ',
+    'extra_sql' => ' WHERE cust_bill_pkg.invnum = '. $self->invnum.
+                   "   AND cust_bill_pkg.pkgnum = $pkgnum",
+  });
+
  }
  
  }
  
-=item cust_credited_pkgnum PKGNUM
+#=item cust_credited_pkgnum PKGNUM
+#
+#=item cust_credit_bill_pkgnum PKGNUM
+#
+#Returns all applied credits (see L<FS::cust_credit_bill>) for this invoice
+#with matching pkgnum.
+#
+#=cut
+#
+#sub cust_credited_pkgnum {
+#  my( $self, $pkgnum ) = @_;
+#  map { $_ } #return $self->num_cust_credit_bill_pkgnum($pkgnum) unless wantarray;
+#  sort { $a->_date <=> $b->_date }
+#    qsearch( 'cust_credit_bill', { 'invnum' => $self->invnum,
+#                                   'pkgnum' => $pkgnum,
+#                                 }
+#           );
+#}
+#
+#sub cust_credit_bill_pkgnum {
+#  shift->cust_credited_pkgnum(@_);
+#}
  
  
-=item cust_credit_bill_pkgnum PKGNUM
+=item cust_credit_bill_pkg PKGNUM
  
  
-Returns all applied credits (see L<FS::cust_credit_bill>) for this invoice
-with matching pkgnum.
+Returns all credit applications (see L<FS::cust_credit_bill>) for this invoice
+applied against the matching pkgnum.
  
  =cut
  
  
  =cut
  
-sub cust_credited_pkgnum {
+sub cust_credit_bill_pkg {
    my( $self, $pkgnum ) = @_;
    my( $self, $pkgnum ) = @_;
-  map { $_ } #return $self->num_cust_credit_bill_pkgnum($pkgnum) unless wantarray;
-  sort { $a->_date <=> $b->_date }
-    qsearch( 'cust_credit_bill', { 'invnum' => $self->invnum,
-                                   'pkgnum' => $pkgnum,
-                                 }
-           );
+
+  qsearch({
+    'select'    => 'cust_credit_bill_pkg.*',
+    'table'     => 'cust_credit_bill_pkg',
+    'addl_from' => ' LEFT JOIN cust_credit_bill USING ( creditbillnum ) '.
+                   ' LEFT JOIN cust_bill_pkg    USING ( billpkgnum    ) ',
+    'extra_sql' => ' WHERE cust_bill_pkg.invnum = '. $self->invnum.
+                   "   AND cust_bill_pkg.pkgnum = $pkgnum",
+  });
+
  }
  
  }
  
-sub cust_credit_bill_pkgnum {
-  shift->cust_credited_pkgnum(@_);
+=item cust_bill_batch
+
+Returns all invoice batch records (L<FS::cust_bill_batch>) for this invoice.
+
+=cut
+
+sub cust_bill_batch {
+  my $self = shift;
+  qsearch('cust_bill_batch', { 'invnum' => $self->invnum });
  }
  
  =item tax
  }
  
  =item tax
@@ -641,8 +785,8 @@ sub owed_pkgnum {
    my $balance = 0;
    $balance += $_->setup + $_->recur for $self->cust_bill_pkg_pkgnum($pkgnum);
  
    my $balance = 0;
    $balance += $_->setup + $_->recur for $self->cust_bill_pkg_pkgnum($pkgnum);
  
-  $balance -= $_->amount            for $self->cust_bill_pay_pkgnum($pkgnum);
-  $balance -= $_->amount            for $self->cust_credited_pkgnum($pkgnum);
+  $balance -= $_->amount            for $self->cust_bill_pay_pkg($pkgnum);
+  $balance -= $_->amount            for $self->cust_credit_bill_pkg($pkgnum);
  
    $balance = sprintf( "%.2f", $balance);
    $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp
  
    $balance = sprintf( "%.2f", $balance);
    $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp
@@ -823,6 +967,7 @@ sub generate_email {
      'unsquelch_cdr' => $conf->exists('voip-cdr_email'),
      'template'      => $args{'template'},
      'notice_name'   => ( $args{'notice_name'} || 'Invoice' ),
      'unsquelch_cdr' => $conf->exists('voip-cdr_email'),
      'template'      => $args{'template'},
      'notice_name'   => ( $args{'notice_name'} || 'Invoice' ),
+    'no_coupon'     => $args{'no_coupon'},
    );
  
    my $cust_main = $self->cust_main;
    );
  
    my $cust_main = $self->cust_main;
@@ -901,6 +1046,19 @@ sub generate_email {
        'Filename'   => 'logo.png',
        'Content-ID' => "<$content_id>",
      ;
        'Filename'   => 'logo.png',
        'Content-ID' => "<$content_id>",
      ;
+   
+    my $barcode;
+    if($conf->exists('invoice-barcode')){
+       my $barcode_content_id = join('.', rand()*(2**32), $$, time). "\@$from";
+       $barcode = build MIME::Entity
+         'Type'       => 'image/png',
+         'Encoding'   => 'base64',
+         'Data'       => $self->invoice_barcode(0),
+         'Filename'   => 'barcode.png',
+         'Content-ID' => "<$barcode_content_id>",
+       ;
+       $opt{'barcode_cid'} = $barcode_content_id;
+    }
  
      $alternative->attach(
        'Type'        => 'text/html',
  
      $alternative->attach(
        'Type'        => 'text/html',
@@ -974,7 +1132,12 @@ sub generate_email {
        #   image/png
  
        $return{'content-type'} = 'multipart/related';
        #   image/png
  
        $return{'content-type'} = 'multipart/related';
-      $return{'mimeparts'} = [ $alternative, $image, @otherparts ];
+      if($conf->exists('invoice-barcode')){
+         $return{'mimeparts'} = [ $alternative, $image, $barcode, @otherparts ];
+      }
+      else {
+         $return{'mimeparts'} = [ $alternative, $image, @otherparts ];
+      }
        $return{'type'} = 'multipart/alternative'; #Content-Type of first part...
        #$return{'disposition'} = 'inline';
  
        $return{'type'} = 'multipart/alternative'; #Content-Type of first part...
        #$return{'disposition'} = 'inline';
  
@@ -1153,11 +1316,12 @@ sub queueable_email {
    my $self = qsearchs('cust_bill', { 'invnum' => $opt{invnum} } )
      or die "invalid invoice number: " . $opt{invnum};
  
    my $self = qsearchs('cust_bill', { 'invnum' => $opt{invnum} } )
      or die "invalid invoice number: " . $opt{invnum};
  
-  my @args = ( $opt{template} );
-  push @args, $opt{invoice_from}
-    if exists($opt{invoice_from}) && $opt{invoice_from};
+  my %args = ( 'template' => $opt{template} );
+  $args{$_} = $opt{$_}
+    foreach grep { exists($opt{$_}) && $opt{$_} }
+              qw( invoice_from notice_name no_coupon );
  
  
-  my $error = $self->email( @args );
+  my $error = $self->email( \%args );
    die $error if $error;
  
  }
    die $error if $error;
  
  }
@@ -1166,16 +1330,18 @@ sub queueable_email {
  sub email {
    my $self = shift;
  
  sub email {
    my $self = shift;
  
-  my( $template, $invoice_from, $notice_name );
+  my( $template, $invoice_from, $notice_name, $no_coupon );
    if ( ref($_[0]) ) {
      my $opt = shift;
      $template = $opt->{'template'} || '';
      $invoice_from = $opt->{'invoice_from'};
      $notice_name = $opt->{'notice_name'} || 'Invoice';
    if ( ref($_[0]) ) {
      my $opt = shift;
      $template = $opt->{'template'} || '';
      $invoice_from = $opt->{'invoice_from'};
      $notice_name = $opt->{'notice_name'} || 'Invoice';
+    $no_coupon = $opt->{'no_coupon'} || 0;
    } else {
      $template = scalar(@_) ? shift : '';
      $invoice_from = shift if scalar(@_);
      $notice_name = 'Invoice';
    } else {
      $template = scalar(@_) ? shift : '';
      $invoice_from = shift if scalar(@_);
      $notice_name = 'Invoice';
+    $no_coupon = 0;
    }
  
    $invoice_from ||= $self->_agent_invoice_from ||    #XXX should go away
    }
  
    $invoice_from ||= $self->_agent_invoice_from ||    #XXX should go away
@@ -1184,8 +1350,14 @@ sub email {
    my @invoicing_list = grep { $_ !~ /^(POST|FAX)$/ } 
                              $self->cust_main->invoicing_list;
  
    my @invoicing_list = grep { $_ !~ /^(POST|FAX)$/ } 
                              $self->cust_main->invoicing_list;
  
-  #better to notify this person than silence
-  @invoicing_list = ($invoice_from) unless @invoicing_list;
+  if ( ! @invoicing_list ) { #no recipients
+    if ( $conf->exists('cust_bill-no_recipients-error') ) {
+      die 'No recipients for customer #'. $self->custnum;
+    } else {
+      #default: better to notify this person than silence
+      @invoicing_list = ($invoice_from);
+    }
+  }
  
    my $subject = $self->email_subject($template);
  
  
    my $subject = $self->email_subject($template);
  
@@ -1196,6 +1368,7 @@ sub email {
        'subject'     => $subject,
        'template'    => $template,
        'notice_name' => $notice_name,
        'subject'     => $subject,
        'template'    => $template,
        'notice_name' => $notice_name,
+      'no_coupon'   => $no_coupon,
      )
    );
    die "can't email invoice: $error\n" if $error;
      )
    );
    die "can't email invoice: $error\n" if $error;
@@ -1286,7 +1459,13 @@ sub print {
      'notice_name' => $notice_name,
    );
  
      'notice_name' => $notice_name,
    );
  
-  do_print $self->lpr_data(\%opt);
+  if($conf->exists('invoice_print_pdf')) {
+    # Add the invoice to the current batch.
+    $self->batch_invoice(\%opt);
+  }
+  else {
+    do_print $self->lpr_data(\%opt);
+  }
  }
  
  =item fax_invoice HASHREF | [ TEMPLATE ] 
  }
  
  =item fax_invoice HASHREF | [ TEMPLATE ] 
@@ -1332,6 +1511,23 @@ sub fax_invoice {
  
  }
  
  
  }
  
+=item batch_invoice [ HASHREF ]
+
+Place this invoice into the open batch (see C<FS::bill_batch>).  If there 
+isn't an open batch, one will be created.
+
+=cut
+
+sub batch_invoice {
+  my ($self, $opt) = @_;
+  my $batch = FS::bill_batch->get_open_batch;
+  my $cust_bill_batch = FS::cust_bill_batch->new({
+      batchnum => $batch->batchnum,
+      invnum   => $self->invnum,
+  });
+  return $cust_bill_batch->insert($opt);
+}
+
  =item ftp_invoice [ TEMPLATENAME ] 
  
  Sends this invoice data via FTP.
  =item ftp_invoice [ TEMPLATENAME ] 
  
  Sends this invoice data via FTP.
@@ -1872,7 +2068,8 @@ sub realtime_lec {
  }
  
  sub realtime_bop {
  }
  
  sub realtime_bop {
-  my( $self, $method ) = @_;
+  my( $self, $method ) = (shift,shift);
+  my %opt = @_;
  
    my $cust_main = $self->cust_main;
    my $balance = $cust_main->balance;
  
    my $cust_main = $self->cust_main;
    my $balance = $cust_main->balance;
@@ -1898,6 +2095,15 @@ sub realtime_bop {
    $cust_main->realtime_bop($method, $amount,
      'description' => $description,
      'invnum'      => $self->invnum,
    $cust_main->realtime_bop($method, $amount,
      'description' => $description,
      'invnum'      => $self->invnum,
+#this didn't do what we want, it just calls apply_payments_and_credits
+#    'apply'       => 1,
+    'apply_to_invoice' => 1,
+    %opt,
+ #what we want:
+ #this changes application behavior: auto payments
+                        #triggered against a specific invoice are now applied
+                        #to that invoice instead of oldest open.
+                        #seem okay to me...
    );
  
  }
    );
  
  }
@@ -2027,6 +2233,28 @@ sub print_latex {
    close $lh;
    $params{'logo_file'} = $lh->filename;
  
    close $lh;
    $params{'logo_file'} = $lh->filename;
  
+  if($conf->exists('invoice-barcode')){
+      my $png_file = $self->invoice_barcode($dir);
+      my $eps_file = $png_file;
+      $eps_file =~ s/\.png$/.eps/g;
+      $png_file =~ /(barcode.*png)/;
+      $png_file = $1;
+      $eps_file =~ /(barcode.*eps)/;
+      $eps_file = $1;
+
+      my $curr_dir = cwd();
+      chdir($dir); 
+      # after painfuly long experimentation, it was determined that sam2p won't
+      #        accept : and other chars in the path, no matter how hard I tried to
+      # escape them, hence the chdir (and chdir back, just to be safe)
+      system('sam2p', '-j:quiet', $png_file, 'EPS:', $eps_file ) == 0
+       or die "sam2p failed: $!\n";
+      unlink($png_file);
+      chdir($curr_dir);
+
+      $params{'barcode_file'} = $eps_file;
+  }
+
    my @filled_in = $self->print_generic( %params );
    
    my $fh = new File::Temp( TEMPLATE => 'invoice.'. $self->invnum. '.XXXXXXXX',
    my @filled_in = $self->print_generic( %params );
    
    my $fh = new File::Temp( TEMPLATE => 'invoice.'. $self->invnum. '.XXXXXXXX',
@@ -2038,10 +2266,39 @@ sub print_latex {
    close $fh;
  
    $fh->filename =~ /^(.*).tex$/ or die "unparsable filename: ". $fh->filename;
    close $fh;
  
    $fh->filename =~ /^(.*).tex$/ or die "unparsable filename: ". $fh->filename;
-  return ($1, $params{'logo_file'});
+  return ($1, $params{'logo_file'}, $params{'barcode_file'});
  
  }
  
  
  }
  
+=item invoice_barcode DIR_OR_FALSE
+
+Generates an invoice barcode PNG. If DIR_OR_FALSE is a true value,
+it is taken as the temp directory where the PNG file will be generated and the
+PNG file name is returned. Otherwise, the PNG image itself is returned.
+
+=cut
+
+sub invoice_barcode {
+    my ($self, $dir) = (shift,shift);
+    
+    my $gdbar = new GD::Barcode('Code39',$self->invnum);
+       die "can't create barcode: " . $GD::Barcode::errStr unless $gdbar;
+    my $gd = $gdbar->plot(Height => 30);
+
+    if($dir) {
+       my $bh = new File::Temp( TEMPLATE => 'barcode.'. $self->invnum. '.XXXXXXXX',
+                          DIR      => $dir,
+                          SUFFIX   => '.png',
+                          UNLINK   => 0,
+                        ) or die "can't open temp file: $!\n";
+       print $bh $gd->png or die "cannot write barcode to file: $!\n";
+       my $png_file = $bh->filename;
+       close $bh;
+       return $png_file;
+    }
+    return $gd->png;
+}
+
  =item print_generic OPTION => VALUE ...
  
  Internal method - returns a filled-in template for this invoice as a scalar.
  =item print_generic OPTION => VALUE ...
  
  Internal method - returns a filled-in template for this invoice as a scalar.
@@ -2092,11 +2349,14 @@ sub print_generic {
                       'template' => [ '{', '}' ],
                     );
  
                       'template' => [ '{', '}' ],
                     );
  
+  warn "$me print_generic creating template\n"
+    if $DEBUG > 1;
+
    #create the template
    my $template = $params{template} ? $params{template} : $self->_agent_template;
    my $templatefile = "invoice_$format";
    $templatefile .= "_$template"
    #create the template
    my $template = $params{template} ? $params{template} : $self->_agent_template;
    my $templatefile = "invoice_$format";
    $templatefile .= "_$template"
-    if length($template);
+    if length($template) && $conf->exists($templatefile."_$template");
    my @invoice_template = map "$_\n", $conf->config($templatefile)
      or die "cannot load config data $templatefile";
  
    my @invoice_template = map "$_\n", $conf->config($templatefile)
      or die "cannot load config data $templatefile";
  
@@ -2109,12 +2369,18 @@ sub print_generic {
      @invoice_template = _translate_old_latex_format(@invoice_template);
    } 
  
      @invoice_template = _translate_old_latex_format(@invoice_template);
    } 
  
+  warn "$me print_generic creating T:T object\n"
+    if $DEBUG > 1;
+
    my $text_template = new Text::Template(
      TYPE => 'ARRAY',
      SOURCE => \@invoice_template,
      DELIMITERS => $delimiters{$format},
    );
  
    my $text_template = new Text::Template(
      TYPE => 'ARRAY',
      SOURCE => \@invoice_template,
      DELIMITERS => $delimiters{$format},
    );
  
+  warn "$me print_generic compiling T:T object\n"
+    if $DEBUG > 1;
+
    $text_template->compile()
      or die "Can't compile $templatefile: $Text::Template::ERROR\n";
  
    $text_template->compile()
      or die "Can't compile $templatefile: $Text::Template::ERROR\n";
  
@@ -2205,15 +2471,19 @@ sub print_generic {
    my $nbsp = $nbsps{$format};
  
    my %escape_functions = ( 'latex'    => \&_latex_escape,
    my $nbsp = $nbsps{$format};
  
    my %escape_functions = ( 'latex'    => \&_latex_escape,
-                           'html'     => \&encode_entities,
+                           'html'     => \&_html_escape_nbsp,#\&encode_entities,
                             'template' => sub { shift },
                           );
    my $escape_function = $escape_functions{$format};
                             'template' => sub { shift },
                           );
    my $escape_function = $escape_functions{$format};
+  my $escape_function_nonbsp = ($format eq 'html')
+                                 ? \&_html_escape : $escape_function;
  
  
-  my %date_formats = ( 'latex'    => '%b %o, %Y',
-                       'html'     => '%b&nbsp;%o,&nbsp;%Y',
+  my %date_formats = ( 'latex'    => $date_format_long,
+                       'html'     => $date_format_long,
                         'template' => '%s',
                       );
                         'template' => '%s',
                       );
+  $date_formats{'html'} =~ s/ /&nbsp;/g;
+
    my $date_format = $date_formats{$format};
  
    my %embolden_functions = ( 'latex'    => sub { return '\textbf{'. shift(). '}'
    my $date_format = $date_formats{$format};
  
    my %embolden_functions = ( 'latex'    => sub { return '\textbf{'. shift(). '}'
@@ -2224,6 +2494,14 @@ sub print_generic {
                             );
    my $embolden_function = $embolden_functions{$format};
  
                             );
    my $embolden_function = $embolden_functions{$format};
  
+  my %newline_tokens = (  'latex'     => '\\\\',
+                          'html'      => '<br>',
+                          'template'  => "\n",
+                        );
+  my $newline_token = $newline_tokens{$format};
+
+  warn "$me generating template variables\n"
+    if $DEBUG > 1;
  
    # generate template variables
    my $returnaddress;
  
    # generate template variables
    my $returnaddress;
@@ -2277,23 +2555,29 @@ sub print_generic {
  
    }
  
  
    }
  
+  warn "$me generating invoice data\n"
+    if $DEBUG > 1;
+
+  my $agentnum = $self->cust_main->agentnum;
+
    my %invoice_data = (
  
      #invoice from info
    my %invoice_data = (
  
      #invoice from info
-    'company_name'    => scalar( $conf->config('company_name', $self->cust_main->agentnum) ),
-    'company_address' => join("\n", $conf->config('company_address', $self->cust_main->agentnum) ). "\n",
+    'company_name'    => scalar( $conf->config('company_name', $agentnum) ),
+    'company_address' => join("\n", $conf->config('company_address', $agentnum) ). "\n",
+    'company_phonenum'=> scalar( $conf->config('company_phonenum', $agentnum) ),
      'returnaddress'   => $returnaddress,
      'agent'           => &$escape_function($cust_main->agent->agent),
  
      #invoice info
      'invnum'          => $self->invnum,
      'date'            => time2str($date_format, $self->_date),
      'returnaddress'   => $returnaddress,
      'agent'           => &$escape_function($cust_main->agent->agent),
  
      #invoice info
      'invnum'          => $self->invnum,
      'date'            => time2str($date_format, $self->_date),
-    'today'           => time2str('%b %o, %Y', $today),
+    'today'           => time2str($date_format_long, $today),
      'terms'           => $self->terms,
      'template'        => $template, #params{'template'},
      'notice_name'     => ($params{'notice_name'} || 'Invoice'),#escape_function?
      'current_charges' => sprintf("%.2f", $self->charged),
      'terms'           => $self->terms,
      'template'        => $template, #params{'template'},
      'notice_name'     => ($params{'notice_name'} || 'Invoice'),#escape_function?
      'current_charges' => sprintf("%.2f", $self->charged),
-    'duedate'         => $self->due_date2str('%m/%d/%Y'), #date_format?
+    'duedate'         => $self->due_date2str($rdate_format), #date_format?
  
      #customer info
      'custnum'         => $cust_main->display_custnum,
  
      #customer info
      'custnum'         => $cust_main->display_custnum,
@@ -2307,7 +2591,21 @@ sub print_generic {
      'unitprices'      => $conf->exists('invoice-unitprice'),
      'smallernotes'    => $conf->exists('invoice-smallernotes'),
      'smallerfooter'   => $conf->exists('invoice-smallerfooter'),
      'unitprices'      => $conf->exists('invoice-unitprice'),
      'smallernotes'    => $conf->exists('invoice-smallernotes'),
      'smallerfooter'   => $conf->exists('invoice-smallerfooter'),
+    'balance_due_below_line' => $conf->exists('balance_due_below_line'),
     
     
+    #layout info -- would be fancy to calc some of this and bury the template
+    #               here in the code
+    'topmargin'             => scalar($conf->config('invoice_latextopmargin', $agentnum)),
+    'headsep'               => scalar($conf->config('invoice_latexheadsep', $agentnum)),
+    'textheight'            => scalar($conf->config('invoice_latextextheight', $agentnum)),
+    'extracouponspace'      => scalar($conf->config('invoice_latexextracouponspace', $agentnum)),
+    'couponfootsep'         => scalar($conf->config('invoice_latexcouponfootsep', $agentnum)),
+    'verticalreturnaddress' => $conf->exists('invoice_latexverticalreturnaddress', $agentnum),
+    'addresssep'            => scalar($conf->config('invoice_latexaddresssep', $agentnum)),
+    'amountenclosedsep'     => scalar($conf->config('invoice_latexcouponamountenclosedsep', $agentnum)),
+    'coupontoaddresssep'    => scalar($conf->config('invoice_latexcoupontoaddresssep', $agentnum)),
+    'addcompanytoaddress'   => $conf->exists('invoice_latexcouponaddcompanytoaddress', $agentnum),
+
      # better hang on to conf_dir for a while (for old templates)
      'conf_dir'        => "$FS::UID::conf_dir/conf.$FS::UID::datasrc",
  
      # better hang on to conf_dir for a while (for old templates)
      'conf_dir'        => "$FS::UID::conf_dir/conf.$FS::UID::datasrc",
  
@@ -2316,6 +2614,21 @@ sub print_generic {
      'total_pages'     => 1,
  
    );
      'total_pages'     => 1,
  
    );
+  
+  my $min_sdate = 999999999999;
+  my $max_edate = 0;
+  foreach my $cust_bill_pkg ( $self->cust_bill_pkg ) {
+    next unless $cust_bill_pkg->pkgnum > 0;
+    $min_sdate = $cust_bill_pkg->sdate
+      if length($cust_bill_pkg->sdate) && $cust_bill_pkg->sdate < $min_sdate;
+    $max_edate = $cust_bill_pkg->edate
+      if length($cust_bill_pkg->edate) && $cust_bill_pkg->edate > $max_edate;
+  }
+
+  $invoice_data{'bill_period'} = '';
+  $invoice_data{'bill_period'} = time2str('%e %h', $min_sdate) 
+    . " to " . time2str('%e %h', $max_edate)
+    if ($max_edate != 0 && $min_sdate != 999999999999);
  
    $invoice_data{finance_section} = '';
    if ( $conf->config('finance_pkgclass') ) {
  
    $invoice_data{finance_section} = '';
    if ( $conf->config('finance_pkgclass') ) {
@@ -2323,7 +2636,8 @@ sub print_generic {
        qsearchs('pkg_class', { classnum => $conf->config('finance_pkgclass') });
      $invoice_data{finance_section} = $pkg_class->categoryname;
    } 
        qsearchs('pkg_class', { classnum => $conf->config('finance_pkgclass') });
      $invoice_data{finance_section} = $pkg_class->categoryname;
    } 
- $invoice_data{finance_amount} = '0.00';
+  $invoice_data{finance_amount} = '0.00';
+  $invoice_data{finance_section} ||= 'Finance Charges'; #avoid config confusion
  
    my $countrydefault = $conf->config('countrydefault') || 'US';
    my $prefix = $cust_main->has_ship_address ? 'ship_' : '';
  
    my $countrydefault = $conf->config('countrydefault') || 'US';
    my $prefix = $cust_main->has_ship_address ? 'ship_' : '';
@@ -2366,6 +2680,12 @@ sub print_generic {
  
    $invoice_data{'logo_file'} = $params{'logo_file'}
      if $params{'logo_file'};
  
    $invoice_data{'logo_file'} = $params{'logo_file'}
      if $params{'logo_file'};
+  $invoice_data{'barcode_file'} = $params{'barcode_file'}
+    if $params{'barcode_file'};
+  $invoice_data{'barcode_img'} = $params{'barcode_img'}
+    if $params{'barcode_img'};
+  $invoice_data{'barcode_cid'} = $params{'barcode_cid'}
+    if $params{'barcode_cid'};
  
    my( $pr_total, @pr_cust_bill ) = $self->previous; #previous balance
  #  my( $cr_total, @cr_cust_credit ) = $self->cust_credit; #credits
  
    my( $pr_total, @pr_cust_bill ) = $self->previous; #previous balance
  #  my( $cr_total, @cr_cust_credit ) = $self->cust_credit; #credits
@@ -2376,16 +2696,18 @@ sub print_generic {
    $invoice_data{'previous_balance'} = sprintf("%.2f", $pr_total);
    $invoice_data{'balance'} = sprintf("%.2f", $balance_due);
  
    $invoice_data{'previous_balance'} = sprintf("%.2f", $pr_total);
    $invoice_data{'balance'} = sprintf("%.2f", $balance_due);
  
-  my $agentnum = $self->cust_main->agentnum;
-
    my $summarypage = '';
    if ( $conf->exists('invoice_usesummary', $agentnum) ) {
      $summarypage = 1;
    }
    $invoice_data{'summarypage'} = $summarypage;
  
    my $summarypage = '';
    if ( $conf->exists('invoice_usesummary', $agentnum) ) {
      $summarypage = 1;
    }
    $invoice_data{'summarypage'} = $summarypage;
  
-  #do variable substitution in notes, footer, smallfooter
-  foreach my $include (qw( notes footer smallfooter coupon )) {
+  warn "$me substituting variables in notes, footer, smallfooter\n"
+    if $DEBUG > 1;
+
+  my @include = (qw( notes footer smallfooter ));
+  push @include, 'coupon' unless $params{'no_coupon'};
+  foreach my $include (@include) {
  
      my $inc_file = $conf->key_orbase("invoice_${format}$include", $template);
      my @inc_src;
  
      my $inc_file = $conf->key_orbase("invoice_${format}$include", $template);
      my @inc_src;
@@ -2455,12 +2777,15 @@ sub print_generic {
    $invoice_data{'buf'} = \@buf;
    $invoice_data{'sections'} = \@sections;
  
    $invoice_data{'buf'} = \@buf;
    $invoice_data{'sections'} = \@sections;
  
+  warn "$me generating sections\n"
+    if $DEBUG > 1;
+
    my $previous_section = { 'description' => 'Previous Charges',
                             'subtotal'    => $other_money_char.
                                              sprintf('%.2f', $pr_total),
                             'summarized'  => $summarypage ? 'Y' : '',
                           };
    my $previous_section = { 'description' => 'Previous Charges',
                             'subtotal'    => $other_money_char.
                                              sprintf('%.2f', $pr_total),
                             'summarized'  => $summarypage ? 'Y' : '',
                           };
-  $previous_section->{posttotal} = '0 / 30 / 60/ 90 days overdue '. 
+  $previous_section->{posttotal} = '0 / 30 / 60 / 90 days overdue '. 
      join(' / ', map { $cust_main->balance_date_range(@$_) }
                  $self->_prior_month30s
          )
      join(' / ', map { $cust_main->balance_date_range(@$_) }
                  $self->_prior_month30s
          )
@@ -2491,12 +2816,13 @@ sub print_generic {
  
    my $unsquelched = $params{unsquelch_cdr} || $cust_main->squelch_cdr ne 'Y';
    my $multisection = $conf->exists('invoice_sections', $cust_main->agentnum);
  
    my $unsquelched = $params{unsquelch_cdr} || $cust_main->squelch_cdr ne 'Y';
    my $multisection = $conf->exists('invoice_sections', $cust_main->agentnum);
+  $invoice_data{'multisection'} = $multisection;
    my $late_sections = [];
    my $extra_sections = [];
    my $extra_lines = ();
    if ( $multisection ) {
      ($extra_sections, $extra_lines) =
    my $late_sections = [];
    my $extra_sections = [];
    my $extra_lines = ();
    if ( $multisection ) {
      ($extra_sections, $extra_lines) =
-      $self->_items_extra_usage_sections($escape_function, $format)
+      $self->_items_extra_usage_sections($escape_function_nonbsp, $format)
        if $conf->exists('usage_class_as_a_section', $cust_main->agentnum);
  
      push @$extra_sections, $adjust_section if $adjust_section->{sort_weight};
        if $conf->exists('usage_class_as_a_section', $cust_main->agentnum);
  
      push @$extra_sections, $adjust_section if $adjust_section->{sort_weight};
@@ -2505,16 +2831,24 @@ sub print_generic {
      push @sections,
        $self->_items_sections( $late_sections,      # this could stand a refactor
                                $summarypage,
      push @sections,
        $self->_items_sections( $late_sections,      # this could stand a refactor
                                $summarypage,
-                              $escape_function,
+                              $escape_function_nonbsp,
                                $extra_sections,
                                $format,             #bah
                              );
      if ($conf->exists('svc_phone_sections')) {
        my ($phone_sections, $phone_lines) =
                                $extra_sections,
                                $format,             #bah
                              );
      if ($conf->exists('svc_phone_sections')) {
        my ($phone_sections, $phone_lines) =
-        $self->_items_svc_phone_sections($escape_function, $format);
+        $self->_items_svc_phone_sections($escape_function_nonbsp, $format);
        push @{$late_sections}, @$phone_sections;
        push @detail_items, @$phone_lines;
      }
        push @{$late_sections}, @$phone_sections;
        push @detail_items, @$phone_lines;
      }
+    if ($conf->exists('voip-cust_accountcode_cdr') && $cust_main->accountcode_cdr) {
+      my ($accountcode_section, $accountcode_lines) =
+        $self->_items_accountcode_cdr($escape_function_nonbsp,$format);
+      if ( scalar(@$accountcode_lines) ) {
+          push @{$late_sections}, $accountcode_section;
+          push @detail_items, @$accountcode_lines;
+      }
+    }
    }else{
      push @sections, { 'description' => '', 'subtotal' => '' };
    }
    }else{
      push @sections, { 'description' => '', 'subtotal' => '' };
    }
@@ -2524,6 +2858,9 @@ sub print_generic {
           )
    {
  
           )
    {
  
+    warn "$me adding previous balances\n"
+      if $DEBUG > 1;
+
      foreach my $line_item ( $self->_items_previous ) {
  
        my $detail = {
      foreach my $line_item ( $self->_items_previous ) {
  
        my $detail = {
@@ -2549,16 +2886,37 @@ sub print_generic {
      }
  
    }
      }
  
    }
-
+  
    if ( @pr_cust_bill && !$conf->exists('disable_previous_balance') ) {
      push @buf, ['','-----------'];
      push @buf, [ 'Total Previous Balance',
                   $money_char. sprintf("%10.2f", $pr_total) ];
      push @buf, ['',''];
    }
    if ( @pr_cust_bill && !$conf->exists('disable_previous_balance') ) {
      push @buf, ['','-----------'];
      push @buf, [ 'Total Previous Balance',
                   $money_char. sprintf("%10.2f", $pr_total) ];
      push @buf, ['',''];
    }
+ 
+  if ( $conf->exists('svc_phone-did-summary') ) {
+      warn "$me adding DID summary\n"
+        if $DEBUG > 1;
+
+      my ($didsummary,$minutes) = $self->_did_summary;
+      my $didsummary_desc = 'DID Activity Summary (since last invoice)';
+      push @detail_items, 
+       { 'description' => $didsummary_desc,
+           'ext_description' => [ $didsummary, $minutes ],
+       };
+  }
  
    foreach my $section (@sections, @$late_sections) {
  
  
    foreach my $section (@sections, @$late_sections) {
  
+    warn "$me adding section \n". Dumper($section)
+      if $DEBUG > 1;
+
+    # begin some normalization
+    $section->{'subtotal'} = $section->{'amount'}
+      if $multisection
+         && !exists($section->{subtotal})
+         && exists($section->{amount});
+
      $invoice_data{finance_amount} = sprintf('%.2f', $section->{'subtotal'} )
        if ( $invoice_data{finance_section} &&
             $section->{'description'} eq $invoice_data{finance_section} );
      $invoice_data{finance_amount} = sprintf('%.2f', $section->{'subtotal'} )
        if ( $invoice_data{finance_section} &&
             $section->{'description'} eq $invoice_data{finance_section} );
@@ -2567,7 +2925,7 @@ sub print_generic {
                               sprintf('%.2f', $section->{'subtotal'})
        if $multisection;
  
                               sprintf('%.2f', $section->{'subtotal'})
        if $multisection;
  
-    # begin some normalization
+    # continue some normalization
      $section->{'amount'}   = $section->{'subtotal'}
        if $multisection;
  
      $section->{'amount'}   = $section->{'subtotal'}
        if $multisection;
  
@@ -2578,6 +2936,9 @@ sub print_generic {
                   );
      }
  
                   );
      }
  
+    warn "$me   setting options\n"
+      if $DEBUG > 1;
+
      my $multilocation = scalar($cust_main->cust_location); #too expensive?
      my %options = ();
      $options{'section'} = $section if $multisection;
      my $multilocation = scalar($cust_main->cust_location); #too expensive?
      my %options = ();
      $options{'section'} = $section if $multisection;
@@ -2589,8 +2950,16 @@ sub print_generic {
      $options{'skip_usage'} =
        scalar(@$extra_sections) && !grep{$section == $_} @$extra_sections;
      $options{'multilocation'} = $multilocation;
      $options{'skip_usage'} =
        scalar(@$extra_sections) && !grep{$section == $_} @$extra_sections;
      $options{'multilocation'} = $multilocation;
+    $options{'multisection'} = $multisection;
+
+    warn "$me   searching for line items\n"
+      if $DEBUG > 1;
  
      foreach my $line_item ( $self->_items_pkg(%options) ) {
  
      foreach my $line_item ( $self->_items_pkg(%options) ) {
+
+      warn "$me     adding line item $line_item\n"
+        if $DEBUG > 1;
+
        my $detail = {
          ext_description => [],
        };
        my $detail = {
          ext_description => [],
        };
@@ -2630,10 +2999,15 @@ sub print_generic {
    $invoice_data{current_less_finance} =
      sprintf('%.2f', $self->charged - $invoice_data{finance_amount} );
  
    $invoice_data{current_less_finance} =
      sprintf('%.2f', $self->charged - $invoice_data{finance_amount} );
  
-  if ( $multisection && !$conf->exists('disable_previous_balance') ) {
+  if ( $multisection && !$conf->exists('disable_previous_balance')
+    || $conf->exists('previous_balance-summary_only') )
+  {
      unshift @sections, $previous_section if $pr_total;
    }
  
      unshift @sections, $previous_section if $pr_total;
    }
  
+  warn "$me adding taxes\n"
+    if $DEBUG > 1;
+
    foreach my $tax ( $self->_items_tax ) {
  
      $taxtotal += $tax->{'amount'};
    foreach my $tax ( $self->_items_tax ) {
  
      $taxtotal += $tax->{'amount'};
@@ -2697,17 +3071,19 @@ sub print_generic {
  
    {
      my $total = {};
  
    {
      my $total = {};
-    $total->{'total_item'} = &$embolden_function('Total');
+    my $item = 'Total';
+    $item = $conf->config('previous_balance-exclude_from_total')
+         || 'Total New Charges'
+      if $conf->exists('previous_balance-exclude_from_total');
+    my $amount = $self->charged +
+                   ( $conf->exists('disable_previous_balance') ||
+                     $conf->exists('previous_balance-exclude_from_total')
+                     ? 0
+                     : $pr_total
+                   );
+    $total->{'total_item'} = &$embolden_function($item);
      $total->{'total_amount'} =
      $total->{'total_amount'} =
-      &$embolden_function(
-        $other_money_char.
-        sprintf( '%.2f',
-                 $self->charged + ( $conf->exists('disable_previous_balance')
-                                    ? 0
-                                    : $pr_total
-                                  )
-               )
-      );
+      &$embolden_function( $other_money_char.  sprintf( '%.2f', $amount ) );
      if ( $multisection ) {
        if ( $adjust_section->{'sort_weight'} ) {
          $adjust_section->{'posttotal'} = 'Balance Forward '. $other_money_char.
      if ( $multisection ) {
        if ( $adjust_section->{'sort_weight'} ) {
          $adjust_section->{'posttotal'} = 'Balance Forward '. $other_money_char.
@@ -2720,14 +3096,9 @@ sub print_generic {
        push @total_items, $total;
      }
      push @buf,['','-----------'];
        push @total_items, $total;
      }
      push @buf,['','-----------'];
-    push @buf,['Total Charges',
+    push @buf,[$item,
                 $money_char.
                 $money_char.
-               sprintf( '%10.2f', $self->charged +
-                                    ( $conf->exists('disable_previous_balance')
-                                        ? 0
-                                        : $pr_total
-                                    )
-                      )
+               sprintf( '%10.2f', $amount )
                ];
      push @buf,['',''];
    }
                ];
      push @buf,['',''];
    }
@@ -2823,6 +3194,26 @@ sub print_generic {
        push @buf,[$self->balance_due_msg, $money_char. 
          sprintf("%10.2f", $balance_due ) ];
      }
        push @buf,[$self->balance_due_msg, $money_char. 
          sprintf("%10.2f", $balance_due ) ];
      }
+
+    if ( $conf->exists('previous_balance-show_credit')
+        and $cust_main->balance < 0 ) {
+      my $credit_total = {
+        'total_item'    => &$embolden_function($self->credit_balance_msg),
+        'total_amount'  => &$embolden_function(
+          $other_money_char. sprintf('%.2f', -$cust_main->balance)
+        ),
+      };
+      if ( $multisection ) {
+        $adjust_section->{'posttotal'} .= $newline_token .
+          $credit_total->{'total_item'} . ' ' . $credit_total->{'total_amount'};
+      }
+      else {
+        push @total_items, $credit_total;
+      }
+      push @buf,['','-----------'];
+      push @buf,[$self->credit_balance_msg, $money_char. 
+        sprintf("%10.2f", -$cust_main->balance ) ];
+    }
    }
  
    if ( $multisection ) {
    }
  
    if ( $multisection ) {
@@ -2970,9 +3361,10 @@ I<notice_name>, if specified, overrides "Invoice" as the name of the sent docume
  sub print_ps {
    my $self = shift;
  
  sub print_ps {
    my $self = shift;
  
-  my ($file, $lfile) = $self->print_latex(@_);
+  my ($file, $logofile, $barcodefile) = $self->print_latex(@_);
    my $ps = generate_ps($file);
    my $ps = generate_ps($file);
-  unlink($lfile);
+  unlink($logofile);
+  unlink($barcodefile) if $barcodefile;
  
    $ps;
  }
  
    $ps;
  }
@@ -2998,9 +3390,10 @@ I<notice_name>, if specified, overrides "Invoice" as the name of the sent docume
  sub print_pdf {
    my $self = shift;
  
  sub print_pdf {
    my $self = shift;
  
-  my ($file, $lfile) = $self->print_latex(@_);
+  my ($file, $logofile, $barcodefile) = $self->print_latex(@_);
    my $pdf = generate_pdf($file);
    my $pdf = generate_pdf($file);
-  unlink($lfile);
+  unlink($logofile);
+  unlink($barcodefile) if $barcodefile;
  
    $pdf;
  }
  
    $pdf;
  }
@@ -3035,7 +3428,7 @@ sub print_html {
    }
  
    $params{'format'} = 'html';
    }
  
    $params{'format'} = 'html';
-
+  
    $self->print_generic( %params );
  }
  
    $self->print_generic( %params );
  }
  
@@ -3055,6 +3448,18 @@ sub _latex_escape {
    $value;
  }
  
    $value;
  }
  
+sub _html_escape {
+  my $value = shift;
+  encode_entities($value);
+  $value;
+}
+
+sub _html_escape_nbsp {
+  my $value = _html_escape(shift);
+  $value =~ s/ +/&nbsp;/g;
+  $value;
+}
+
  #utility methods for print_*
  
  sub _translate_old_latex_format {
  #utility methods for print_*
  
  sub _translate_old_latex_format {
@@ -3151,7 +3556,7 @@ sub balance_due_msg {
    my $msg = 'Balance Due';
    return $msg unless $self->terms;
    if ( $self->due_date ) {
    my $msg = 'Balance Due';
    return $msg unless $self->terms;
    if ( $self->due_date ) {
-    $msg .= ' - Please pay by '. $self->due_date2str('%x');
+    $msg .= ' - Please pay by '. $self->due_date2str($date_format);
    } elsif ( $self->terms ) {
      $msg .= ' - '. $self->terms;
    }
    } elsif ( $self->terms ) {
      $msg .= ' - '. $self->terms;
    }
@@ -3163,11 +3568,13 @@ sub balance_due_date {
    my $duedate = '';
    if (    $conf->exists('invoice_default_terms') 
         && $conf->config('invoice_default_terms')=~ /^\s*Net\s*(\d+)\s*$/ ) {
    my $duedate = '';
    if (    $conf->exists('invoice_default_terms') 
         && $conf->config('invoice_default_terms')=~ /^\s*Net\s*(\d+)\s*$/ ) {
-    $duedate = time2str("%m/%d/%Y", $self->_date + ($1*86400) );
+    $duedate = time2str($rdate_format, $self->_date + ($1*86400) );
    }
    $duedate;
  }
  
    }
    $duedate;
  }
  
+sub credit_balance_msg { 'Credit Balance Remaining' }
+
  =item invnum_date_pretty
  
  Returns a string with the invoice number and date, for example:
  =item invnum_date_pretty
  
  Returns a string with the invoice number and date, for example:
@@ -3188,7 +3595,7 @@ Returns a string with the date, for example: "3/20/2008"
  
  sub _date_pretty {
    my $self = shift;
  
  sub _date_pretty {
    my $self = shift;
-  time2str('%x', $self->_date);
+  time2str($date_format, $self->_date);
  }
  
  use vars qw(%pkg_category_cache);
  }
  
  use vars qw(%pkg_category_cache);
@@ -3289,6 +3696,7 @@ sub _items_sections {
    if ( $summarypage ) {
      @sections = grep { exists($subtotal{$_}) || ! _pkg_category($_)->disabled }
                  map { $_->categoryname } qsearch('pkg_category', {});
    if ( $summarypage ) {
      @sections = grep { exists($subtotal{$_}) || ! _pkg_category($_)->disabled }
                  map { $_->categoryname } qsearch('pkg_category', {});
+    push @sections, '' if exists($subtotal{''});
    } else {
      @sections = keys %subtotal;
    }
    } else {
      @sections = keys %subtotal;
    }
@@ -3308,7 +3716,7 @@ sub _items_sections {
                      }
                    } @sections;
    push @early, @$extra_sections if $extra_sections;
                      }
                    } @sections;
    push @early, @$extra_sections if $extra_sections;
- 
+
    sort { $a->{sort_weight} <=> $b->{sort_weight} } @early;
  
  }
    sort { $a->{sort_weight} <=> $b->{sort_weight} } @early;
  
  }
@@ -3330,7 +3738,9 @@ my %condensed_format = (
    'fields' => [
                  sub { shift->{description} },
                  sub { shift->{quantity} },
    'fields' => [
                  sub { shift->{description} },
                  sub { shift->{quantity} },
-                sub { shift->{amount} },
+                sub { my($href, %opt) = @_;
+                      ($opt{dollar} || ''). $href->{amount};
+                    },
                ],
    'align'  => [ qw( l r r ) ],
    'span'   => [ qw( 5 1 1 ) ],            # unitprices?
                ],
    'align'  => [ qw( l r r ) ],
    'span'   => [ qw( 5 1 1 ) ],            # unitprices?
@@ -3404,6 +3814,7 @@ sub _condensed_description_generator {
    my ( $f, $prefix, $suffix, $separator, $column ) =
      _condensed_generator_defaults($format);
  
    my ( $f, $prefix, $suffix, $separator, $column ) =
      _condensed_generator_defaults($format);
  
+  my $money_char = '$';
    if ($format eq 'latex') {
      $prefix = "\\hline\n\\multicolumn{1}{c}{\\rule{0pt}{2.5ex}~} &\n";
      $suffix = '\\\\';
    if ($format eq 'latex') {
      $prefix = "\\hline\n\\multicolumn{1}{c}{\\rule{0pt}{2.5ex}~} &\n";
      $suffix = '\\\\';
@@ -3412,6 +3823,7 @@ sub _condensed_description_generator {
        sub { my ($d,$a,$s,$w) = @_;
              return "\\multicolumn{$s}{$a}{\\makebox[$w][$a]{\\textbf{$d}}}";
            };
        sub { my ($d,$a,$s,$w) = @_;
              return "\\multicolumn{$s}{$a}{\\makebox[$w][$a]{\\textbf{$d}}}";
            };
+    $money_char = '\\dollar';
    }elsif ( $format eq 'html' ) {
      $prefix = '"><td align="center"></td>';
      $suffix = '';
    }elsif ( $format eq 'html' ) {
      $prefix = '"><td align="center"></td>';
      $suffix = '';
@@ -3420,16 +3832,22 @@ sub _condensed_description_generator {
        sub { my ($d,$a,$s,$w) = @_;
              return qq!<td align="$html_align{$a}">$d</td>!;
        };
        sub { my ($d,$a,$s,$w) = @_;
              return qq!<td align="$html_align{$a}">$d</td>!;
        };
+    #$money_char = $conf->config('money_char') || '$';
+    $money_char = '';  # this is madness
    }
  
    sub {
    }
  
    sub {
-    my @args = @_;
+    #my @args = @_;
+    my $href = shift;
      my @result = ();
  
      foreach  (my $i = 0; $f->{label}->[$i]; $i++) {
      my @result = ();
  
      foreach  (my $i = 0; $f->{label}->[$i]; $i++) {
-      push @result, &{$column}( &{$f->{fields}->[$i]}(@args),
-                                map { $f->{$_}->[$i] } qw(align span width)
-                              );
+      my $dollar = '';
+      $dollar = $money_char if $i == scalar(@{$f->{label}})-1;
+      push @result,
+        &{$column}( &{$f->{fields}->[$i]}($href, 'dollar' => $dollar),
+                    map { $f->{$_}->[$i] } qw(align span width)
+                  );
      }
  
      $prefix. join( $separator, @result ). $suffix;
      }
  
      $prefix. join( $separator, @result ). $suffix;
@@ -3660,6 +4078,146 @@ sub _items_extra_usage_sections {
  
  }
  
  
  }
  
+sub _did_summary {
+    my $self = shift;
+    my $end = $self->_date;
+
+    # start at date of previous invoice + 1 second or 0 if no previous invoice
+    my $start = $self->scalar_sql("SELECT max(_date) FROM cust_bill WHERE custnum = ? and invnum != ?",$self->custnum,$self->invnum);
+    $start = 0 if !$start;
+    $start++;
+
+    my $cust_main = $self->cust_main;
+    my @pkgs = $cust_main->all_pkgs;
+    my($num_activated,$num_deactivated,$num_portedin,$num_portedout,$minutes)
+       = (0,0,0,0,0);
+    my @seen = ();
+    foreach my $pkg ( @pkgs ) {
+       my @h_cust_svc = $pkg->h_cust_svc($end);
+       foreach my $h_cust_svc ( @h_cust_svc ) {
+           next if grep {$_ eq $h_cust_svc->svcnum} @seen;
+           next unless $h_cust_svc->part_svc->svcdb eq 'svc_phone';
+
+           my $inserted = $h_cust_svc->date_inserted;
+           my $deleted = $h_cust_svc->date_deleted;
+           my $phone_inserted = $h_cust_svc->h_svc_x($inserted);
+           my $phone_deleted;
+           $phone_deleted =  $h_cust_svc->h_svc_x($deleted) if $deleted;
+           
+# DID either activated or ported in; cannot be both for same DID simultaneously
+           if ($inserted >= $start && $inserted <= $end && $phone_inserted
+               && (!$phone_inserted->lnp_status 
+                   || $phone_inserted->lnp_status eq ''
+                   || $phone_inserted->lnp_status eq 'native')) {
+               $num_activated++;
+           }
+           else { # this one not so clean, should probably move to (h_)svc_phone
+                my $phone_portedin = qsearchs( 'h_svc_phone',
+                     { 'svcnum' => $h_cust_svc->svcnum, 
+                       'lnp_status' => 'portedin' },  
+                     FS::h_svc_phone->sql_h_searchs($end),  
+                   );
+                $num_portedin++ if $phone_portedin;
+           }
+
+# DID either deactivated or ported out;        cannot be both for same DID simultaneously
+           if($deleted >= $start && $deleted <= $end && $phone_deleted
+               && (!$phone_deleted->lnp_status 
+                   || $phone_deleted->lnp_status ne 'portingout')) {
+               $num_deactivated++;
+           } 
+           elsif($deleted >= $start && $deleted <= $end && $phone_deleted 
+               && $phone_deleted->lnp_status 
+               && $phone_deleted->lnp_status eq 'portingout') {
+               $num_portedout++;
+           }
+
+           # increment usage minutes
+           my @cdrs = $phone_inserted->get_cdrs('begin'=>$start,'end'=>$end);
+           foreach my $cdr ( @cdrs ) {
+               $minutes += $cdr->billsec/60;
+           }
+
+           # don't look at this service again
+           push @seen, $h_cust_svc->svcnum;
+       }
+    }
+
+    $minutes = sprintf("%d", $minutes);
+    ("Activated: $num_activated  Ported-In: $num_portedin  Deactivated: "
+       . "$num_deactivated  Ported-Out: $num_portedout ",
+           "Total Minutes: $minutes");
+}
+
+sub _items_accountcode_cdr {
+    my $self = shift;
+    my $escape = shift;
+    my $format = shift;
+
+    my $section = { 'amount'        => 0,
+                    'calls'         => 0,
+                    'duration'      => 0,
+                    'sort_weight'   => '',
+                    'phonenum'      => '',
+                    'description'   => 'Usage by Account Code',
+                    'post_total'    => '',
+                    'summarized'    => '',
+                    'header'        => '',
+                  };
+    my @lines;
+    my %accountcodes = ();
+
+    foreach my $cust_bill_pkg ( $self->cust_bill_pkg ) {
+        next unless $cust_bill_pkg->pkgnum > 0;
+
+        my @header = $cust_bill_pkg->details_header;
+        next unless scalar(@header);
+        $section->{'header'} = join(',',@header);
+
+        foreach my $detail ( $cust_bill_pkg->cust_bill_pkg_detail ) {
+
+            $section->{'header'} = $detail->formatted('format' => $format)
+                if($detail->detail eq $section->{'header'}); 
+      
+            my $accountcode = $detail->accountcode;
+            next unless $accountcode;
+
+            my $amount = $detail->amount;
+            next unless $amount && $amount > 0;
+
+            $accountcodes{$accountcode} ||= {
+                    description => $accountcode,
+                    pkgnum      => '',
+                    ref         => '',
+                    amount      => 0,
+                    calls       => 0,
+                    duration    => 0,
+                    quantity    => '',
+                    product_code => 'N/A',
+                    section     => $section,
+                    ext_description => [],
+            };
+
+            $section->{'amount'} += $amount;
+            $accountcodes{$accountcode}{'amount'} += $amount;
+            $accountcodes{$accountcode}{calls}++;
+            $accountcodes{$accountcode}{duration} += $detail->duration;
+            push @{$accountcodes{$accountcode}{ext_description}},
+                $detail->formatted('format' => $format);
+        }
+    }
+
+    foreach my $l ( values %accountcodes ) {
+        $l->{amount} = sprintf( "%.2f", $l->{amount} );
+        unshift @{$l->{ext_description}}, $section->{'header'};
+        push @lines, $l;
+    }
+
+    my @sorted_lines = sort { $a->{'description'} <=> $b->{'description'} } @lines;
+
+    return ($section,\@sorted_lines);
+}
+
  sub _items_svc_phone_sections {
    my $self = shift;
    my $escape = shift;
  sub _items_svc_phone_sections {
    my $self = shift;
    my $escape = shift;
@@ -3670,10 +4228,14 @@ sub _items_svc_phone_sections {
    my %lines = ();
  
    my %usage_class =  map { $_->classnum => $_ } qsearch( 'usage_class', {} );
    my %lines = ();
  
    my %usage_class =  map { $_->classnum => $_ } qsearch( 'usage_class', {} );
+  $usage_class{''} ||= new FS::usage_class { 'classname' => '', 'weight' => 0 };
  
    foreach my $cust_bill_pkg ( $self->cust_bill_pkg ) {
      next unless $cust_bill_pkg->pkgnum > 0;
  
  
    foreach my $cust_bill_pkg ( $self->cust_bill_pkg ) {
      next unless $cust_bill_pkg->pkgnum > 0;
  
+    my @header = $cust_bill_pkg->details_header;
+    next unless scalar(@header);
+
      foreach my $detail ( $cust_bill_pkg->cust_bill_pkg_detail ) {
  
        my $phonenum = $detail->phonenum;
      foreach my $detail ( $cust_bill_pkg->cust_bill_pkg_detail ) {
  
        my $phonenum = $detail->phonenum;
@@ -3722,6 +4284,7 @@ sub _items_svc_phone_sections {
            'duration' => 0,
            'sort_weight' => $usage_class{$detail->classnum}->weight,
            'phonenum' => $phonenum,
            'duration' => 0,
            'sort_weight' => $usage_class{$detail->classnum}->weight,
            'phonenum' => $phonenum,
+          'header'  => [ @header ],
          };
        $sections{"$phonenum $line"}{amount} += $amount;  #subtotal
        $sections{"$phonenum $line"}{calls}++;
          };
        $sections{"$phonenum $line"}{amount} += $amount;  #subtotal
        $sections{"$phonenum $line"}{calls}++;
@@ -3752,11 +4315,17 @@ sub _items_svc_phone_sections {
  
    my %sectionmap = ();
    my $simple = new FS::usage_class { format => 'simple' }; #bleh
  
    my %sectionmap = ();
    my $simple = new FS::usage_class { format => 'simple' }; #bleh
-  my $usage_simple = new FS::usage_class { format => 'usage_simple' }; #bleh
    foreach ( keys %sections ) {
    foreach ( keys %sections ) {
+    my @header = @{ $sections{$_}{header} || [] };
+    my $usage_simple =
+      new FS::usage_class { format => 'usage_'. (scalar(@header) || 6). 'col' };
      my $summary = $sections{$_}{sort_weight} < 0 ? 1 : 0;
      my $usage_class = $summary ? $simple : $usage_simple;
      my $ending = $summary ? ' usage charges' : '';
      my $summary = $sections{$_}{sort_weight} < 0 ? 1 : 0;
      my $usage_class = $summary ? $simple : $usage_simple;
      my $ending = $summary ? ' usage charges' : '';
+    my %gen_opt = ();
+    unless ($summary) {
+      $gen_opt{label} = [ map{ &{$escape}($_) } @header ];
+    }
      $sectionmap{$_} = { 'description' => &{$escape}($_. $ending),
                          'amount'    => $sections{$_}{amount},    #subtotal
                          'calls'       => $sections{$_}{calls},
      $sectionmap{$_} = { 'description' => &{$escape}($_. $ending),
                          'amount'    => $sections{$_}{amount},    #subtotal
                          'calls'       => $sections{$_}{calls},
@@ -3767,7 +4336,7 @@ sub _items_svc_phone_sections {
                          'sort_weight' => $sections{$_}{sort_weight},
                          'post_total'  => $summary, #inspire pagebreak
                          (
                          'sort_weight' => $sections{$_}{sort_weight},
                          'post_total'  => $summary, #inspire pagebreak
                          (
-                          ( map { $_ => $usage_class->$_($format) }
+                          ( map { $_ => $usage_class->$_($format, %gen_opt) }
                              qw( description_generator
                                  header_generator
                                  total_generator
                              qw( description_generator
                                  header_generator
                                  total_generator
@@ -3793,6 +4362,85 @@ sub _items_svc_phone_sections {
        push @lines, $l;
      }
    }
        push @lines, $l;
      }
    }
+  
+  if($conf->exists('phone_usage_class_summary')) { 
+      # this only works with Latex
+      my @newlines;
+      my @newsections;
+
+      # after this, we'll have only two sections per DID:
+      # Calls Summary and Calls Detail
+      foreach my $section ( @sections ) {
+       if($section->{'post_total'}) {
+           $section->{'description'} = 'Calls Summary: '.$section->{'phonenum'};
+           $section->{'total_line_generator'} = sub { '' };
+           $section->{'total_generator'} = sub { '' };
+           $section->{'header_generator'} = sub { '' };
+           $section->{'description_generator'} = '';
+           push @newsections, $section;
+           my %calls_detail = %$section;
+           $calls_detail{'post_total'} = '';
+           $calls_detail{'sort_weight'} = '';
+           $calls_detail{'description_generator'} = sub { '' };
+           $calls_detail{'header_generator'} = sub {
+               return ' & Date/Time & Called Number & Duration & Price'
+                   if $format eq 'latex';
+               '';
+           };
+           $calls_detail{'description'} = 'Calls Detail: '
+                                                   . $section->{'phonenum'};
+           push @newsections, \%calls_detail;  
+       }
+      }
+
+      # after this, each usage class is collapsed/summarized into a single
+      # line under the Calls Summary section
+      foreach my $newsection ( @newsections ) {
+       if($newsection->{'post_total'}) { # this means Calls Summary
+           foreach my $section ( @sections ) {
+               next unless ($section->{'phonenum'} eq $newsection->{'phonenum'} 
+                               && !$section->{'post_total'});
+               my $newdesc = $section->{'description'};
+               my $tn = $section->{'phonenum'};
+               $newdesc =~ s/$tn//g;
+               my $line = {  ext_description => [],
+                             pkgnum => '',
+                             ref => '',
+                             quantity => '',
+                             calls => $section->{'calls'},
+                             section => $newsection,
+                             duration => $section->{'duration'},
+                             description => $newdesc,
+                             amount => sprintf("%.2f",$section->{'amount'}),
+                             product_code => 'N/A',
+                           };
+               push @newlines, $line;
+           }
+       }
+      }
+
+      # after this, Calls Details is populated with all CDRs
+      foreach my $newsection ( @newsections ) {
+       if(!$newsection->{'post_total'}) { # this means Calls Details
+           foreach my $line ( @lines ) {
+               next unless (scalar(@{$line->{'ext_description'}}) &&
+                       $line->{'section'}->{'phonenum'} eq $newsection->{'phonenum'}
+                           );
+               my @extdesc = @{$line->{'ext_description'}};
+               my @newextdesc;
+               foreach my $extdesc ( @extdesc ) {
+                   $extdesc =~ s/scriptsize/normalsize/g if $format eq 'latex';
+                   push @newextdesc, $extdesc;
+               }
+               $line->{'ext_description'} = \@newextdesc;
+               $line->{'section'} = $newsection;
+               push @newlines, $line;
+           }
+       }
+      }
+
+      return(\@newsections, \@newlines);
+  }
  
    return(\@sections, \@lines);
  
  
    return(\@sections, \@lines);
  
@@ -3823,9 +4471,7 @@ sub _items_previous {
    foreach ( @pr_cust_bill ) {
      my $date = $conf->exists('invoice_show_prior_due_date')
                 ? 'due '. $_->due_date2str($date_format)
    foreach ( @pr_cust_bill ) {
      my $date = $conf->exists('invoice_show_prior_due_date')
                 ? 'due '. $_->due_date2str($date_format)
-               : time2str('%x', $_->_date); # date_format here, too,
-                                            # but fix _items_cust_bill_pkg,
-                                            # header, others?
+               : time2str($date_format, $_->_date);
      push @b, {
        'description' => 'Previous Balance, Invoice #'. $_->invnum. " ($date)",
        #'pkgpart'     => 'N/A',
      push @b, {
        'description' => 'Previous Balance, Invoice #'. $_->invnum. " ($date)",
        #'pkgpart'     => 'N/A',
@@ -3852,9 +4498,21 @@ sub _items_previous {
  sub _items_pkg {
    my $self = shift;
    my %options = @_;
  sub _items_pkg {
    my $self = shift;
    my %options = @_;
+
+  warn "$me _items_pkg searching for all package line items\n"
+    if $DEBUG > 1;
+
    my @cust_bill_pkg = grep { $_->pkgnum } $self->cust_bill_pkg;
    my @cust_bill_pkg = grep { $_->pkgnum } $self->cust_bill_pkg;
+
+  warn "$me _items_pkg filtering line items\n"
+    if $DEBUG > 1;
    my @items = $self->_items_cust_bill_pkg(\@cust_bill_pkg, @_);
    my @items = $self->_items_cust_bill_pkg(\@cust_bill_pkg, @_);
+
    if ($options{section} && $options{section}->{condensed}) {
    if ($options{section} && $options{section}->{condensed}) {
+
+    warn "$me _items_pkg condensing section\n"
+      if $DEBUG > 1;
+
      my %itemshash = ();
      local $Storable::canonical = 1;
      foreach ( @items ) {
      my %itemshash = ();
      local $Storable::canonical = 1;
      foreach ( @items ) {
@@ -3874,16 +4532,20 @@ sub _items_pkg {
                   }
               keys %itemshash;
    }
                   }
               keys %itemshash;
    }
+
+  warn "$me _items_pkg returning ". scalar(@items). " items\n"
+    if $DEBUG > 1;
+
    @items;
  }
  
  sub _taxsort {
    @items;
  }
  
  sub _taxsort {
-  return 0 unless $a cmp $b;
-  return -1 if $b eq 'Tax';
-  return 1 if $a eq 'Tax';
-  return -1 if $b eq 'Other surcharges';
-  return 1 if $a eq 'Other surcharges';
-  $a cmp $b;
+  return 0 unless $a->itemdesc cmp $b->itemdesc;
+  return -1 if $b->itemdesc eq 'Tax';
+  return 1 if $a->itemdesc eq 'Tax';
+  return -1 if $b->itemdesc eq 'Other surcharges';
+  return 1 if $a->itemdesc eq 'Other surcharges';
+  $a->itemdesc cmp $b->itemdesc;
  }
  
  sub _items_tax {
  }
  
  sub _items_tax {
@@ -3894,7 +4556,7 @@ sub _items_tax {
  
  sub _items_cust_bill_pkg {
    my $self = shift;
  
  sub _items_cust_bill_pkg {
    my $self = shift;
-  my $cust_bill_pkg = shift;
+  my $cust_bill_pkgs = shift;
    my %opt = @_;
  
    my $format = $opt{format} || '';
    my %opt = @_;
  
    my $format = $opt{format} || '';
@@ -3904,32 +4566,31 @@ sub _items_cust_bill_pkg {
    my $section = $opt{section}->{description} if $opt{section};
    my $summary_page = $opt{summary_page} || '';
    my $multilocation = $opt{multilocation} || '';
    my $section = $opt{section}->{description} if $opt{section};
    my $summary_page = $opt{summary_page} || '';
    my $multilocation = $opt{multilocation} || '';
+  my $multisection = $opt{multisection} || '';
+  my $discount_show_always = 0;
  
    my @b = ();
    my ($s, $r, $u) = ( undef, undef, undef );
  
    my @b = ();
    my ($s, $r, $u) = ( undef, undef, undef );
-  foreach my $cust_bill_pkg ( @$cust_bill_pkg )
+  foreach my $cust_bill_pkg ( @$cust_bill_pkgs )
    {
  
    {
  
-    foreach ( $s, $r, ($opt{skip_usage} ? () : $u ) ) {
-      if ( $_ && !$cust_bill_pkg->hidden ) {
-        $_->{amount}      = sprintf( "%.2f", $_->{amount} ),
-        $_->{amount}      =~ s/^\-0\.00$/0.00/;
-        $_->{unit_amount} = sprintf( "%.2f", $_->{unit_amount} ),
-        push @b, { %$_ }
-          unless $_->{amount} == 0;
-        $_ = undef;
-      }
-    }
+    warn "$me _items_cust_bill_pkg considering cust_bill_pkg ".
+         $cust_bill_pkg->billpkgnum. ", pkgnum ". $cust_bill_pkg->pkgnum. "\n"
+      if $DEBUG > 1;
  
      foreach my $display ( grep { defined($section)
                                   ? $_->section eq $section
                                   : 1
                                 }
  
      foreach my $display ( grep { defined($section)
                                   ? $_->section eq $section
                                   : 1
                                 }
-                          grep { !$_->summary || !$summary_page }
+                          #grep { !$_->summary || !$summary_page } # bunk!
+                          grep { !$_->summary || $multisection }
                            $cust_bill_pkg->cust_bill_pkg_display
                          )
      {
  
                            $cust_bill_pkg->cust_bill_pkg_display
                          )
      {
  
+      warn "$me _items_cust_bill_pkg considering display item $display\n"
+        if $DEBUG > 1;
+
        my $type = $display->type;
  
        my $desc = $cust_bill_pkg->desc;
        my $type = $display->type;
  
        my $desc = $cust_bill_pkg->desc;
@@ -3943,10 +4604,16 @@ sub _items_cust_bill_pkg {
  
        if ( $cust_bill_pkg->pkgnum > 0 ) {
  
  
        if ( $cust_bill_pkg->pkgnum > 0 ) {
  
+        warn "$me _items_cust_bill_pkg cust_bill_pkg is non-tax\n"
+          if $DEBUG > 1;
+ 
          my $cust_pkg = $cust_bill_pkg->cust_pkg;
  
          if ( $cust_bill_pkg->setup != 0 && (!$type || $type eq 'S') ) {
  
          my $cust_pkg = $cust_bill_pkg->cust_pkg;
  
          if ( $cust_bill_pkg->setup != 0 && (!$type || $type eq 'S') ) {
  
+          warn "$me _items_cust_bill_pkg adding setup\n"
+            if $DEBUG > 1;
+
            my $description = $desc;
            $description .= ' Setup' if $cust_bill_pkg->recur != 0;
  
            my $description = $desc;
            $description .= ' Setup' if $cust_bill_pkg->recur != 0;
  
@@ -3954,15 +4621,20 @@ sub _items_cust_bill_pkg {
            unless ( $cust_pkg->part_pkg->hide_svc_detail
                  || $cust_bill_pkg->hidden )
            {
            unless ( $cust_pkg->part_pkg->hide_svc_detail
                  || $cust_bill_pkg->hidden )
            {
+
              push @d, map &{$escape_function}($_),
              push @d, map &{$escape_function}($_),
-                         $cust_pkg->h_labels_short($self->_date);
+                         $cust_pkg->h_labels_short($self->_date, undef, 'I')
+              unless $cust_bill_pkg->pkgpart_override; #don't redisplay services
+
              if ( $multilocation ) {
                my $loc = $cust_pkg->location_label;
              if ( $multilocation ) {
                my $loc = $cust_pkg->location_label;
-              $loc = substr($desc, 0, 50). '...'
+              $loc = substr($loc, 0, 50). '...'
                  if $format eq 'latex' && length($loc) > 50;
                push @d, &{$escape_function}($loc);
              }
                  if $format eq 'latex' && length($loc) > 50;
                push @d, &{$escape_function}($loc);
              }
+
            }
            }
+
            push @d, $cust_bill_pkg->details(%details_opt)
              if $cust_bill_pkg->recur == 0;
  
            push @d, $cust_bill_pkg->details(%details_opt)
              if $cust_bill_pkg->recur == 0;
  
@@ -3984,19 +4656,27 @@ sub _items_cust_bill_pkg {
  
          }
  
  
          }
  
-        if ( $cust_bill_pkg->recur != 0 &&
-             ( !$type || $type eq 'R' || $type eq 'U' )
+        if (    ( !$type || $type eq 'R' || $type eq 'U' )
+             && (
+                     $cust_bill_pkg->recur != 0
+                  || $cust_bill_pkg->setup == 0
+                  || $discount_show_always
+                  || $cust_bill_pkg->recur_show_zero
+                )
             )
          {
  
             )
          {
  
+          warn "$me _items_cust_bill_pkg adding recur/usage\n"
+            if $DEBUG > 1;
+
            my $is_summary = $display->summary;
            my $description = ($is_summary && $type && $type eq 'U')
                              ? "Usage charges" : $desc;
  
            my $is_summary = $display->summary;
            my $description = ($is_summary && $type && $type eq 'U')
                              ? "Usage charges" : $desc;
  
-          unless ( $conf->exists('disable_line_item_date_ranges') ) {
-            $description .= " (" . time2str("%x", $cust_bill_pkg->sdate).
-                            " - ". time2str("%x", $cust_bill_pkg->edate). ")";
-          }
+          $description .= " (" . time2str($date_format, $cust_bill_pkg->sdate).
+                          " - ". time2str($date_format, $cust_bill_pkg->edate).
+                          ")"
+            unless $conf->exists('disable_line_item_date_ranges');
  
            my @d = ();
  
  
            my @d = ();
  
@@ -4005,39 +4685,64 @@ sub _items_cust_bill_pkg {
            my @dates = ( $self->_date );
            my $prev = $cust_bill_pkg->previous_cust_bill_pkg;
            push @dates, $prev->sdate if $prev;
            my @dates = ( $self->_date );
            my $prev = $cust_bill_pkg->previous_cust_bill_pkg;
            push @dates, $prev->sdate if $prev;
+          push @dates, undef if !$prev;
  
            unless ( $cust_pkg->part_pkg->hide_svc_detail
                  || $cust_bill_pkg->itemdesc
                  || $cust_bill_pkg->hidden
                  || $is_summary && $type && $type eq 'U' )
            {
  
            unless ( $cust_pkg->part_pkg->hide_svc_detail
                  || $cust_bill_pkg->itemdesc
                  || $cust_bill_pkg->hidden
                  || $is_summary && $type && $type eq 'U' )
            {
+
+            warn "$me _items_cust_bill_pkg adding service details\n"
+              if $DEBUG > 1;
+
              push @d, map &{$escape_function}($_),
              push @d, map &{$escape_function}($_),
-                         $cust_pkg->h_labels_short(@dates)
+                         $cust_pkg->h_labels_short(@dates, 'I')
                                                     #$cust_bill_pkg->edate,
                                                     #$cust_bill_pkg->sdate)
                                                     #$cust_bill_pkg->edate,
                                                     #$cust_bill_pkg->sdate)
-            ;
+              unless $cust_bill_pkg->pkgpart_override; #don't redisplay services
+
+            warn "$me _items_cust_bill_pkg done adding service details\n"
+              if $DEBUG > 1;
+
              if ( $multilocation ) {
                my $loc = $cust_pkg->location_label;
              if ( $multilocation ) {
                my $loc = $cust_pkg->location_label;
-              $loc = substr($desc, 0, 50). '...'
+              $loc = substr($loc, 0, 50). '...'
                  if $format eq 'latex' && length($loc) > 50;
                push @d, &{$escape_function}($loc);
              }
                  if $format eq 'latex' && length($loc) > 50;
                push @d, &{$escape_function}($loc);
              }
+
            }
  
            }
  
-          push @d, $cust_bill_pkg->details(%details_opt)
-            unless ($is_summary || $type && $type eq 'R');
+          unless ( $is_summary ) {
+            warn "$me _items_cust_bill_pkg adding details\n"
+              if $DEBUG > 1;
+
+            #instead of omitting details entirely in this case (unwanted side
+            # effects), just omit CDRs
+            $details_opt{'format_function'} = sub { () }
+              if $type && $type eq 'R';
+
+            push @d, $cust_bill_pkg->details(%details_opt);
+          }
+
+          warn "$me _items_cust_bill_pkg calculating amount\n"
+            if $DEBUG > 1;
    
            my $amount = 0;
            if (!$type) {
              $amount = $cust_bill_pkg->recur;
    
            my $amount = 0;
            if (!$type) {
              $amount = $cust_bill_pkg->recur;
-          }elsif($type eq 'R') {
+          } elsif ($type eq 'R') {
              $amount = $cust_bill_pkg->recur - $cust_bill_pkg->usage;
              $amount = $cust_bill_pkg->recur - $cust_bill_pkg->usage;
-          }elsif($type eq 'U') {
+          } elsif ($type eq 'U') {
              $amount = $cust_bill_pkg->usage;
            }
    
            if ( !$type || $type eq 'R' ) {
  
              $amount = $cust_bill_pkg->usage;
            }
    
            if ( !$type || $type eq 'R' ) {
  
+            warn "$me _items_cust_bill_pkg adding recur\n"
+              if $DEBUG > 1;
+
              if ( $cust_bill_pkg->hidden ) {
                $r->{amount}      += $amount;
                $r->{unit_amount} += $cust_bill_pkg->unitrecur;
              if ( $cust_bill_pkg->hidden ) {
                $r->{amount}      += $amount;
                $r->{unit_amount} += $cust_bill_pkg->unitrecur;
@@ -4054,7 +4759,10 @@ sub _items_cust_bill_pkg {
                };
              }
  
                };
              }
  
-          } elsif ( $amount ) {  # && $type eq 'U'
+          } else {  # $type eq 'U'
+
+            warn "$me _items_cust_bill_pkg adding usage\n"
+              if $DEBUG > 1;
  
              if ( $cust_bill_pkg->hidden ) {
                $u->{amount}      += $amount;
  
              if ( $cust_bill_pkg->hidden ) {
                $u->{amount}      += $amount;
@@ -4071,13 +4779,15 @@ sub _items_cust_bill_pkg {
                  ext_description => \@d,
                };
              }
                  ext_description => \@d,
                };
              }
-
            }
  
          } # recurring or usage with recurring charge
  
        } else { #pkgnum tax or one-shot line item (??)
  
            }
  
          } # recurring or usage with recurring charge
  
        } else { #pkgnum tax or one-shot line item (??)
  
+        warn "$me _items_cust_bill_pkg cust_bill_pkg is tax\n"
+          if $DEBUG > 1;
+
          if ( $cust_bill_pkg->setup != 0 ) {
            push @b, {
              'description' => $desc,
          if ( $cust_bill_pkg->setup != 0 ) {
            push @b, {
              'description' => $desc,
@@ -4087,8 +4797,8 @@ sub _items_cust_bill_pkg {
          if ( $cust_bill_pkg->recur != 0 ) {
            push @b, {
              'description' => "$desc (".
          if ( $cust_bill_pkg->recur != 0 ) {
            push @b, {
              'description' => "$desc (".
-                             time2str("%x", $cust_bill_pkg->sdate). ' - '.
-                             time2str("%x", $cust_bill_pkg->edate). ')',
+                             time2str($date_format, $cust_bill_pkg->sdate). ' - '.
+                             time2str($date_format, $cust_bill_pkg->edate). ')',
              'amount'      => sprintf("%.2f", $cust_bill_pkg->recur),
            };
          }
              'amount'      => sprintf("%.2f", $cust_bill_pkg->recur),
            };
          }
@@ -4097,18 +4807,38 @@ sub _items_cust_bill_pkg {
  
      }
  
  
      }
  
-  }
+    $discount_show_always = ($cust_bill_pkg->cust_bill_pkg_discount
+                                && $conf->exists('discount-show-always'));
  
  
-  foreach ( $s, $r, ($opt{skip_usage} ? () : $u ) ) {
-    if ( $_  ) {
-      $_->{amount}      = sprintf( "%.2f", $_->{amount} ),
-      $_->{amount}      =~ s/^\-0\.00$/0.00/;
-      $_->{unit_amount} = sprintf( "%.2f", $_->{unit_amount} ),
-      push @b, { %$_ }
-        unless $_->{amount} == 0;
+    foreach ( $s, $r, ($opt{skip_usage} ? () : $u ) ) {
+      if ( $_ && !$cust_bill_pkg->hidden ) {
+        $_->{amount}      = sprintf( "%.2f", $_->{amount} ),
+        $_->{amount}      =~ s/^\-0\.00$/0.00/;
+        $_->{unit_amount} = sprintf( "%.2f", $_->{unit_amount} ),
+        push @b, { %$_ }
+          if $_->{amount} != 0
+          || $discount_show_always
+          || $cust_bill_pkg->recur_show_zero;
+        $_ = undef;
+      }
      }
      }
+
    }
  
    }
  
+  #foreach ( $s, $r, ($opt{skip_usage} ? () : $u ) ) {
+  #  if ( $_  ) {
+  #    $_->{amount}      = sprintf( "%.2f", $_->{amount} ),
+  #    $_->{amount}      =~ s/^\-0\.00$/0.00/;
+  #    $_->{unit_amount} = sprintf( "%.2f", $_->{unit_amount} ),
+  #    push @b, { %$_ }
+  #      if $_->{amount} != 0
+  #      || $discount_show_always
+  #  }
+  #}
+
+  warn "$me _items_cust_bill_pkg done considering cust_bill_pkgs\n"
+    if $DEBUG > 1;
+
    @b;
  
  }
    @b;
  
  }
@@ -4132,7 +4862,7 @@ sub _items_credits {
        #                 " (". time2str("%x",$_->cust_credit->_date) .")".
        #                 $reason,
        'description' => 'Credit applied '.
        #                 " (". time2str("%x",$_->cust_credit->_date) .")".
        #                 $reason,
        'description' => 'Credit applied '.
-                       time2str("%x",$_->cust_credit->_date). $reason,
+                       time2str($date_format,$_->cust_credit->_date). $reason,
        'amount'      => sprintf("%.2f",$_->amount),
      };
    }
        'amount'      => sprintf("%.2f",$_->amount),
      };
    }
@@ -4152,7 +4882,7 @@ sub _items_payments {
  
      push @b, {
        'description' => "Payment received ".
  
      push @b, {
        'description' => "Payment received ".
-                       time2str("%x",$_->cust_pay->_date ),
+                       time2str($date_format,$_->cust_pay->_date ),
        'amount'      => sprintf("%.2f", $_->amount )
      };
    }
        'amount'      => sprintf("%.2f", $_->amount )
      };
    }
@@ -4320,8 +5050,10 @@ Returns an SQL fragment to retreive the amount owed (charged minus credited and
  =cut
  
  sub owed_sql {
  =cut
  
  sub owed_sql {
-  my $class = shift;
-  'charged - '. $class->paid_sql. ' - '. $class->credited_sql;
+  my ($class, $start, $end) = @_;
+  'charged - '. 
+    $class->paid_sql($start, $end). ' - '. 
+    $class->credited_sql($start, $end);
  }
  
  =item net_sql
  }
  
  =item net_sql
@@ -4331,8 +5063,8 @@ Returns an SQL fragment to retreive the net amount (charged minus credited).
  =cut
  
  sub net_sql {
  =cut
  
  sub net_sql {
-  my $class = shift;
-  'charged - '. $class->credited_sql;
+  my ($class, $start, $end) = @_;
+  'charged - '. $class->credited_sql($start, $end);
  }
  
  =item paid_sql
  }
  
  =item paid_sql
@@ -4342,9 +5074,13 @@ Returns an SQL fragment to retreive the amount paid against this invoice.
  =cut
  
  sub paid_sql {
  =cut
  
  sub paid_sql {
-  #my $class = shift;
+  my ($class, $start, $end) = @_;
+  $start &&= "AND cust_bill_pay._date <= $start";
+  $end   &&= "AND cust_bill_pay._date > $end";
+  $start = '' unless defined($start);
+  $end   = '' unless defined($end);
    "( SELECT COALESCE(SUM(amount),0) FROM cust_bill_pay
    "( SELECT COALESCE(SUM(amount),0) FROM cust_bill_pay
-       WHERE cust_bill.invnum = cust_bill_pay.invnum   )";
+       WHERE cust_bill.invnum = cust_bill_pay.invnum $start $end  )";
  }
  
  =item credited_sql
  }
  
  =item credited_sql
@@ -4354,9 +5090,32 @@ Returns an SQL fragment to retreive the amount credited against this invoice.
  =cut
  
  sub credited_sql {
  =cut
  
  sub credited_sql {
-  #my $class = shift;
+  my ($class, $start, $end) = @_;
+  $start &&= "AND cust_credit_bill._date <= $start";
+  $end   &&= "AND cust_credit_bill._date >  $end";
+  $start = '' unless defined($start);
+  $end   = '' unless defined($end);
    "( SELECT COALESCE(SUM(amount),0) FROM cust_credit_bill
    "( SELECT COALESCE(SUM(amount),0) FROM cust_credit_bill
-       WHERE cust_bill.invnum = cust_credit_bill.invnum   )";
+       WHERE cust_bill.invnum = cust_credit_bill.invnum $start $end  )";
+}
+
+=item due_date_sql
+
+Returns an SQL fragment to retrieve the due date of an invoice.
+Currently only supported on PostgreSQL.
+
+=cut
+
+sub due_date_sql {
+'COALESCE(
+  SUBSTRING(
+    COALESCE(
+      cust_bill.invoice_terms,
+      cust_main.invoice_terms,
+      \''.($conf->config('invoice_default_terms') || '').'\'
+    ), E\'Net (\\\\d+)\'
+  )::INTEGER, 0
+) * 86400 + cust_bill._date'
  }
  
  =item search_sql_where HASHREF
  }
  
  =item search_sql_where HASHREF