1 <% include("/elements/header.html",'Virtual field definitions', menubar('Main Menu' => $p)) %>
8 %foreach (qsearch('part_virtual_field', {})) {
9 % push @{ $pvfs{$_->dbtable} }, $_;
12 <% include('/elements/error.html') %>
14 <A HREF="<%$p2%>edit/part_virtual_field.cgi"><I>Add a new field</I></A><BR><BR>
15 % foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) {
20 <TH><TD>Field name</TD><TD>Description</TD></TH>
21 % foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) {
26 <A HREF="<%$p2%>edit/part_virtual_field.cgi?<%$pvf->vfieldpart%>">
27 <%$pvf->name%></A></TD>
28 <TD><%$pvf->label%></TD>
39 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');