httemplate/browse/part_svc.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my %search;
   5 if ( $cgi->param('showdisabled') ) {
   6   %search = ();
   7 } else {
   8   %search = ( 'disabled' => '' );
   9 }
  10
  11 my @part_svc = qsearch('part_svc', \%search );
  12 my $total = scalar(@part_svc);
  13
  14 %>
  15 <%= header('Service Definition Listing', menubar( 'Main Menu' => $p) ) %>
  16
  17     Services are items you offer to your customers.<BR><BR>
  18 <%= $total %> services
  19 <%= $cgi->param('showdisabled')
  20       ? do { $cgi->param('showdisabled', 0);
  21              '( <a href="'. $cgi->self_url. '">hide disabled services</a> )'; }
  22       : do { $cgi->param('showdisabled', 1);
  23              '( <a href="'. $cgi->self_url. '">show disabled services</a> )'; }
  24 %>
  25 <%= table() %>
  26   <TR>
  27     <TH COLSPAN=<%= $cgi->param('showdisabled') ? 2 : 3 %>>Service</TH>
  28     <TH>Table</TH>
  29     <TH>Export</TH>
  30     <TH>Field</TH>
  31     <TH COLSPAN=2>Modifier</TH>
  32   </TR>
  33
  34 <% foreach my $part_svc ( sort {
  35      $a->getfield('svcpart') <=> $b->getfield('svcpart')
  36    } @part_svc ) {
  37      my($hashref)=$part_svc->hashref;
  38      my($svcdb)=$hashref->{svcdb};
  39      my @fields =
  40        grep { $_ ne 'svcnum' && $part_svc->part_svc_column($_)->columnflag }
  41             fields($svcdb);
  42
  43      my($rowspan)=scalar(@fields) || 1;
  44      my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}";
  45 %>
  46
  47   <TR>
  48     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
  49       <%= $hashref->{svcpart} %></A></TD>
  50 <% unless ( $cgi->param('showdisabled') ) { %>
  51     <TD ROWSPAN=<%= $rowspan %>>
  52       <%= $hashref->{disabled} ? 'DISABLED' : '' %></TD>
  53 <% } %>
  54     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
  55       <%= $hashref->{svc} %></A></TD>
  56     <TD ROWSPAN=<%= $rowspan %>>
  57       <%= $hashref->{svcdb} %></TD>
  58     <TD ROWSPAN=<%= $rowspan %>><%= itable() %>
  59 <%
  60   my @part_export = qsearch('part_export', { svcpart => $part_svc->svcpart } );
  61   foreach my $part_export ( @part_export ) {
  62 %>
  63       <TR>
  64         <TD><%= $part_export->exporttype %> to <%= $part_export->machine %></TD>
  65         <TD>(options)</TD>
  66 <%  } %>
  67       </TR><TR><TD COLSPAN=2><A HREF="<%= $p %>edit/part_export.cgi?new_with_svcpart=<%= $part_svc->svcpart %>"><I>Add a new export</I><A></TD></TR>
  68 <% if (@part_export) { %>
  69       <TR><TD COLSPAN=2>
  70         <FORM METHOD="POST" ACTION="<%= $p %>edit/part_export.cgi">
  71         <INPUT TYPE="hidden" NAME="svcpart" VALUE="<%= $part_svc->svcpart %>">
  72         <SELECT NAME="clone"><OPTION></OPTION>
  73 <%   foreach my $part_export ( @part_export ) { %>
  74           <OPTION VALUE="<%= $part_export->exportnum %>">
  75             <%= $part_export->exporttype %> to <%= $part_export->machine %>
  76           </OPTION>
  77 <%   } %>
  78         <INPUT TYPE="submit" VALUE="clone existing export">
  79         </FORM></TD></TR>
  80 <% } %>
  81       </TABLE></TD>
  82
  83 <%   my($n1)='';
  84      foreach my $field ( @fields ) {
  85        my $flag = $part_svc->part_svc_column($field)->columnflag;
  86 %>
  87      <%= $n1 %><TD><%= $field %></TD><TD>
  88
  89 <%     if ( $flag eq "D" ) { print "Default"; }
  90          elsif ( $flag eq "F" ) { print "Fixed"; }
  91          else { print "(Unknown!)"; }
  92 %>
  93        </TD><TD><%= $part_svc->part_svc_column($field)->columnvalue%></TD>
  94 <%     $n1="</TR><TR>";
  95      }
  96 %>
  97   </TR>
  98 <% } %>
  99
 100   <TR>
 101     <TD COLSPAN=<%= $cgi->param('showdisabled') ? 7 : 8 %>><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A></TD>
 102   </TR>
 103 </TABLE>
 104 </BODY>
 105 </HTML>