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