2 my ($vfieldpart, $part_virtual_field);
4 if ( $cgi->param('error') ) {
5 $part_virtual_field = new FS::part_virtual_field ( {
6 map { $_, scalar($cgi->param($_)) } fields('part_virtual_field')});
7 $vfieldpart = $part_virtual_field->vfieldpart;
9 my($query) = $cgi->keywords;
10 if ( $query =~ /^(\d+)$/ ) { #editing
12 $part_virtual_field=qsearchs('part_virtual_field',
13 {'vfieldpart' => $vfieldpart})
14 or die "Unknown vfieldpart!";
17 $part_virtual_field = new FS::part_virtual_field({});
20 my $action = $part_virtual_field->vfieldpart ? 'Edit' : 'Add';
24 %><%= include('/elements/header.html', "$action Virtual Field Definition") %>
26 <% if ( $cgi->param('error') ) { %>
27 <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
31 <FORM ACTION="<%=$p1%>process/generic.cgi" METHOD="POST">
33 <INPUT TYPE="hidden" NAME="table" VALUE="part_virtual_field">
34 <INPUT TYPE="hidden" NAME="redirect_ok"
35 VALUE="<%=popurl(2)%>browse/part_virtual_field.cgi">
36 <INPUT TYPE="hidden" NAME="vfieldpart" VALUE="<%=
38 Field #<B><%=$vfieldpart 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_virtual_field->name%>"></TD>
47 <TD ALIGN="right">Table</TD>
48 <TD><% if ($action eq 'Add') { %>
49 <SELECT SIZE=1 NAME="dbtable"><%
50 my $dbdef = dbdef; # ick
51 foreach my $dbtable (sort { $a cmp $b } $dbdef->tables) {
53 and $dbdef->table($dbtable)->primary_key) { %>
54 <OPTION VALUE="<%=$dbtable%>"><%=$dbtable%></OPTION><%
59 %><%=$part_virtual_field->dbtable%>
60 <INPUT TYPE="hidden" NAME="dbtable" VALUE="<%=$part_virtual_field->dbtable%>">
64 <TD ALIGN="right">Label</TD>
65 <TD><INPUT TYPE="text" NAME="label" MAXLENGTH="20" VALUE="<%=
66 $part_virtual_field->label%>"></TD>
69 <TD ALIGN="right">Length</TD>
70 <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%=
71 $part_virtual_field->length%>"></TD>
74 <TD ALIGN="right">Check</TD>
75 <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%=
76 $part_virtual_field->check_block%></TEXTAREA></TD>
79 <TD ALIGN="right">List source</TD>
80 <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%=
81 $part_virtual_field->list_source%></TEXTAREA></TD>
83 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
88 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
89 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>. We mean it.</FONT>
91 <%= include('/elements/footer.html') %>