httemplate/browse/part_svc.cgi

   1 <!-- $Id: part_svc.cgi,v 1.4 2001-09-06 20:41:59 ivan Exp $ -->
   2 <%= header('Service Definition Listing', menubar( 'Main Menu' => $p) ) %>
   3
   4     Services are items you offer to your customers.<BR><BR>
   5 <TABLE BORDER=1>
   6   <TR>
   7     <TH COLSPAN=2>Service</TH>
   8     <TH>Table</TH>
   9     <TH>Field</TH>
  10     <TH COLSPAN=2>Modifier</TH>
  11   </TR>
  12
  13 <% foreach my $part_svc ( sort {
  14      $a->getfield('svcpart') <=> $b->getfield('svcpart')
  15    } qsearch('part_svc',{}) ) {
  16      my($hashref)=$part_svc->hashref;
  17      my($svcdb)=$hashref->{svcdb};
  18      my @fields =
  19        grep { $_ ne 'svcnum' && $part_svc->part_svc_column($_)->columnflag }
  20             fields($svcdb);
  21
  22      my($rowspan)=scalar(@fields) || 1;
  23      my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}";
  24 %>
  25
  26   <TR>
  27     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
  28       <%= $hashref->{svcpart} %></A></TD>
  29     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
  30       <%= $hashref->{svc} %></A></TD>
  31     <TD ROWSPAN=<%= $rowspan %>>
  32       <%= $hashref->{svcdb} %></TD>
  33
  34 <%   my($n1)='';
  35      foreach my $field ( @fields ) {
  36        my $flag = $part_svc->part_svc_column($field)->columnflag;
  37 %>
  38      <%= $n1 %><TD><%= $row %></TD><TD>
  39
  40 <%     if ( $flag eq "D" ) { print "Default"; }
  41          elsif ( $flag eq "F" ) { print "Fixed"; }
  42          else { print "(Unknown!)"; }
  43 %>
  44        </TD><TD><%= $part_svc->part_svc_column($field)->columnvalue%></TD>
  45 <%     $n1="</TR><TR>";
  46      }
  47 %>
  48   </TR>
  49 <% } %>
  50
  51   <TR>
  52     <TD COLSPAN=6><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A></TD>
  53   </TR>
  54 </TABLE>
  55 </BODY>
  56 </HTML>