3 my $new = new FS::ac_block ( {
5 $_, scalar($cgi->param($_));
12 unless ( $error ) { $error = $new->insert; }
15 $cgi->param('error', $error);
16 print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->query_string );
18 print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->param('acnum'));