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", '');
26 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
28 if $cgi->param('error');
30 <FORM ACTION="<%=$p1%>process/generic.cgi" METHOD=POST>
32 <INPUT TYPE="hidden" NAME="table" VALUE="part_router_field">
33 <INPUT TYPE="hidden" NAME="redirect_ok"
34 VALUE="<%=$p1%>part_router_field.cgi">
35 <INPUT TYPE="hidden" NAME="routerfieldpart" VALUE="<%=
37 Field #<B><%=$routerfieldpart or "(NEW)"%></B><BR><BR>
39 <%=ntable("#cccccc",2)%>
41 <TD ALIGN="right">Name</TD>
42 <TD><INPUT TYPE="text" NAME="name" MAXLENGTH=15 VALUE="<%=
43 $part_router_field->name%>"></TD>
46 <TD ALIGN="right">Length</TD>
47 <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%=
48 $part_router_field->length%>"></TD>
51 <TD ALIGN="right">check_block</TD>
52 <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%=
53 $part_router_field->check_block%></TEXTAREA></TD>
56 <TD ALIGN="right">list_source</TD>
57 <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%=
58 $part_router_field->list_source%></TEXTAREA></TD>
60 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
65 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
66 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>. We mean it.</FONT>