%# some false laziness w/search/cust_pkg.cgi
% for my $param (
% qw(
% agentnum cust_status cust_main_salesnum salesnum custnum magic status
% custom pkgbatch zip reasonnum
% 477part 477rownum date
% report_option
% ),
% grep { /^location_\w+$/ || /^report_option_any/ } $cgi->param
% ) {
% }
%
% for my $param (qw( censustract censustract2 ) ) {
% next unless grep { $_ eq $param } $cgi->param;
% }
%
% for my $param (qw( pkgpart classnum refnum towernum )) {
% foreach my $value ($cgi->param($param)) {
% }
% }
%
% foreach my $field (qw( setup last_bill bill adjourn susp expire contract_end change_date cancel active )) {
%
">
">
">
">
">
% }
<%init>
my( $cgi ) = @_;
#my( $cgi, %opt ) = @_;
%init>