1 <%= header('Virtual field definitions', menubar('Main Menu' => $p)) %>
9 foreach (qsearch('part_virtual_field', {})) {
10 push @{ $pvfs{$_->dbtable} }, $_;
14 <% if ($cgi->param('error')) { %>
15 <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
19 <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)) { %>
22 <H3><%=$dbtable%></H3>
25 <TH><TD>Field name</TD><TD>Description</TD></TH>
26 <% foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) { %>
30 <A HREF="<%=$p2%>edit/part_virtual_field.cgi?<%=$pvf->vfieldpart%>">
31 <%=$pvf->name%></A></TD>
32 <TD><%=$pvf->label%></TD>