3 my ($sbfieldpart, $part_sb_field);
5 if ( $cgi->param('error') ) {
6 $part_sb_field = new FS::part_sb_field ( {
7 map { $_, scalar($cgi->param($_)) } fields('part_sb_field')});
8 $sbfieldpart = $part_sb_field->sbfieldpart;
10 my($query) = $cgi->keywords;
11 if ( $query =~ /^(\d+)$/ ) { #editing
13 $part_sb_field=qsearchs('part_sb_field',
14 {'sbfieldpart' => $sbfieldpart})
15 or die "Unknown sbfieldpart!";
18 $part_sb_field = new FS::part_sb_field({});
21 my $action = $part_sb_field->sbfieldpart ? 'Edit' : 'Add';
24 print header("$action svc_broadband 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_sb_field">
33 <INPUT TYPE="hidden" NAME="redirect_ok"
34 VALUE="<%=popurl(2)%>browse/part_sb_field.cgi">
35 <INPUT TYPE="hidden" NAME="sbfieldpart" VALUE="<%=
37 Field #<B><%=$sbfieldpart 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_sb_field->name%>"></TD>
46 <TD ALIGN="right">Length</TD>
47 <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%=
48 $part_sb_field->length%>"></TD>
51 <TD ALIGN="right">Service</TD>
52 <TD><SELECT SIZE=1 NAME="svcpart"><%
53 foreach my $part_svc (qsearch('part_svc', {svcdb => 'svc_broadband'})) {
54 %><OPTION VALUE="<%=$part_svc->svcpart%>"<%=
55 ($part_svc->svcpart == $part_sb_field->svcpart) ? ' SELECTED' : ''%>">
60 <TD ALIGN="right">check_block</TD>
61 <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%=
62 $part_sb_field->check_block%></TEXTAREA></TD>
65 <TD ALIGN="right">list_source</TD>
66 <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%=
67 $part_sb_field->list_source%></TEXTAREA></TD>
69 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
74 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
75 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>. We mean it.</FONT>