3 my ($vfieldpart, $part_virtual_field);
5 if ( $cgi->param('error') ) {
6 $part_virtual_field = new FS::part_virtual_field ( {
7 map { $_, scalar($cgi->param($_)) } fields('part_virtual_field')});
8 $vfieldpart = $part_virtual_field->vfieldpart;
10 my($query) = $cgi->keywords;
11 if ( $query =~ /^(\d+)$/ ) { #editing
13 $part_virtual_field=qsearchs('part_virtual_field',
14 {'vfieldpart' => $vfieldpart})
15 or die "Unknown vfieldpart!";
18 $part_virtual_field = new FS::part_virtual_field({});
21 my $action = $part_virtual_field->vfieldpart ? 'Edit' : 'Add';
24 print header("$action Virtual 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_virtual_field">
33 <INPUT TYPE="hidden" NAME="redirect_ok"
34 VALUE="<%=popurl(2)%>browse/part_virtual_field.cgi">
35 <INPUT TYPE="hidden" NAME="vfieldpart" VALUE="<%=
37 Field #<B><%=$vfieldpart 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_virtual_field->name%>"></TD>
46 <TD ALIGN="right">Table</TD>
47 <TD><% if ($action eq 'Add') { %>
48 <SELECT SIZE=1 NAME="dbtable"><%
49 my $dbdef = dbdef; # ick
50 foreach my $dbtable (sort { $a cmp $b } $dbdef->tables) {
52 and $dbdef->table($dbtable)->primary_key) { %>
53 <OPTION VALUE="<%=$dbtable%>"><%=$dbtable%></OPTION><%
58 %><%=$part_virtual_field->dbtable%>
59 <INPUT TYPE="hidden" NAME="dbtable" VALUE="<%=$part_virtual_field->dbtable%>">
63 <TD ALIGN="right">Label</TD>
64 <TD><INPUT TYPE="text" NAME="label" MAXLENGTH="20" VALUE="<%=
65 $part_virtual_field->label%>"></TD>
68 <TD ALIGN="right">Length</TD>
69 <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%=
70 $part_virtual_field->length%>"></TD>
73 <TD ALIGN="right">Check</TD>
74 <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%=
75 $part_virtual_field->check_block%></TEXTAREA></TD>
78 <TD ALIGN="right">List source</TD>
79 <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%=
80 $part_virtual_field->list_source%></TEXTAREA></TD>
82 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
87 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
88 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>. We mean it.</FONT>