-)), "One or more services are grouped together into a package and given",
- " pricing information. Customers purchase packages",
- " rather than purchase services directly.<BR><BR>",
- &table(), <<END;
+)). "One or more services are grouped together into a package and given".
+ " pricing information. Customers purchase packages".
+ " rather than purchase services directly.<BR><BR>".
+ "$total packages ";
+
+if ( $cgi->param('showdisabled') ) {
+ $cgi->param('showdisabled', 0);
+ print qq!( <a href="!. $cgi->self_url. qq!">hide disabled packages</a> )!;
+} else {
+ $cgi->param('showdisabled', 1);
+ print qq!( <a href="!. $cgi->self_url. qq!">show disabled packages</a> )!;
+}
+
+my $colspan = $cgi->param('showdisabled') ? 2 : 3;
+print &table(), <<END;