httemplate/edit/process/ac_block.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

<%

my $new = new FS::ac_block ( {
  map {
    $_, scalar($cgi->param($_));
  } fields('ac_block')
} );

my $error = '';
$error = $new->check;

unless ( $error ) { $error = $new->insert; }

if ( $error ) {
  $cgi->param('error', $error);
  print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->query_string );
} else {
  print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->param('acnum'));
}

%>