httemplate/edit/process/ac_block.cgi

   1 <%
   2
   3 my $new = new FS::ac_block ( {
   4   map {
   5     $_, scalar($cgi->param($_));
   6   } fields('ac_block')
   7 } );
   8
   9 my $error = '';
  10 $error = $new->check;
  11
  12 unless ( $error ) { $error = $new->insert; }
  13
  14 if ( $error ) {
  15   $cgi->param('error', $error);
  16   print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->query_string );
  17 } else {
  18   print $cgi->redirect(popurl(2). "ac.cgi?". $cgi->param('acnum'));
  19 }
  20
  21 %>