additional vitelity debugging, RT#73618

diff --git a/FS/FS/part_export/vitelity.pm b/FS/FS/part_export/vitelity.pm
index 29ed8b6..824c54b 100644 (file)
--- 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);