<% include("/elements/header.html",'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} }, $_; %} <% include('/elements/error.html') %> 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%> % } % } <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration');