X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fo2m_Common.pm;h=4f6d2e781fb1b2760f4160a8b9bb9f12b216613e;hb=292ef074d01bb925e9a466ed771bf2ac418bb44f;hp=d237befa69cfd6549eb2596d23e2483d3b8ae354;hpb=9a68154cc0885d05815f5d7e4ab4a64e65a8d45b;p=freeside.git

diff --git a/FS/FS/o2m_Common.pm b/FS/FS/o2m_Common.pm
index d237befa6..4f6d2e781 100644
--- a/FS/FS/o2m_Common.pm
+++ b/FS/FS/o2m_Common.pm
@@ -103,6 +103,7 @@ sub process_o2m {
                  map { $_ => $opt{'params'}->{$add_param."_$_"} }
                      @{ $opt{'fields'} }
                );
+    &{ $opt{'hash_callback'} }( \%hash ) if $opt{'hash_callback'};
     #next unless grep { $_ =~ /\S/ } values %hash;
 
     my $new_obj = "FS::$table"->new( { %$hashref, %hash } );
@@ -117,6 +118,7 @@ sub process_o2m {
 
     my %hash = map { $_ => $opt{'params'}->{$add_param."_$_"} }
                @{ $opt{'fields'} };
+    &{ $opt{'hash_callback'} }( \%hash ) if $opt{'hash_callback'};
     next unless grep { $_ =~ /\S/ } values %hash;
 
     my $add_obj = "FS::$table"->new( { %$hashref, %hash } );