httemplate/browse/part_virtual_field.cgi

   1 <%= header('Virtual field definitions', menubar('Main Menu'   => $p)) %>
   2 <%
   3
   4 my %pvfs;
   5 my $block;
   6 my $p2 = popurl(2);
   7 my $dbtable;
   8
   9 foreach (qsearch('part_virtual_field', {})) {
  10   push @{ $pvfs{$_->dbtable} }, $_;
  11 }
  12 %>
  13
  14 <% if ($cgi->param('error')) { %>
  15    <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
  16    <BR><BR>
  17 <% } %>
  18
  19 <A HREF="<%=$p2%>edit/part_virtual_field.cgi"><I>Add a new field</I></A><BR><BR>
  20
  21 <% foreach $dbtable (sort { $a cmp $b } keys (%pvfs)) { %>
  22 <H3><%=$dbtable%></H3>
  23
  24 <%=table()%>
  25 <TH><TD>Field name</TD><TD>Description</TD></TH>
  26 <% foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) { %>
  27   <TR>
  28     <TD></TD>
  29     <TD>
  30       <A HREF="<%=$p2%>edit/part_virtual_field.cgi?<%=$pvf->vfieldpart%>">
  31         <%=$pvf->name%></A></TD>
  32     <TD><%=$pvf->label%></TD>
  33   </TR>
  34 <%   } %>
  35 </TABLE>
  36 <% } %>
  37 </BODY>
  38 </HTML>
  39