# svc_phone::check should ensure phonenum and sim_imsi are numeric
my @command = (
IMSI => '"'.$svc_phone->sim_imsi.'"',
- ISDN => '"'.$svc_phone->phonenum.'"',
+ ISDN => '"'.$svc_phone->countrycode.$svc_phone->phonenum.'"',
TPLID => $self->option('tplid'),
);
unshift @command, 'HLRSN', $self->option('hlrsn')
if ( $new->sim_imsi ne $old->sim_imsi ) {
my @command = (
'MOD IMSI',
- ISDN => '"'.$old->phonenum.'"',
+ ISDN => '"'.$old->countrycode.$old->phonenum.'"',
IMSI => '"'.$old->sim_imsi.'"',
NEWIMSI => '"'.$new->sim_imsi.'"',
);
return $err_or_queue unless ref $err_or_queue;
$depend_jobnum = $err_or_queue->jobnum;
}
- if ( $new->phonenum ne $old->phonenum ) {
+ if ( $new->countrycode ne $old->countrycode or
+ $new->phonenum ne $old->phonenum ) {
my @command = (
'MOD ISDN',
- ISDN => '"'.$old->phonenum.'"',
- NEWISDN => '"'.$new->phonenum.'"',
+ ISDN => '"'.$old->countrycode.$old->phonenum.'"',
+ NEWISDN => '"'.$new->countrycode.$new->phonenum.'"',
);
my $err_or_queue = $self->queue_command($new->svcnum, @command);
return $err_or_queue unless ref $err_or_queue;
my @command = (
'MOD LCK',
IMSI => '"'.$svc_phone->sim_imsi.'"',
- ISDN => '"'.$svc_phone->phonenum.'"',
+ ISDN => '"'.$svc_phone->countrycode.$svc_phone->phonenum.'"',
IC => $lockstate,
OC => $lockstate,
GPRSLOCK=> $lockstate,
my @command = (
'RMV SUB',
#IMSI => '"'.$svc_phone->sim_imsi.'"',
- ISDN => '"'.$svc_phone->phonenum.'"',
+ ISDN => '"'.$svc_phone->countrycode.$svc_phone->phonenum.'"',
);
my $err_or_queue = $self->queue_command($svc_phone->svcnum, @command);
ref($err_or_queue) ? '' : $err_or_queue;