-my($custnum, $reasonnum, $submit, $cust_main, $curuser, $class);
-if ( $cgi->param('error') ) {
- $custnum = $cgi->param('custnum');
- $reasonnum = $cgi->param('reasonnum');
-} else {
- my( $query ) = $cgi->keywords;
- if ( $query =~ /^(\d+)$/ ) {
- $custnum = $1;
- } else {
- die "illegal query ". $cgi->keywords;
- }
-}