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';
25 <% include('/elements/header.html', "$action Virtual Field Definition") %>
26 % if ( $cgi->param('error') ) {
28 <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
33 <FORM ACTION="<%$p1%>process/generic.cgi" METHOD="POST">
35 <INPUT TYPE="hidden" NAME="table" VALUE="part_virtual_field">
36 <INPUT TYPE="hidden" NAME="redirect_ok"
37 VALUE="<%popurl(2)%>browse/part_virtual_field.cgi">
38 <INPUT TYPE="hidden" NAME="vfieldpart" VALUE="<%
40 Field #<B><%$vfieldpart or "(NEW)"%></B><BR><BR>
42 <%ntable("#cccccc",2)%>
44 <TD ALIGN="right">Name</TD>
45 <TD><INPUT TYPE="text" NAME="name" MAXLENGTH=15 VALUE="<%
46 $part_virtual_field->name%>"></TD>
49 <TD ALIGN="right">Table</TD>
51 % if ($action eq 'Add') {
53 <SELECT SIZE=1 NAME="dbtable">
55 % my $dbdef = dbdef; # ick
56 % #foreach my $dbtable (sort { $a cmp $b } $dbdef->tables) {
57 % foreach my $dbtable (qw( svc_broadband )) {
58 % if ($dbtable !~ /^h_/
59 % and $dbdef->table($dbtable)->primary_key) {
61 <OPTION VALUE="<%$dbtable%>"><%$dbtable%></OPTION>
70 <%$part_virtual_field->dbtable%>
71 <INPUT TYPE="hidden" NAME="dbtable" VALUE="<%$part_virtual_field->dbtable%>">
76 <TD ALIGN="right">Label</TD>
77 <TD><INPUT TYPE="text" NAME="label" MAXLENGTH="20" VALUE="<%
78 $part_virtual_field->label%>"></TD>
81 <TD ALIGN="right">Length</TD>
82 <TD><INPUT TYPE="text" NAME="length" MAXLENGTH=4 VALUE="<%
83 $part_virtual_field->length%>"></TD>
86 <TD ALIGN="right">Check</TD>
87 <TD><TEXTAREA COLS="20" ROWS="4" NAME="check_block"><%
88 $part_virtual_field->check_block%></TEXTAREA></TD>
91 <TD ALIGN="right">List source</TD>
92 <TD><TEXTAREA COLS="20" ROWS="4" NAME="list_source"><%
93 $part_virtual_field->list_source%></TEXTAREA></TD>
95 </TABLE><BR><INPUT TYPE="submit" VALUE="Submit">
100 <FONT SIZE=-2>If you don't understand what <I>check_block</I> and
101 <I>list_source</I> mean, <B>LEAVE THEM BLANK</B>. We mean it.</FONT>
103 <% include('/elements/footer.html') %>