3 my ($routerfieldpart, $part_router_field);
5 if ( $cgi->param('error') ) {
6 $part_router_field = new FS::part_router_field ( {
7 map { $_, scalar($cgi->param($_)) } fields('part_router_field')});
8 $routerfieldpart = $part_router_field->routerfieldpart;
10 my($query) = $cgi->keywords;
11 if ( $query =~ /^(\d+)$/ ) { #editing
13 $part_router_field=qsearchs('part_router_field',
14 {'routerfieldpart' => $routerfieldpart})
15 or die "Unknown routerfieldpart!";
18 $part_router_field = new FS::part_router_field({});
21 my $action = $part_router_field->routerfieldpart ? 'Edit' : 'Add';
24 print header("$action Router Extended Field Definition",
25 menubar('Main Menu' => $p,
26 'View all Extended Fields' => $p. 'browse/generic.cgi?part_router_field')
29 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
31 if $cgi->param('error');
33 <FORM ACTION="<%=$p1%>process/generic.cgi" METHOD=POST>
35 <INPUT TYPE="hidden" NAME="table" VALUE="part_router_field">
36 <INPUT TYPE="hidden" NAME="routerfieldpart" VALUE="<%=
38 Field #<B><%=$routerfieldpart or "(NEW)"%></B><BR><BR>
40 <%=ntable("#cccccc",2)%>
42 <TD ALIGN="right">Name</TD>
43 <TD><INPUT TYPE="text" NAME="name" MAXLENGTH=15 VALUE="<%=
44 $part_router_field->name%>"></TD>
47 <TD ALIGN="right">Length</TD>
48 <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%=
49 $part_router_field->length%>"></TD>
52 <TD ALIGN="right">check_block</TD>
53 <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%=
54 $part_router_field->check_block%></TEXTAREA></TD>
57 <TD ALIGN="right">list_source</TD>
58 <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%=
59 $part_router_field->list_source%></TEXTAREA></TD>
61 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
66 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
67 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>. We mean it.</FONT>