httemplate/edit/process/rate.cgi

   1 <%
   2
   3 my $ratenum = $cgi->param('ratenum');
   4
   5 my $old = qsearchs('rate', { 'ratenum' => $ratenum } ) if $ratenum;
   6
   7 my @rate_detail = map {
   8   my $regionnum = $_->regionnum;
   9   new FS::rate_detail {
  10     'dest_regionnum'  => $regionnum,
  11     map { $_ => $cgi->param("$_$regionnum") }
  12         qw( min_included min_charge sec_granularity )
  13   };
  14 } qsearch('rate_region', {} );
  15
  16 my $new = new FS::rate ( {
  17   map {
  18     $_, scalar($cgi->param($_));
  19   } fields('rate')
  20 } );
  21
  22 my $error;
  23 if ( $ratenum ) {
  24   $error = $new->replace($old, 'rate_detail' => \@rate_detail );
  25 } else {
  26   $error = $new->insert( 'rate_detail' => \@rate_detail );
  27   $ratenum = $new->getfield('ratenum');
  28 }
  29
  30 if ( $error ) {
  31   $cgi->param('error', $error);
  32   print $cgi->redirect(popurl(2). "rate.cgi?". $cgi->query_string );
  33 } else {
  34   print $cgi->redirect(popurl(3). "browse/rate.cgi");
  35 }
  36
  37 %>