diff options
| -rw-r--r-- | FS/FS/part_event/Action.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/part_event/Action.pm b/FS/FS/part_event/Action.pm index c41af2851..9dcde5a61 100644 --- a/FS/FS/part_event/Action.pm +++ b/FS/FS/part_event/Action.pm @@ -204,6 +204,7 @@ Returns the option fields as an (ordered) hash reference. sub option_fields_hashref { my $self = shift; tie my %hash, 'Tie::IxHash', $self->option_fields; + \%hash; } =item option_fields_listref @@ -215,6 +216,7 @@ Returns just the option field names as a list reference. sub option_fields_listref { my $self = shift; my $hashref = $self->option_fields_hashref; + warn $hashref; [ keys %$hashref ]; } |