diff options
author | Mitch Jackson <mitch@freeside.biz> | 2018-11-28 15:20:48 -0500 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-11-28 15:38:25 -0500 |
commit | 11fbfa8202889e84c2dacaa5d0b0dc6c0960eb38 (patch) | |
tree | 73c3fa21b383586e95085f43a796152dd16dba06 /FS/FS/part_event_option.pm | |
parent | 4267c47797189621effba74f0d83f29fadf3e259 (diff) |
RT# 76309 Add validation for part_event_option.optionvalue
Diffstat (limited to 'FS/FS/part_event_option.pm')
-rw-r--r-- | FS/FS/part_event_option.pm | 38 |
1 files changed, 37 insertions, 1 deletions
diff --git a/FS/FS/part_event_option.pm b/FS/FS/part_event_option.pm index 6df9e84..1421f6f 100644 --- a/FS/FS/part_event_option.pm +++ b/FS/FS/part_event_option.pm @@ -183,11 +183,19 @@ sub check { $self->ut_numbern('optionnum') || $self->ut_foreign_key('eventpart', 'part_event', 'eventpart' ) || $self->ut_text('optionname') - #|| $self->ut_textn('optionvalue') || $self->ut_anything('optionvalue') #http.pm content has \n ; return $error if $error; + if ( my %option_fields = $self->option_fields ) { + if ( my $option_field = $option_fields{ $self->optionname } ) { + if ( my $validation_method = $option_field->{validation} ) { + $error = $self->$validation_method('optionvalue'); + } + } + } + return $error if $error; + $self->SUPER::check; } @@ -203,6 +211,34 @@ sub insert_reason { } +=item part_event + +Return the associated part_event row + +=cut + +sub part_event { + qsearchs( part_event => { eventpart => shift->eventpart }) +} + +=item option_fields + +Return the option_fields from the associated part_event::action::$action + +=cut + +sub option_fields { + my $part_event = shift->part_event + or return; + my $action = $part_event->action + or return; + + # For utility scripts, doesn't seem to be necessary + # eval "require FS::part_event::Action::$action;"; + + return "FS::part_event::Action::$action"->option_fields; +} + =back =head1 SEE ALSO |