X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_svc.cgi;h=6198a1aec1d044a19169b78eaedd88fe50885f62;hb=b89c7f126690704c8d1558dba06d5fabd7470528;hp=84d8a356644f71318a0f60b0b8c49aad07d42f89;hpb=51984ac3d3da3006809c6866fdecd4ad83610731;p=freeside.git
diff --git a/httemplate/browse/part_svc.cgi b/httemplate/browse/part_svc.cgi
index 84d8a3566..6198a1aec 100755
--- a/httemplate/browse/part_svc.cgi
+++ b/httemplate/browse/part_svc.cgi
@@ -1,60 +1,210 @@
-
-<%= header('Service Part 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)',
+% 'S' => 'Selectable choice',
+% #'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 | -Table | -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 | -<% if ( $flag eq "D" ) { print "Default"; } - elsif ( $flag eq "F" ) { print "Fixed"; } - else { print "(Unknown!)"; } -%> - | <%= $part_svc->getfield($svcdb."__".$row) %> | -<% $n1="|||||||
# | + +% if ( $cgi->param('showdisabled') ) { +Status | +% } + +Service | + +Table | + +Customer Services |
+
+ Export | + +Field | + +Modifier | +|||||
Add new service | + +CLASS="grid" BGCOLOR="<% $bgcolor %>"> + <% $part_svc->svcpart %> + | + +% if ( $cgi->param('showdisabled') ) { +CLASS="grid" BGCOLOR="<% $bgcolor %>"> + <% $part_svc->disabled + ? 'Disabled' + : 'Enabled' + %> + | +% } + +CLASS="grid" BGCOLOR="<% $bgcolor %>"> + <% $part_svc->svc %> | + +CLASS="grid" BGCOLOR="<% $bgcolor %>"> + <% $svcdb %> | + + CLASS="grid" BGCOLOR="<% $bgcolor %>">
+ <% $num_active_cust_svc{$part_svc->svcpart} %> <% $num_active_cust_svc{$part_svc->svcpart} ? FS::UI::Web::svc_url( 'ahref' => 1, 'm' => $m, 'action' => 'search', 'part_svc' => $part_svc, 'query' => "svcpart=". $part_svc->svcpart ) : '' %>active
+
+% if ( $num_active_cust_svc{$part_svc->svcpart} ) {
+ [ change ] +% } + + |
+
+ CLASS="inv" BGCOLOR="<% $bgcolor %>">
+
|
+
+% unless ( @fields ) {
+% for ( 1..3 ) {
+ +% } +% } +% +% my($n1)=''; +% foreach my $field ( @fields ) { +% my $flag = $part_svc->part_svc_column($field)->columnflag; +% + + <% $n1 %> + | <% $field %> | +<% $flag{$flag} %> | + ++% my $value = $part_svc->part_svc_column($field)->columnvalue; +% if ( $flag =~ /^[MA]$/ ) { +% $inventory_class{$value} +% ||= qsearchs('inventory_class', { 'classnum' => $value } ); +% + + <% $inventory_class{$value} + ? $inventory_class{$value}->classname + : "WARNING: inventory_class.classnum $value not found" %> +% } else { + + <% $value %> +% } + + | +% $n1="||