<%= 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)) { %>

<%=$dbtable%>

<%=table()%> Field nameDescription <% foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) { %> <%=$pvf->name%> <%=$pvf->label%> <% } %> <% } %>