feature to email CSV of CDRs with invoices #5727

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

index ac02808..4e28af3 100644 (file)
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -605,6 +605,8 @@ sub generate_email {
      'subject'   => (($args{'subject'}) ? $args{'subject'} : 'Invoice'),
    );
  
+  my %cdrs = ( 'unsquelch_cdr' => $conf->exists('voip-cdr_email') );
+
    if (ref($args{'to'}) eq 'ARRAY') {
      $return{'to'} = $args{'to'};
    } else {
@@ -643,7 +645,7 @@ sub generate_email {
        if ( ref($args{'print_text'}) eq 'ARRAY' ) {
          $data = $args{'print_text'};
        } else {
-        $data = [ $self->print_text('', $args{'template'}) ];
+        $data = [ $self->print_text('', $args{'template'}, %cdrs) ];
        }
  
      }
@@ -690,7 +692,11 @@ sub generate_email {
                           '    </title>',
                           '  </head>',
                           '  <body bgcolor="#e8e8e8">',
-                         $self->print_html('', $args{'template'}, $content_id),
+                         $self->print_html({ time          => '',
+                                             template      => $args{'template'},
+                                             cid           => $content_id,
+                                             %cdrs,
+                                          }),
                           '  </body>',
                           '</html>',
                         ],
@@ -698,6 +704,18 @@ sub generate_email {
        #'Filename'    => 'invoice.pdf',
      );
  
+    my @otherparts = ();
+    if ( $self->cust_main->email_csv_cdr ) {
+
+      push @otherparts, build MIME::Entity
+        'Type'        => 'text/csv',
+        'Encoding'    => '7bit',
+        'Data'        => [ map { "$_\n" } $self->call_details ],
+        'Disposition' => 'attachment',
+      ;
+
+    }
+
      if ( $conf->exists('invoice_email_pdf') ) {
  
        #attaching pdf too:
@@ -723,9 +741,9 @@ sub generate_email {
  
        $related->add_part($image);
  
-      my $pdf = build MIME::Entity $self->mimebuild_pdf('', $args{'template'});
+      my $pdf = build MIME::Entity $self->mimebuild_pdf('', $args{'template'}, %cdrs);
  
-      $return{'mimeparts'} = [ $related, $pdf ];
+      $return{'mimeparts'} = [ $related, $pdf, @otherparts ];
  
      } else {
  
@@ -737,7 +755,7 @@ sub generate_email {
        #   image/png
  
        $return{'content-type'} = 'multipart/related';
-      $return{'mimeparts'} = [ $alternative, $image ];
+      $return{'mimeparts'} = [ $alternative, $image, @otherparts ];
        $return{'type'} = 'multipart/alternative'; #Content-Type of first part...
        #$return{'disposition'} = 'inline';
  
@@ -751,7 +769,7 @@ sub generate_email {
  
        #mime parts arguments a la MIME::Entity->build().
        $return{'mimeparts'} = [
-        { $self->mimebuild_pdf('', $args{'template'}) }
+        { $self->mimebuild_pdf('', $args{'template'}, %cdrs) }
        ];
      }
    
@@ -771,7 +789,7 @@ sub generate_email {
        if ( ref($args{'print_text'}) eq 'ARRAY' ) {
          $return{'body'} = $args{'print_text'};
        } else {
-        $return{'body'} = [ $self->print_text('', $args{'template'}) ];
+        $return{'body'} = [ $self->print_text('', $args{'template'}, %cdrs) ];
        }
  
      }
@@ -1611,11 +1629,12 @@ L<Time::Local> and L<Date::Parse> for conversion functions.
  =cut
  
  sub print_text {
-  my( $self, $today, $template ) = @_;
+  my( $self, $today, $template, %opt ) = @_;
  
    my %params = ( 'format' => 'template' );
    $params{'time'} = $today if $today;
    $params{'template'} = $template if $template;
+  $params{'unsquelch_cdr'} = $opt{'unsquelch_cdr'} if $opt{'unsquelch_cdr'};
  
    $self->print_generic( %params );
  }
@@ -1636,11 +1655,12 @@ L<Time::Local> and L<Date::Parse> for conversion functions.
  =cut
  
  sub print_latex {
-  my( $self, $today, $template ) = @_;
+  my( $self, $today, $template, %opt ) = @_;
  
    my %params = ( 'format' => 'latex' );
    $params{'time'} = $today if $today;
    $params{'template'} = $template if $template;
+  $params{'unsquelch_cdr'} = $opt{'unsquelch_cdr'} if $opt{'unsquelch_cdr'};
  
    $template ||= $self->_agent_template;
  
@@ -3025,6 +3045,22 @@ sub _items_payments {
  
  }
  
+=item call_details
+
+Returns an array of CSV strings representing the call details for this invoice
+
+=cut
+
+sub call_details {
+  my $self = shift;
+  map { $_->details( 'format_function' => sub{ shift },
+                     'escape_function' => sub{ return() },
+                   )
+      }
+    grep { $_->pkgnum }
+    $self->cust_bill_pkg;
+}
+
  
  =back