my $taxclasses = $conf->exists('enable_taxclasses');
%>
-<%= header("Package Definition Listing",menubar( 'Main Menu' => $p )) %>
+<%= include("/elements/header.html","Package Definition Listing",menubar( 'Main Menu' => $p )) %>
<% unless ( $cgi->param('active') ) { %>
One or more service definitions are grouped together into a package
definition and given pricing information. Customers purchase packages
<%
foreach my $part_pkg ( sort $sortby @part_pkg ) {
- my(@pkg_svc)=grep $_->getfield('quantity'),
- qsearch( 'pkg_svc', { 'pkgpart' => $part_pkg->pkgpart } );
+ my @pkg_svc = $part_pkg->pkg_svc;
my($rowspan)=scalar(@pkg_svc);
my $plandata;
if ( $part_pkg->plan ) {
<TD ROWSPAN=<%= $rowspan %>><%= $plandata %></TD>
<%
- my($pkg_svc);
my($n)="";
- foreach $pkg_svc ( @pkg_svc ) {
+ foreach my $pkg_svc ( @pkg_svc ) {
my($svcpart)=$pkg_svc->getfield('svcpart');
my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!,