<% my ($sbfieldpart, $part_sb_field); if ( $cgi->param('error') ) { $part_sb_field = new FS::part_sb_field ( { map { $_, scalar($cgi->param($_)) } fields('part_sb_field')}); $sbfieldpart = $part_sb_field->sbfieldpart; } else { my($query) = $cgi->keywords; if ( $query =~ /^(\d+)$/ ) { #editing $sbfieldpart=$1; $part_sb_field=qsearchs('part_sb_field', {'sbfieldpart' => $sbfieldpart}) or die "Unknown sbfieldpart!"; } else { #adding $part_sb_field = new FS::part_sb_field({}); } } my $action = $part_sb_field->sbfieldpart ? 'Edit' : 'Add'; my $p1 = popurl(1); print header("$action svc_broadband Extended Field Definition", ''); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); %>

Field #<%=$sbfieldpart or "(NEW)"%>

<%=ntable("#cccccc",2)%> Name Length Service <% foreach my $part_svc (qsearch('part_svc', {svcdb => 'svc_broadband'})) { %>svcpart == $part_sb_field->svcpart) ? ' SELECTED' : ''%>"> <%=$part_svc->svc%> <% } %> check_block <%= $part_sb_field->check_block%> list_source <%= $part_sb_field->list_source%>

If you don't understand what check_block and list_source mean, LEAVE THEM BLANK. We mean it.