<% include('/elements/header.html', 'Virtual field definitions') %> <% 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%> % } % } <% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my %pvfs; my $block; my $p2 = popurl(2); my $dbtable; foreach (qsearch('part_virtual_field', {})) { push @{ $pvfs{$_->dbtable} }, $_; }