$error = "Must select an action";
} else {
- $cgi->param('plan_weight_eventcode') =~ /^(\w+):(\d+):(.*)$/
+ $cgi->param('plan_weight_eventcode') =~ /^([\w\-]+):(\d+):(.*)$/
or die "illegal plan_weight_eventcode:".
$cgi->param('plan_weight_eventcode');
$cgi->param('plan', $1);
} fields('part_bill_event'),
} );
- my $error;
if ( $eventpart ) {
$error = $new->replace($old);
} else {