if ( $result->{'id'} == 1 ) {
my $new = new FS::svc_external { $svc_external->hash };
$new->id(sprintf('%010d', $result->{'ASN'}));
- $new->title(sprintf('%010d', $result->{'AKC'}));
+ $new->title(sprintf('%010x', hex($result->{'AKC'}) ));
$new->replace($svc_external);
} else {
$result->{'message'} || 'No response from Artera';
$self->queue_statusChange(15, $svc_external);
}
-sub queueStatusChange {
+sub queue_statusChange {
my( $self, $status, $svc_external ) = @_;
my $queue = new FS::queue {
my $result = $artera->statusChange(
'asn' => sprintf('%010d', $id),
- 'akc' => sprintf('%010d', $title),
+ 'akc' => sprintf('%010x', hex($title)),
'statusid' => $status,
);