diff options
| -rw-r--r-- | FS/FS/part_export/vitelity.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/FS/FS/part_export/vitelity.pm b/FS/FS/part_export/vitelity.pm index 29ed8b6a1..824c54b6c 100644 --- a/FS/FS/part_export/vitelity.pm +++ b/FS/FS/part_export/vitelity.pm @@ -3,6 +3,7 @@ use base qw( FS::part_export ); use vars qw( %info ); use Tie::IxHash; +use Data::Dumper; use Geo::StreetAddress::US; use Net::Vitelity 0.05; use FS::Record qw( qsearch dbh ); @@ -322,6 +323,8 @@ sub _export_insert { 'contactnumber' => $cust_main->daytime, ); + warn Dumper($result) if $self->option('debug'); + if ( $result =~ /^ok:/i ) { my($ok, $portid, $sig, $bill) = split(':', $result); $svc_phone->lnp_portid($portid); |