X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FAction.pm;fp=FS%2FFS%2Fpart_event%2FAction.pm;h=9dcde5a616ce550293b02c743b7571ff0638df41;hb=686459dd7e8e2e30c4a71440bf845ed67be0da47;hp=c41af2851a457fea2f990a76be1dcff1d9e3c441;hpb=9e992baf49d7ac4372fd9dab88f41731f04e53b8;p=freeside.git

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 ];
 }