<% my %search; if ( $cgi->param('showdisabled') ) { %search = (); } else { %search = ( 'disabled' => '' ); } my @part_svc = sort { $a->getfield('svcpart') <=> $b->getfield('svcpart') } qsearch('part_svc', \%search ); my $total = scalar(@part_svc); my %num_active_cust_svc = (); if ( $cgi->param('active') ) { my $active_sth = dbh->prepare( 'SELECT COUNT(*) FROM cust_svc WHERE svcpart = ?' ) or die dbh->errstr; foreach my $part_svc ( @part_svc ) { $active_sth->execute($part_svc->svcpart) or die $active_sth->errstr; $num_active_cust_svc{$part_svc->svcpart} = $active_sth->fetchrow_arrayref->[0]; } @part_svc = sort { $num_active_cust_svc{$b->svcpart} <=> $num_active_cust_svc{$a->svcpart} } @part_svc; } %> <%= header('Service Definition Listing', menubar( 'Main Menu' => $p) ) %> Service definitions are the templates for items you offer to your customers.

Add a new service definition<% if ( @part_svc ) { %> or  <% } %>

<%= $total %> service definitions <%= $cgi->param('showdisabled') ? do { $cgi->param('showdisabled', 0); '( hide disabled services )'; } : do { $cgi->param('showdisabled', 1); '( show disabled services )'; } %> <%= table() %> param('showdisabled') ? 2 : 3 %>>Service Table <% if ( $cgi->param('active') ) { %> Customer
Services
<% } %> Export Field Modifier <% foreach my $part_svc ( @part_svc ) { my $hashref = $part_svc->hashref; my $svcdb = $hashref->{svcdb}; my $svc_x = "FS::$svcdb"->new( { svcpart => $part_svc->svcpart } ); my @dfields = $svc_x->fields; push @dfields, 'usergroup' if $svcdb eq 'svc_acct'; #kludge my @fields = grep { $svc_x->pvf($_) or $_ ne 'svcnum' && $part_svc->part_svc_column($_)->columnflag } @dfields ; my $rowspan = scalar(@fields) || 1; my $url = "${p}edit/part_svc.cgi?$hashref->{svcpart}"; %> > <%= $hashref->{svcpart} %> <% unless ( $cgi->param('showdisabled') ) { %> > <%= $hashref->{disabled} ? 'DISABLED' : '' %> <% } %> > <%= $hashref->{svc} %> > <%= $hashref->{svcdb} %> <% if ( $cgi->param('active') ) { %> > <%= $num_active_cust_svc{$hashref->{svcpart}} %> active <% } %> ><%= itable() %> <% # my @part_export = map { qsearchs('part_export', { exportnum => $_->exportnum } ) } qsearch('export_svc', { svcpart => $part_svc->svcpart } ) ; foreach my $part_export ( map { qsearchs('part_export', { exportnum => $_->exportnum } ) } qsearch('export_svc', { svcpart => $part_svc->svcpart } ) ) { %> <%= $part_export->exportnum %>: <%= $part_export->exporttype %> to <%= $part_export->machine %> <% } %> <% my($n1)=''; foreach my $field ( @fields ) { my $flag = $part_svc->part_svc_column($field)->columnflag; %> <%= $n1 %><%= $field %> <% if ( $flag eq "D" ) { print "Default"; } elsif ( $flag eq "F" ) { print "Fixed"; } elsif ( not $flag ) { } else { print "(Unknown!)"; } %> <%= $part_svc->part_svc_column($field)->columnvalue%> <% $n1=""; } %> <% } %>