httemplate/browse/part_virtual_field.cgi

   1 <% include("/elements/header.html",'Virtual field definitions', menubar('Main Menu'   => $p)) %>
   2
   3 %my %pvfs;
   4 %my $block;
   5 %my $p2 = popurl(2);
   6 %my $dbtable;
   7 %
   8 %foreach (qsearch('part_virtual_field', {})) {
   9 %  push @{ $pvfs{$_->dbtable} }, $_;
  10 %}
  11
  12 <% include('/elements/error.html') %>
  13
  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)) {
  16
  17 <H3><%$dbtable%></H3>
  18
  19 <%table()%>
  20 <TH><TD>Field name</TD><TD>Description</TD></TH>
  21 % foreach my $pvf (sort {$a->name cmp $b->name} @{ $pvfs{$dbtable} }) {
  22
  23   <TR>
  24     <TD></TD>
  25     <TD>
  26       <A HREF="<%$p2%>edit/part_virtual_field.cgi?<%$pvf->vfieldpart%>">
  27         <%$pvf->name%></A></TD>
  28     <TD><%$pvf->label%></TD>
  29   </TR>
  30 %   }
  31
  32 </TABLE>
  33 % }
  34
  35 </BODY>
  36 </HTML>
  37 <%init>
  38 die "access denied"
  39   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  40 </%init>