httemplate/browse/part_virtual_field.cgi

   1 <% include("/elements/header.html",'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 % if ($cgi->param('error')) {
  14
  15    <FONT SIZE="+1" COLOR="#ff0000">Error: <%$cgi->param('error')%></FONT>
  16    <BR><BR>
  17 % }
  18
  19
  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)) {
  22
  23 <H3><%$dbtable%></H3>
  24
  25 <%table()%>
  26 <TH><TD>Field name</TD><TD>Description</TD></TH>
  27 % foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) {
  28
  29   <TR>
  30     <TD></TD>
  31     <TD>
  32       <A HREF="<%$p2%>edit/part_virtual_field.cgi?<%$pvf->vfieldpart%>">
  33         <%$pvf->name%></A></TD>
  34     <TD><%$pvf->label%></TD>
  35   </TR>
  36 %   }
  37
  38 </TABLE>
  39 % }
  40
  41 </BODY>
  42 </HTML>
  43