[freeside-commits] branch master updated. e5e1826c3f6421303594b03067aea5a4ee4f67ad

[Ivan]

The branch, master has been updated
       via  e5e1826c3f6421303594b03067aea5a4ee4f67ad (commit)
      from  473825b64a85556abafacc032b4be276133ddc08 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e5e1826c3f6421303594b03067aea5a4ee4f67ad
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon Jul 17 16:58:42 2017 -0700

    add ext and cdrtype options to Bicom PBXware CDR download, RT#76756

diff --git a/FS/FS/part_export/pbxware.pm b/FS/FS/part_export/pbxware.pm
index 467b79f..4373e7a 100644
--- a/FS/FS/part_export/pbxware.pm
+++ b/FS/FS/part_export/pbxware.pm
@@ -19,7 +19,9 @@ our $DEBUG = 0;
 tie my %options, 'Tie::IxHash',
   'apikey'  => { label => 'API key' },
   'debug'   => { label => 'Enable debugging', type => 'checkbox', value => 1 },
-; # best. API. ever.
+  'ext'     => { label => 'PBXware "ext" field in CDR download request', },
+  'cdrtype' => { label => 'PBXware "cdrtype" field in CDR download request', },
+;
 
 our %info = (
   'svc'         => [qw(svc_phone)],
@@ -28,7 +30,7 @@ our %info = (
   'notes' => <<'END'
 <P>Export to <a href="www.bicomsystems.com/pbxware-3-8">Bicom PBXware</a> 
 softswitch.</P>
-<P><I>This export does not provision services.</I> Currently you will need
+<P><I>This export does not yet provision services.</I> Currently you will need
 to provision trunks and extensions through PBXware. The export only downloads 
 CDRs.</P>
 <P>Set the export machine to the name or IP address of your PBXware server,
@@ -96,6 +98,10 @@ sub import_cdrs {
     end       => $ed->strftime('%b-%d-%Y'),
     endtime   => $ed->strftime('%H:%M:%S'),
   );
+
+  $opt{$_} = $self->option($_)
+    for grep length( $self->option($_) ), qw( ext cdrtype );
+
   # unlike Certain Other VoIP providers, this one does proper pagination if
   # the result set is too big to fit in a single chunk.
   my $page = 1;

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/part_export/pbxware.pm |   10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)