% if ( $cgi->param('eventnum') && $cgi->param('eventnum') =~ /^(\d+)$/ ) { $cgi->param('eventnum', $1); } else { $cgi->param('eventnum', ''); } my ($query) = $cgi->keywords; my $action = ''; my $part_bill_event = ''; if ( $cgi->param('error') ) { $part_bill_event = new FS::part_bill_event ( { map { $_, scalar($cgi->param($_)) } fields('part_bill_event') } ); } if ( $query && $query =~ /^(\d+)$/ ) { $part_bill_event ||= qsearchs('part_bill_event',{'eventpart'=>$1}); } else { $part_bill_event ||= new FS::part_bill_event {}; } $action ||= $part_bill_event->pkgpart ? 'Edit' : 'Add'; my $hashref = $part_bill_event->hashref; print header("$action Invoice Event Definition", menubar( 'Main Menu' => popurl(2), 'View all invoice events' => popurl(2). 'browse/part_bill_event.cgi', )); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print '