httemplate/browse/part_svc.cgi

   1 <!-- $Id: part_svc.cgi,v 1.2 2001-08-11 23:18:30 ivan Exp $ -->
   2 <%= header('Service Part 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(@rows)=
  19        grep $hashref->{${svcdb}.'__'.$_.'_flag'},
  20          map { /^${svcdb}__(.*)$/; $1 }
  21            grep ! /_flag$/,
  22              grep /^${svcdb}__/,
  23                fields('part_svc')
  24      ;
  25      my($rowspan)=scalar(@rows) || 1;
  26      my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}";
  27 %>
  28
  29   <TR>
  30     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
  31       <%= $hashref->{svcpart} %></A></TD>
  32     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
  33       <%= $hashref->{svc} %></A></TD>
  34     <TD ROWSPAN=<%= $rowspan %>>
  35       <%= $hashref->{svcdb} %></TD>
  36
  37 <%   my($n1)='';
  38      my($row);
  39      foreach $row ( @rows ) {
  40        my($flag)=$part_svc->getfield($svcdb.'__'.$row.'_flag');
  41 %>
  42      <%= $n1 %><TD><%= $row %></TD><TD>
  43
  44 <%     if ( $flag eq "D" ) { print "Default"; }
  45          elsif ( $flag eq "F" ) { print "Fixed"; }
  46          else { print "(Unknown!)"; }
  47 %>
  48        </TD><TD><%= $part_svc->getfield($svcdb."__".$row) %></TD>
  49 <%     $n1="</TR><TR>";
  50      }
  51 %>
  52   </TR>
  53 <% } %>
  54
  55   <TR>
  56     <TD COLSPAN=2><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add new service</I></A></TD>
  57   </TR>
  58 </TABLE>
  59 </BODY>
  60 </HTML>