1 <% include("/elements/header.html",'Virtual field definitions', menubar('Main Menu' => $p)) %>
9 %foreach (qsearch('part_virtual_field', {})) {
10 % push @{ $pvfs{$_->dbtable} }, $_;
13 % if ($cgi->param('error')) {
15 <FONT SIZE="+1" COLOR="#ff0000">Error: <%$cgi->param('error')%></FONT>
20 <A HREF="<%$p2%>edit/part_virtual_field.cgi"><I>Add a new field</I></A><BR><BR>
21 % foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) {
26 <TH><TD>Field name</TD><TD>Description</TD></TH>
27 % foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) {
32 <A HREF="<%$p2%>edit/part_virtual_field.cgi?<%$pvf->vfieldpart%>">
33 <%$pvf->name%></A></TD>
34 <TD><%$pvf->label%></TD>