X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_svc.cgi;h=0113263fb51c793a09f0685a0772199bdb291995;hp=1306ac05789efcb49238bb6ad40d188c06293fdd;hb=3ce7691203a7737406bf2d4442f7fd84b81f847e;hpb=1e4aa8069f25e1b4101da20bb9e0d3f60357ea52
diff --git a/httemplate/browse/part_svc.cgi b/httemplate/browse/part_svc.cgi
index 1306ac057..0113263fb 100755
--- a/httemplate/browse/part_svc.cgi
+++ b/httemplate/browse/part_svc.cgi
@@ -1,60 +1,177 @@
-
-<%= header('Service Definition Listing', menubar( 'Main Menu' => $p) ) %>
+%
+%
+%#code duplication w/ edit/part_svc.cgi, should move this hash to part_svc.pm
+%my %flag = (
+% '' => '',
+% 'D' => 'Default',
+% 'F' => 'Fixed (unchangeable)',
+% #'M' => 'Manual selection from inventory',
+% 'M' => 'Manual selected from inventory',
+% #'A' => 'Automatically fill in from inventory',
+% 'A' => 'Automatically filled in from inventory',
+% 'X' => 'Excluded',
+%);
+%
+%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 = map { $_->svcpart => $_->num_cust_svc } @part_svc;
+%
+%if ( $cgi->param('orderby') eq 'active' ) {
+% @part_svc = sort { $num_active_cust_svc{$b->svcpart} <=>
+% $num_active_cust_svc{$a->svcpart} } @part_svc;
+%} elsif ( $cgi->param('orderby') eq 'svc' ) {
+% @part_svc = sort { lc($a->svc) cmp lc($b->svc) } @part_svc;
+%}
+%
+%my %inventory_class = ();
+%
+%
- Services are items you offer to your customers.
-
Service | +# | +% if ( $cgi->param('showdisabled') ) { + +Status | +% } + +Service | Table | +Customer Services |
+ Export | Field | Modifier | ||
---|---|---|---|---|---|---|---|---|---|---|
> - <%= $hashref->{svcpart} %> | -> - <%= $hashref->{svc} %> | -> - <%= $hashref->{svcdb} %> | - -<% my($n1)=''; - my($row); - foreach $row ( @rows ) { - my($flag)=$part_svc->getfield($svcdb.'__'.$row.'_flag'); -%> - <%= $n1 %><%= $row %> | + | > + <% $part_svc->svcpart %> | +% if ( $cgi->param('showdisabled') ) { -<% if ( $flag eq "D" ) { print "Default"; } - elsif ( $flag eq "F" ) { print "Fixed"; } - else { print "(Unknown!)"; } -%> -<%= $part_svc->getfield($svcdb."__".$row) %> | -<% $n1="||||
> + <% $part_svc->disabled + ? 'Disabled' + : 'Enabled' + %> + | +% } + +> + <% $part_svc->svc %> | +> + <% $svcdb %> | +>
+ <% $num_active_cust_svc{$part_svc->svcpart} %> active
+% if ( $num_active_cust_svc{$part_svc->svcpart} ) {
+
+ [ change ] +% } + + |
+ ><% 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 %> |