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

<%=ntable("#cccccc",2)%> Name Length check_block list_source


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