use vars qw( %info );
use Tie::IxHash;
use Geo::StreetAddress::US;
-use Net::Vitelity;
+use Net::Vitelity 0.05;
use FS::Record qw( qsearch dbh );
use FS::phone_avail;
use FS::svc_phone;
'disable_e911' => { label => "Disable E911 provisioning",
type => 'checkbox',
},
+ 'debug' => { label => 'Enable debugging',
+ type => 'checkbox',
+ value => 1,
+ },
;
%info = (
my( $self, $command, @args ) = @_;
my $vitelity = Net::Vitelity->new(
- 'login' => $self->option('login'),
- 'pass' => $self->option('pass'),
- 'apitype' => $self->option('fax') ? 'fax' : 'api',
- #'debug' => $debug,
+ 'login' => $self->option('login'),
+ 'pass' => $self->option('pass'),
+ 'apitype' => $self->option('fax') ? 'fax' : 'api',
+ 'debug' => $self->option('debug'),
);
$vitelity->$command(@args);
my( $self, $command, @args ) = @_;
my $vitelity = Net::Vitelity->new(
- 'login' => $self->option('login'),
- 'pass' => $self->option('pass'),
- 'apitype' => 'lnp',
- #'debug' => $debug,
+ 'login' => $self->option('login'),
+ 'pass' => $self->option('pass'),
+ 'apitype' => 'lnp',
+ 'debug' => $self->option('debug'),
);
$vitelity->$command(@args);
#porting a number in? different code path
if ( $svc_phone->lnp_status eq 'portingin' ) {
+ my $cust_main = $svc_phone->cust_svc->cust_pkg->cust_main;
+
+ return 'Customer company is required'
+ unless $cust_main->company;
+
+ return 'Customer day phone (for contact, not porting) is required'
+ unless $cust_main->daytime;
+
+ return 'LNP Other Provider is required'
+ unless $svc_phone->lnp_other_provider;
+
+ return 'LNP Other Provider Account # is required'
+ unless $svc_phone->lnp_other_provider_account;
+
my %location = $svc_phone->location_hash;
my $sa = Geo::StreetAddress::US->parse_location( $location{'address1'} );
'partial' => 'no',
'wireless' => 'no',
'carrier' => $svc_phone->lnp_other_provider,
- 'company' => $svc_phone->cust_svc->cust_pkg->cust_main->company,
+ 'company' => $cust_main->company,
'accnumber' => $svc_phone->lnp_other_provider_account,
'name' => $svc_phone->phone_name_or_cust,
'streetnumber' => $sa->{number},
'state' => $location{'state'},
'zip' => $location{'zip'},
'billnumber' => $svc_phone->phonenum, #?? do we need a new field for this?
- 'contactnumber' => $svc_phone->cust_svc->cust_pkg->cust_main->daytime,
+ 'contactnumber' => $cust_main->daytime,
);
if ( $result =~ /^ok:/i ) {