3 %my $eventpart = $cgi->param('eventpart');
5 %my $old = qsearchs('part_bill_event',{'eventpart'=>$eventpart}) if $eventpart;
8 %$cgi->param('seconds', int( $cgi->param('days') * 86400 ) );
11 %if ( ! $cgi->param('plan_weight_eventcode') ) {
12 % $error = "Must select an action";
15 % $cgi->param('plan_weight_eventcode') =~ /^([\w\-]+):(\d+):(.*)$/s
16 % or die "illegal plan_weight_eventcode:".
17 % $cgi->param('plan_weight_eventcode');
18 % $cgi->param('plan', $1);
19 % $cgi->param('weight', $2);
22 % while ( $eventcode =~ /%%%(\w+)%%%/ ) {
24 % my $value = join(', ', $cgi->param($field) );
25 % $cgi->param($field, $value); #in case it errors out
26 % $eventcode =~ s/%%%$field%%%/$value/;
27 % $plandata .= "$field $value\n";
29 % $cgi->param('eventcode', $eventcode);
30 % $cgi->param('plandata', $plandata);
32 % my $new = new FS::part_bill_event ( {
34 % $_, scalar($cgi->param($_));
35 % } fields('part_bill_event'),
39 % $error = $new->replace($old);
41 % $error = $new->insert;
42 % $eventpart = $new->getfield('eventpart');
47 % $cgi->param('error', $error);
48 % print $cgi->redirect(popurl(2). "part_bill_event.cgi?". $cgi->query_string );
50 % print $cgi->redirect(popurl(3)."browse/part_bill_event.cgi");