!.
$field;
$html .= "- $desc" if $desc;
$html .= " | ";
$flag = '' if ref($def) && $def->{type} eq 'disabled';
$html .= qq!!;
if ( ref($def) && $def->{type} eq 'disabled' ) {
$html .= 'No default';
} else {
$html .= qq!';
$html .= join("\n",
'',
);
}
$html .= qq! | !;
my $disabled = $flag ? ''
: 'DISABLED STYLE="background-color: #dddddd"';
if ( ! ref($def) || $def->{type} eq 'text' ) {
my $nodisplay = ' STYLE="display:none"';
my $is_inv = ( $flag =~ /^[MA]$/ );
$html .=
qq!';
$html .= include('/elements/select-table.html',
'element_name' => "${layer}__${field}_classnum",
'element_etc' => ( $is_inv
? $disabled
: $nodisplay
),
'table' => 'inventory_class',
'name_col' => 'classname',
'value' => $value,
'empty_label' => 'Select inventory class',
);
} elsif ( $def->{type} eq 'select' ) {
$html .= qq!';
} elsif ( $def->{type} eq 'radius_usergroup_selector' ) {
#XXX disable the RADIUS usergroup selector? ugh it sure does need
#an overhaul, people have dum group problems because of it
$html .= FS::svc_acct::radius_usergroup_selector(
[ split(',', $value) ], "${layer}__${field}" );
} elsif ( $def->{type} eq 'disabled' ) {
$html .=
qq!!;
} else {
$html .= 'unknown type'. $def->{type};
}
$html .= " |
\n";
} #foreach my $field (@fields) {
$part_svc->svcpart('') if $clone; #undone
$html .= "";
$html .= include('/elements/progress-init.html',
$layer, #form name
[ qw(svc svcpart disabled exportnum), @fields ],
'process/part_svc.cgi',
$p.'browse/part_svc.cgi',
$layer,
);
$html .= '