3 my $eventpart = $cgi->param('eventpart');
5 my $old = qsearchs('part_bill_event',{'eventpart'=>$eventpart}) if $eventpart;
8 $cgi->param('seconds', $cgi->param('days') * 3600 );
10 my $new = new FS::part_bill_event ( {
12 $_, scalar($cgi->param($_));
13 } fields('part_bill_event'),
18 $error = $new->replace($old);
20 $error = $new->insert;
21 $eventpart = $new->getfield('eventpart');
25 $cgi->param('error', $error);
26 print $cgi->redirect(popurl(2). "part_bill_event.cgi?". $cgi->query_string );
28 print $cgi->redirect(popurl(3)."browse/part_bill_event.cgi");