httemplate/browse/part_svc.cgi

   1 <%
   2
   3 #code duplication w/ edit/part_svc.cgi, should move this hash to part_svc.pm
   4 my %flag = (
   5   ''  => '',
   6   'D' => 'Default',
   7   'F' => 'Fixed (unchangeable)',
   8   #'M' => 'Manual selection from inventory',
   9   'M' => 'Manual selected from inventory',
  10   #'A' => 'Automatically fill in from inventory',
  11   'A' => 'Automatically filled in from inventory',
  12   'X' => 'Excluded',
  13 );
  14
  15 my %search;
  16 if ( $cgi->param('showdisabled') ) {
  17   %search = ();
  18 } else {
  19   %search = ( 'disabled' => '' );
  20 }
  21
  22 my @part_svc =
  23   sort { $a->getfield('svcpart') <=> $b->getfield('svcpart') }
  24     qsearch('part_svc', \%search );
  25 my $total = scalar(@part_svc);
  26
  27 my %num_active_cust_svc = map { $_->svcpart => $_->num_cust_svc } @part_svc;
  28
  29 if ( $cgi->param('orderby') eq 'active' ) {
  30   @part_svc = sort { $num_active_cust_svc{$b->svcpart} <=>
  31                      $num_active_cust_svc{$a->svcpart}     } @part_svc;
  32 } elsif ( $cgi->param('orderby') eq 'svc' ) {
  33   @part_svc = sort { lc($a->svc) cmp lc($b->svc) } @part_svc;
  34 }
  35
  36 my %inventory_class = ();
  37
  38 %>
  39 <%= include("/elements/header.html",'Service Definition Listing', menubar( 'Main Menu' => $p) ) %>
  40
  41 <SCRIPT>
  42 function part_export_areyousure(href) {
  43   if (confirm("Are you sure you want to delete this export?") == true)
  44     window.location.href = href;
  45 }
  46 </SCRIPT>
  47
  48     Service definitions are the templates for items you offer to your customers.<BR><BR>
  49
  50 <FORM METHOD="POST" ACTION="<%= $p %>edit/part_svc.cgi">
  51 <A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A><% if ( @part_svc ) { %>&nbsp;or&nbsp;<SELECT NAME="clone"><OPTION></OPTION>
  52 <% foreach my $part_svc ( @part_svc ) { %>
  53   <OPTION VALUE="<%= $part_svc->svcpart %>"><%= $part_svc->svc %></OPTION>
  54 <% } %>
  55 </SELECT><INPUT TYPE="submit" VALUE="Clone existing service">
  56 <% } %>
  57 </FORM><BR>
  58
  59 <%= $total %> service definitions
  60 <%= $cgi->param('showdisabled')
  61       ? do { $cgi->param('showdisabled', 0);
  62              '( <a href="'. $cgi->self_url. '">hide disabled services</a> )'; }
  63       : do { $cgi->param('showdisabled', 1);
  64              '( <a href="'. $cgi->self_url. '">show disabled services</a> )'; }
  65 %>
  66 <% $cgi->param('showdisabled', ( 1 ^ $cgi->param('showdisabled') ) ); %>
  67 <%= table() %>
  68   <TR>
  69     <TH><A HREF="<%= do { $cgi->param('orderby', 'svcpart'); $cgi->self_url } %>">#</A></TH>
  70     <% if ( $cgi->param('showdisabled') ) { %>
  71       <TH>Status</TH>
  72     <% } %>
  73     <TH><A HREF="<%= do { $cgi->param('orderby', 'svc'); $cgi->self_url; } %>">Service</A></TH>
  74     <TH>Table</TH>
  75     <TH><A HREF="<%= do { $cgi->param('orderby', 'active'); $cgi->self_url; } %>"><FONT SIZE=-1>Customer<BR>Services</FONT></A></TH>
  76     <TH>Export</TH>
  77     <TH>Field</TH>
  78     <TH COLSPAN=2>Modifier</TH>
  79   </TR>
  80
  81 <% foreach my $part_svc ( @part_svc ) {
  82      my $svcdb = $part_svc->svcdb;
  83      my $svc_x = "FS::$svcdb"->new( { svcpart => $part_svc->svcpart } );
  84      my @dfields = $svc_x->fields;
  85      push @dfields, 'usergroup' if $svcdb eq 'svc_acct'; #kludge
  86      my @fields =
  87        grep { $svc_x->pvf($_)
  88            or $_ ne 'svcnum' && $part_svc->part_svc_column($_)->columnflag }
  89             @dfields ;
  90      my $rowspan = scalar(@fields) || 1;
  91      my $url = "${p}edit/part_svc.cgi?". $part_svc->svcpart;
  92 %>
  93
  94   <TR>
  95     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
  96       <%= $part_svc->svcpart %></A></TD>
  97 <% if ( $cgi->param('showdisabled') ) { %>
  98     <TD ROWSPAN=<%= $rowspan %>>
  99       <%= $part_svc->disabled
 100             ? '<FONT COLOR="#FF0000"><B>Disabled</B></FONT>'
 101             : '<FONT COLOR="#00CC00"><B>Enabled</B></FONT>'
 102       %>
 103     </TD>
 104 <% } %>
 105     <TD ROWSPAN=<%= $rowspan %>><A HREF="<%= $url %>">
 106       <%= $part_svc->svc %></A></TD>
 107     <TD ROWSPAN=<%= $rowspan %>>
 108       <%= $svcdb %></TD>
 109     <TD ROWSPAN=<%= $rowspan %>>
 110       <FONT COLOR="#00CC00"><B><%= $num_active_cust_svc{$part_svc->svcpart} %></B></FONT>&nbsp;<A HREF="<%=$p%>search/<%= $svcdb %>.cgi?svcpart=<%= $part_svc->svcpart %>">active</A>
 111       <% if ( $num_active_cust_svc{$part_svc->svcpart} ) { %>
 112         <BR><FONT SIZE="-1">[ <A HREF="<%=$p%>edit/bulk-cust_svc.html?svcpart=<%= $part_svc->svcpart %>">change</A> ]</FONT>
 113       <% } %>
 114     </TD>
 115     <TD ROWSPAN=<%= $rowspan %>><%= itable() %>
 116 <%
 117 #  my @part_export =
 118 map { qsearchs('part_export', { exportnum => $_->exportnum } ) } qsearch('export_svc', { svcpart => $part_svc->svcpart } ) ;
 119   foreach my $part_export (
 120     map { qsearchs('part_export', { exportnum => $_->exportnum } ) }
 121       qsearch('export_svc', { svcpart => $part_svc->svcpart } )
 122   ) {
 123 %>
 124       <TR>
 125         <TD><A HREF="<%= $p %>edit/part_export.cgi?<%= $part_export->exportnum %>"><%= $part_export->exportnum %>:&nbsp;<%= $part_export->exporttype %>&nbsp;to&nbsp;<%= $part_export->machine %></A></TD></TR>
 126 <%  } %>
 127       </TABLE></TD>
 128
 129 <%   my($n1)='';
 130      foreach my $field ( @fields ) {
 131        my $flag = $part_svc->part_svc_column($field)->columnflag;
 132 %>
 133      <%= $n1 %>
 134      <TD><%= $field %></TD>
 135      <TD><%= $flag{$flag} %></TD>
 136
 137      <TD>
 138        <% my $value = $part_svc->part_svc_column($field)->columnvalue;
 139           if ( $flag =~ /^[MA]$/ ) {
 140             $inventory_class{$value}
 141               ||= qsearchs('inventory_class', { 'classnum' => $value } );
 142        %>
 143             <%= $inventory_class{$value}
 144                   ? $inventory_class{$value}->classname
 145                   : "WARNING: inventory_class.classnum $value not found" %>
 146        <% } else { %>
 147             <%= $value %>
 148        <% } %>
 149      </TD>
 150
 151
 152 <%     $n1="</TR><TR>";
 153      }
 154 %>
 155   </TR>
 156 <% } %>
 157 </TABLE>
 158 </BODY>
 159 </HTML>