httemplate/browse/part_pkg.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my %search;
   5 if ( $cgi->param('showdisabled') ) {
   6   %search = ();
   7 } else {
   8   %search = ( 'disabled' => '' );
   9 }
  10
  11 my @part_pkg = qsearch('part_pkg', \%search );
  12 my $total = scalar(@part_pkg);
  13
  14 my $sortby;
  15 my %num_active_cust_pkg;
  16 if ( $cgi->param('active') ) {
  17   my $active_sth = dbh->prepare(
  18     'SELECT COUNT(*) FROM cust_pkg WHERE pkgpart = ?'.
  19     ' AND ( cancel IS NULL OR cancel = 0 )'.
  20     ' AND ( susp IS NULL OR susp = 0 )'
  21   ) or die dbh->errstr;
  22   foreach my $part_pkg ( @part_pkg ) {
  23     $active_sth->execute($part_pkg->pkgpart) or die $active_sth->errstr;
  24     $num_active_cust_pkg{$part_pkg->pkgpart} =
  25       $active_sth->fetchrow_arrayref->[0];
  26   }
  27   $sortby = \*active_cust_pkg_sort;
  28 } else {
  29   $sortby = \*pkgpart_sort;
  30 }
  31
  32 %>
  33 <%= header("Package Definition Listing",menubar( 'Main Menu' => $p )) %>
  34 <% unless ( $cgi->param('active') ) { %>
  35   One or more service definitions are grouped together into a package
  36   definition and given pricing information.  Customers purchase packages
  37   rather than purchase services directly.<BR><BR>
  38   <A HREF="<%= $p %>edit/part_pkg.cgi"><I>Add a new package definition</I></A>
  39   <BR><BR>
  40 <% } %>
  41
  42 <%= $total %> package definitions
  43 <%
  44 if ( $cgi->param('showdisabled') ) {
  45   $cgi->param('showdisabled', 0);
  46   print qq!( <a href="!. $cgi->self_url. qq!">hide disabled packages</a> )!;
  47 } else {
  48   $cgi->param('showdisabled', 1);
  49   print qq!( <a href="!. $cgi->self_url. qq!">show disabled packages</a> )!;
  50 }
  51
  52 my $colspan = $cgi->param('showdisabled') ? 2 : 3;
  53 print &table(), <<END;
  54       <TR>
  55         <TH COLSPAN=$colspan>Package</TH>
  56         <TH>Comment</TH>
  57 END
  58 print '        <TH><FONT SIZE=-1>Customer<BR>packages</FONT></TH>'
  59   if $cgi->param('active');
  60 print <<END;
  61         <TH><FONT SIZE=-1>Freq.</FONT></TH>
  62         <TH><FONT SIZE=-1>Plan</FONT></TH>
  63         <TH><FONT SIZE=-1>Data</FONT></TH>
  64         <TH>Service</TH>
  65         <TH><FONT SIZE=-1>Quan.</FONT></TH>
  66       </TR>
  67 END
  68
  69 foreach my $part_pkg ( sort $sortby @part_pkg ) {
  70   my($hashref)=$part_pkg->hashref;
  71   my(@pkg_svc)=grep $_->getfield('quantity'),
  72     qsearch('pkg_svc',{'pkgpart'=> $hashref->{pkgpart} });
  73   my($rowspan)=scalar(@pkg_svc);
  74   my $plandata;
  75   if ( $hashref->{plan} ) {
  76     $plandata = $hashref->{plandata};
  77     $plandata =~ s/^(\w+)=/$1&nbsp;/mg;
  78     $plandata =~ s/\n/<BR>/g;
  79   } else {
  80     $hashref->{plan} = "(legacy)";
  81     $plandata = "Setup&nbsp;". $hashref->{setup}.
  82                 "<BR>Recur&nbsp;". $hashref->{recur};
  83   }
  84   print <<END;
  85       <TR>
  86         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkgpart}</A></TD>
  87 END
  88
  89   unless ( $cgi->param('showdisabled') ) {
  90     print "<TD ROWSPAN=$rowspan>";
  91     print "DISABLED" if $hashref->{disabled};
  92     print '</TD>';
  93   }
  94
  95   print <<END;
  96         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkg}</A></TD>
  97         <TD ROWSPAN=$rowspan>$hashref->{comment}</TD>
  98 END
  99   if ( $cgi->param('active') ) {
 100     print "        <TD ROWSPAN=$rowspan>";
 101     print '<FONT COLOR="#00CC00"><B>'.
 102           $num_active_cust_pkg{$hashref->{'pkgpart'}}.
 103           qq!</B></FONT>&nbsp;<A HREF="${p}search/cust_pkg.cgi?magic=active;pkgpart=$hashref->{pkgpart}">active</A>!;
 104     # suspended/cancelled
 105     print '</TD>';
 106   }
 107   print <<END;
 108         <TD ROWSPAN=$rowspan>$hashref->{freq}</TD>
 109         <TD ROWSPAN=$rowspan>$hashref->{plan}</TD>
 110         <TD ROWSPAN=$rowspan>$plandata</TD>
 111 END
 112
 113   my($pkg_svc);
 114   my($n)="";
 115   foreach $pkg_svc ( @pkg_svc ) {
 116     my($svcpart)=$pkg_svc->getfield('svcpart');
 117     my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
 118     print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!,
 119           $part_svc->getfield('svc'),"</A></TD><TD>",
 120           $pkg_svc->getfield('quantity'),"</TD></TR>\n";
 121     $n="<TR>";
 122   }
 123
 124   print "</TR>";
 125 }
 126
 127 $colspan = $cgi->param('showdisabled') ? 8 : 9;
 128 print <<END;
 129
 130     </TABLE>
 131   </BODY>
 132 </HTML>
 133 END
 134
 135
 136 sub pkgpart_sort {
 137   $a->pkgpart <=> $b->pkgpart;
 138 }
 139
 140 sub active_cust_pkg_sort {
 141   $num_active_cust_pkg{$b->pkgpart} <=> $num_active_cust_pkg{$a->pkgpart};
 142 }
 143
 144 %>