<% if ( $cgi->param('showdisabled') ) { $cgi->param('showdisabled', 0); %>
( <a href="<%= $cgi->self_url %>">hide disabled packages</a> )
<% } else { $cgi->param('showdisabled', 1); %>
<% if ( $cgi->param('showdisabled') ) { $cgi->param('showdisabled', 0); %>
( <a href="<%= $cgi->self_url %>">hide disabled packages</a> )
<% } else { $cgi->param('showdisabled', 1); %>
- $hashref->{plan} = "(legacy)";
- $plandata = "Setup ". $hashref->{setup}.
- "<BR>Recur ". $hashref->{recur};
+ $part_pkg->plan('(legacy)');
+ $plandata = "Setup ". $part_pkg->setup.
+ "<BR>Recur ". $part_pkg->recur;
- <TD ROWSPAN=<%= $rowspan %>><A HREF="<%=$p%>edit/part_pkg.cgi?<%= $hashref->{pkgpart} %>"><%= $hashref->{pkg} %></A></TD>
- <TD ROWSPAN=<%= $rowspan %>><%= $hashref->{comment} %></TD>
+ <TD ROWSPAN=<%= $rowspan %>><A HREF="<%=$p%>edit/part_pkg.cgi?<%= $part_pkg->pkgpart %>"><%= $part_pkg->pkg %></A></TD>
+ <TD ROWSPAN=<%= $rowspan %>><%= $part_pkg->comment %></TD>
<% $suspended_sth->execute( $part_pkg->pkgpart )
or die $suspended_sth->errstr;
my $num_suspended = $suspended_sth->fetchrow_arrayref->[0];
%>
<% $suspended_sth->execute( $part_pkg->pkgpart )
or die $suspended_sth->errstr;
my $num_suspended = $suspended_sth->fetchrow_arrayref->[0];
%>
<% $canceled_sth->execute( $part_pkg->pkgpart )
or die $canceled_sth->errstr;
my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
%>
<% $canceled_sth->execute( $part_pkg->pkgpart )
or die $canceled_sth->errstr;
my $num_canceled = $canceled_sth->fetchrow_arrayref->[0];
%>