%= header('Virtual field definitions', menubar('Main Menu' => $p)) %>
<%
my %pvfs;
my $block;
my $p2 = popurl(2);
my $dbtable;
foreach (qsearch('part_virtual_field', {})) {
push @{ $pvfs{$_->dbtable} }, $_;
}
%>
<% if ($cgi->param('error')) { %>
Error: <%=$cgi->param('error')%>
<% } %>
Add a new field
<% foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) { %>