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