httemplate/browse/part_pkg.cgi

   1 <%
   2
   3 my %search;
   4 if ( $cgi->param('showdisabled') ) {
   5   %search = ();
   6 } else {
   7   %search = ( 'disabled' => '' );
   8 }
   9
  10 my @part_pkg = qsearch('part_pkg', \%search );
  11 my $total = scalar(@part_pkg);
  12
  13 print header("Package Definition Listing",menubar(
  14   'Main Menu' => $p,
  15 )). "One or more services are grouped together into a package and given".
  16   " pricing information. Customers purchase packages".
  17   " rather than purchase services directly.<BR><BR>".
  18   "$total packages ";
  19
  20 if ( $cgi->param('showdisabled') ) {
  21   $cgi->param('showdisabled', 0);
  22   print qq!( <a href="!. $cgi->self_url. qq!">hide disabled packages</a> )!;
  23 } else {
  24   $cgi->param('showdisabled', 1);
  25   print qq!( <a href="!. $cgi->self_url. qq!">show disabled packages</a> )!;
  26 }
  27
  28 my $colspan = $cgi->param('showdisabled') ? 2 : 3;
  29 print &table(), <<END;
  30       <TR>
  31         <TH COLSPAN=2>Package</TH>
  32         <TH>Comment</TH>
  33         <TH><FONT SIZE=-1>Freq.</FONT></TH>
  34         <TH><FONT SIZE=-1>Plan</FONT></TH>
  35         <TH><FONT SIZE=-1>Data</FONT></TH>
  36         <TH>Service</TH>
  37         <TH><FONT SIZE=-1>Quan.</FONT></TH>
  38       </TR>
  39 END
  40
  41 foreach my $part_pkg ( sort {
  42   $a->getfield('pkgpart') <=> $b->getfield('pkgpart')
  43 } @part_pkg ) {
  44   my($hashref)=$part_pkg->hashref;
  45   my(@pkg_svc)=grep $_->getfield('quantity'),
  46     qsearch('pkg_svc',{'pkgpart'=> $hashref->{pkgpart} });
  47   my($rowspan)=scalar(@pkg_svc);
  48   my $plandata;
  49   if ( $hashref->{plan} ) {
  50     $plandata = $hashref->{plandata};
  51     $plandata =~ s/^(\w+)=/$1&nbsp;/mg;
  52     $plandata =~ s/\n/<BR>/g;
  53   } else {
  54     $hashref->{plan} = "(legacy)";
  55     $plandata = "Setup&nbsp;". $hashref->{setup}.
  56                 "<BR>Recur&nbsp;". $hashref->{recur};
  57   }
  58   print <<END;
  59       <TR>
  60         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkgpart}</A></TD>
  61 END
  62
  63   unless ( $cgi->param('showdisabled') ) {
  64     print "<TD ROWSPAN=$rowspan>";
  65     print "DISABLED" if $hashref->{disabled};
  66     print '</TD>';
  67   }
  68
  69   print <<END;
  70         <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkg}</A></TD>
  71         <TD ROWSPAN=$rowspan>$hashref->{comment}</TD>
  72         <TD ROWSPAN=$rowspan>$hashref->{freq}</TD>
  73         <TD ROWSPAN=$rowspan>$hashref->{plan}</TD>
  74         <TD ROWSPAN=$rowspan>$plandata</TD>
  75 END
  76
  77   my($pkg_svc);
  78   my($n)="";
  79   foreach $pkg_svc ( @pkg_svc ) {
  80     my($svcpart)=$pkg_svc->getfield('svcpart');
  81     my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
  82     print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!,
  83           $part_svc->getfield('svc'),"</A></TD><TD>",
  84           $pkg_svc->getfield('quantity'),"</TD></TR>\n";
  85     $n="<TR>";
  86   }
  87
  88   print "</TR>";
  89 }
  90
  91 print <<END;
  92    <TR><TD COLSPAN=8><I><A HREF="${p}edit/part_pkg.cgi">Add a new package definition</A></I></TD></TR>
  93     </TABLE>
  94   </BODY>
  95 </HTML>
  96 END
  97 %>