$hashref->{pkg}
- $hashref->{comment} |
-END
- if ( $cgi->param('active') ) {
- print " ";
- print ''.
- $num_active_cust_pkg{$hashref->{'pkgpart'}}.
- qq! active !;
+ | ><%= $part_pkg->pkg %> |
+ ><%= $part_pkg->comment %> |
+
+<% if ( $cgi->param('active') ) { %>
+ >
+ <%= $num_active_cust_pkg{$part_pkg->pkgpart} %> active
+
+ <% $suspended_sth->execute( $part_pkg->pkgpart )
+ or die $suspended_sth->errstr;
+ my $num_suspended = $suspended_sth->fetchrow_arrayref->[0];
+ %>
+ <%= $num_suspended %> suspended
+
+ <% $canceled_sth->execute( $part_pkg->pkgpart )
+ or die $canceled_sth->errstr;
+ my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
+ %>
+ <%= $num_canceled %> canceled
+ |
+<% } %>
- $suspended_sth->execute( $part_pkg->pkgpart ) or die $suspended_sth->errstr;
- my $num_suspended = $suspended_sth->fetchrow_arrayref->[0];
- print ''. $num_suspended.
- qq! suspended
!;
+ ><%= $part_pkg->freq_pretty %> |
- $canceled_sth->execute( $part_pkg->pkgpart ) or die $canceled_sth->errstr;
- my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
- print ''. $num_canceled.
- qq! canceled!;
+<% if ( $taxclasses ) { %>
+ ><%= $part_pkg->taxclass || ' ' %> |
+<% } %>
+ ><%= $part_pkg->plan %> |
+ ><%= $plandata %> |
- print '';
- }
- print <$hashref->{freq}
- $hashref->{plan} |
- $plandata |
-END
-
+<%
my($pkg_svc);
my($n)="";
foreach $pkg_svc ( @pkg_svc ) {
@@ -154,20 +161,11 @@ END
print "