httemplate/edit/process/part_bill_event.cgi

   1 <%
   2
   3 my $eventpart = $cgi->param('eventpart');
   4
   5 my $old = qsearchs('part_bill_event',{'eventpart'=>$eventpart}) if $eventpart;
   6
   7 #s/days/seconds/
   8 $cgi->param('seconds', $cgi->param('days') * 3600 );
   9
  10 my $new = new FS::part_bill_event ( {
  11   map {
  12     $_, scalar($cgi->param($_));
  13   } fields('part_bill_event'),
  14 } );
  15
  16 my $error;
  17 if ( $eventpart ) {
  18   $error = $new->replace($old);
  19 } else {
  20   $error = $new->insert;
  21   $eventpart = $new->getfield('eventpart');
  22 }
  23
  24 if ( $error ) {
  25   $cgi->param('error', $error);
  26   print $cgi->redirect(popurl(2). "part_bill_event.cgi?". $cgi->query_string );
  27 } else {
  28   print $cgi->redirect(popurl(3)."browse/part_bill_event.cgi");
  29 }
  30
  31 %>
  32