'domain' => $domain, };
unless ( $svc_domain->svcnum ) {
my $error = $svc_domain->insert;
- return $error if $error;
+ return "error auto-inserting domain: $error" if $error;
}
$svc->username($username);
$svc->domsvc($svc_domain->svcnum);
}
my $error = $svc->insert;
- return $error if $error;
+ return "error inserting service: $error" if $error;
}
}
my $format = delete $opt->{'format'};
my @fields = ();
- if ( $format =~ /^(.*)-agent_custid$/ ) {
+ if ( $format =~ /^(.*)-agent_custid(-agent_pkgid)?$/ ) {
$format = $1;
+ my $agent_pkgid = $2;
@fields = (
sub {
my( $self, $value ) = @_; # $conf, $param
$self->custnum($cust_main->custnum) if $cust_main;
},
);
+ push @fields, 'agent_pkgid' if $agent_pkgid;
} else {
@fields = ( 'custnum' );
}