RTx-Statistics in 2.1 / 3.8, RT#10046

[freeside.git] / httemplate / elements / tr-pkg_svc.html

diff --git a/httemplate/elements/tr-pkg_svc.html b/httemplate/elements/tr-pkg_svc.html
index a9561a1..66bbddf 100644 (file)
--- a/httemplate/elements/tr-pkg_svc.html
+++ b/httemplate/elements/tr-pkg_svc.html
@@ -1,5 +1,5 @@
 <TR>
-  <TD BGCOLOR="#e8e8e8" COLSPAN=99>
+  <TD CLASS="background" COLSPAN=99>
 
 <% itable('', 4, 1) %><TR><TD VALIGN="top">
 <% $thead %>
@@ -12,6 +12,7 @@
 %                                   'svcpart'     => $svcpart,
 %                                   'quantity'    => 0,
 %                                   'primary_svc' => '',
+%                                   'hidden'      => '',
 %                                } );
 %  if ( $cgi->param('error') ) {
 %    my $primary_svc = ( $pkg_svc->primary_svc =~ /^Y/i );
@@ -43,6 +44,10 @@
     <TD>
       <A HREF="part_svc.cgi?<% $part_svc->svcpart %>"><% $part_svc->svc %></A>      <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %>
     </TD>
+
+    <TD>
+      <INPUT TYPE="checkbox" NAME="hidden<% $svcpart %>" VALUE="Y"<% $pkg_svc->hidden =~ /^Y/i ? ' CHECKED' : ''%>>
+    </TD>
   </TR>
 % foreach ( 1 .. $columns-1 ) {
 %       if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) { 
@@ -68,7 +73,9 @@ my $cgi = $opt{'cgi'};
 my $thead =  "\n\n". ntable('#cccccc', 2).
              '<TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH>'.
              '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-2>Primary</FONT></TH>'.
-             '<TH BGCOLOR="#dcdcdc">Service</TH></TR>';
+             '<TH BGCOLOR="#dcdcdc">Service</TH>'.
+             '<TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Hide</FONT></TH>'.
+             '</TR>';
 
 my $part_pkg = $opt{'object'};
 my $pkgpart = $part_pkg->pkgpart;
@@ -84,7 +91,7 @@ my @part_svc = qsearch('part_svc', {}, '', $where);
 
 #my $q_part_pkg = $clone_part_pkg || $part_pkg;
 #my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc;
-my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc;
+my %pkg_svc = map { $_->svcpart => $_ } $part_pkg->pkg_svc('disable_linked'=>1);
 
 my @fixups = ();
 my $count = 0;