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 END
  82 print '<TH><FONT SIZE=-1>Primary</FONT></TH>'
  83    if dbdef->table('pkg_svc')->column('primary_svc');
  84 print '</TR>';
  85
  86 foreach my $part_pkg ( sort $sortby @part_pkg ) {
  87   my($hashref)=$part_pkg->hashref;
  88   my(@pkg_svc)=grep $_->getfield('quantity'),
  89     qsearch('pkg_svc',{'pkgpart'=> $hashref->{pkgpart} });
  90   my($rowspan)=scalar(@pkg_svc);
  91   my $plandata;
  92   if ( $hashref->{plan} ) {
  93     $plandata = $hashref->{plandata};
  94     $plandata =~ s/^(\w+)=/$1&nbsp;/mg;
  95     $plandata =~ s/\n/<BR>/g;
  96   } else {
  97     $hashref->{plan} = "(legacy)";
  98     $plandata = "Setup&nbsp;". $hashref->{setup}.
  99                 "<BR>Recur&nbsp;". $hashref->{recur};
 100   }
 101   print <<END;
 102       <TR>
 103         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkgpart}</A></TD>
 104 END
 105
 106   unless ( $cgi->param('showdisabled') ) {
 107     print "<TD ROWSPAN=$rowspan>";
 108     print "DISABLED" if $hashref->{disabled};
 109     print '</TD>';
 110   }
 111
 112   print <<END;
 113         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkg}</A></TD>
 114         <TD ROWSPAN=$rowspan>$hashref->{comment}</TD>
 115 END
 116   if ( $cgi->param('active') ) {
 117     print "        <TD ROWSPAN=$rowspan>";
 118     print '<FONT COLOR="#00CC00"><B>'.
 119           $num_active_cust_pkg{$hashref->{'pkgpart'}}.
 120           qq!</B></FONT>&nbsp;<A HREF="${p}search/cust_pkg.cgi?magic=active;pkgpart=$hashref->{pkgpart}">active</A><BR>!;
 121
 122     $suspended_sth->execute( $part_pkg->pkgpart ) or die $suspended_sth->errstr;
 123     my $num_suspended = $suspended_sth->fetchrow_arrayref->[0];
 124     print '<FONT COLOR="#FF9900"><B>'. $num_suspended.
 125           qq!</B></FONT>&nbsp;<A HREF="${p}search/cust_pkg.cgi?magic=suspended;pkgpart=$hashref->{pkgpart}">suspended</A><BR>!;
 126
 127     $canceled_sth->execute( $part_pkg->pkgpart ) or die $canceled_sth->errstr;
 128     my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
 129     print '<FONT COLOR="#FF0000"><B>'. $num_canceled.
 130           qq!</B></FONT>&nbsp;<A HREF="${p}search/cust_pkg.cgi?magic=canceled;pkgpart=$hashref->{pkgpart}">canceled</A>!;
 131
 132
 133     print '</TD>';
 134   }
 135   print <<END;
 136         <TD ROWSPAN=$rowspan>$hashref->{freq}</TD>
 137         <TD ROWSPAN=$rowspan>$hashref->{plan}</TD>
 138         <TD ROWSPAN=$rowspan>$plandata</TD>
 139 END
 140
 141   my($pkg_svc);
 142   my($n)="";
 143   foreach $pkg_svc ( @pkg_svc ) {
 144     my($svcpart)=$pkg_svc->getfield('svcpart');
 145     my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
 146     print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!,
 147           $part_svc->getfield('svc'),"</A></TD><TD>",
 148           $pkg_svc->getfield('quantity'),"</TD>";
 149     if ( dbdef->table('pkg_svc')->column('primary_svc') ) {
 150       print '<TD>';
 151       print 'PRIMARY' if $pkg_svc->primary_svc =~ /^Y/i;
 152       print '</TD>';
 153     }
 154     print "</TR>\n";
 155     $n="<TR>";
 156   }
 157
 158   print "</TR>";
 159 }
 160
 161 $colspan = $cgi->param('showdisabled') ? 8 : 9;
 162 print <<END;
 163
 164     </TABLE>
 165   </BODY>
 166 </HTML>
 167 END
 168
 169 sub pkgpart_sort {
 170   $a->pkgpart <=> $b->pkgpart;
 171 }
 172
 173 %>