<%init>
my %opt = @_;
my @routers;
my $svc_x = $opt{'object'};
if ( $svc_x ) {
$opt{$_} = $svc_x->$_
foreach qw(routernum blocknum ip_addr svcpart);
if ( $svc_x->svcnum ) {
$opt{'svcpart'} = $svc_x->cust_svc->svcpart;
}
}
my $svcpart = $opt{'svcpart'} || '';
my %fixed; # which fields are fixed
$svcpart =~ /^\d*$/ or die "invalid svcpart '$svcpart'";
if ( $svcpart ) {
my $part_svc = FS::part_svc->by_key($svcpart);
# Traditionally, columnflag 'F' on IP address means that it MUST
# be auto-assigned (or, if null IP addresses are allowed, that
# it must be null).
foreach (qw(routernum blocknum ip_addr)) {
my $psc = $part_svc->part_svc_column($_);
if ( $psc and $psc->columnflag eq 'F' ) {
$fixed{$_} = $psc->columnvalue;
}
}
if ( $fixed{'routernum'} ) {
@routers = (FS::router->by_key($fixed{'routernum'}))
}
else {
@routers = map { $_->router }
qsearch('part_svc_router', { svcpart => $svcpart });
}
}
else {
@routers = qsearch('router', {});
}
my %auto_addr_routernum = map { $_->routernum, $_->auto_addr } @routers;
%init>