}
my $cust_pkg = qsearchs( 'cust_pkg', {'pkgnum'=>$pkgnum} );
#untaint reasonnum, and set up new reason if appropriate
my ($reasonnum, $error);
}
my $cust_pkg = qsearchs( 'cust_pkg', {'pkgnum'=>$pkgnum} );
#untaint reasonnum, and set up new reason if appropriate
my ($reasonnum, $error);