5 if ( $cgi->param('showdisabled') ) {
8 %search = ( 'disabled' => '' );
11 my @part_pkg = qsearch('part_pkg', \%search );
12 my $total = scalar(@part_pkg);
15 <%= header("Package Definition Listing",menubar( 'Main Menu' => $p )) %>
16 One or more services are grouped together into a package and given pricing
17 information. Customers purchase packages rather than purchase services
19 <A HREF="<%= $p %>edit/part_pkg.cgi"><I>Add a new package definition</I></A>
22 <%= $total %> packages
24 if ( $cgi->param('showdisabled') ) {
25 $cgi->param('showdisabled', 0);
26 print qq!( <a href="!. $cgi->self_url. qq!">hide disabled packages</a> )!;
28 $cgi->param('showdisabled', 1);
29 print qq!( <a href="!. $cgi->self_url. qq!">show disabled packages</a> )!;
32 my $colspan = $cgi->param('showdisabled') ? 2 : 3;
33 print &table(), <<END;
35 <TH COLSPAN=$colspan>Package</TH>
37 <TH><FONT SIZE=-1>Freq.</FONT></TH>
38 <TH><FONT SIZE=-1>Plan</FONT></TH>
39 <TH><FONT SIZE=-1>Data</FONT></TH>
41 <TH><FONT SIZE=-1>Quan.</FONT></TH>
45 foreach my $part_pkg ( sort {
46 $a->getfield('pkgpart') <=> $b->getfield('pkgpart')
48 my($hashref)=$part_pkg->hashref;
49 my(@pkg_svc)=grep $_->getfield('quantity'),
50 qsearch('pkg_svc',{'pkgpart'=> $hashref->{pkgpart} });
51 my($rowspan)=scalar(@pkg_svc);
53 if ( $hashref->{plan} ) {
54 $plandata = $hashref->{plandata};
55 $plandata =~ s/^(\w+)=/$1 /mg;
56 $plandata =~ s/\n/<BR>/g;
58 $hashref->{plan} = "(legacy)";
59 $plandata = "Setup ". $hashref->{setup}.
60 "<BR>Recur ". $hashref->{recur};
64 <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkgpart}</A></TD>
67 unless ( $cgi->param('showdisabled') ) {
68 print "<TD ROWSPAN=$rowspan>";
69 print "DISABLED" if $hashref->{disabled};
74 <TD ROWSPAN=$rowspan><A HREF="${p}edit/part_pkg.cgi?$hashref->{pkgpart}">$hashref->{pkg}</A></TD>
75 <TD ROWSPAN=$rowspan>$hashref->{comment}</TD>
76 <TD ROWSPAN=$rowspan>$hashref->{freq}</TD>
77 <TD ROWSPAN=$rowspan>$hashref->{plan}</TD>
78 <TD ROWSPAN=$rowspan>$plandata</TD>
83 foreach $pkg_svc ( @pkg_svc ) {
84 my($svcpart)=$pkg_svc->getfield('svcpart');
85 my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
86 print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!,
87 $part_svc->getfield('svc'),"</A></TD><TD>",
88 $pkg_svc->getfield('quantity'),"</TD></TR>\n";
95 $colspan = $cgi->param('showdisabled') ? 8 : 9;