X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fo2m_Common.pm;h=4f6d2e781fb1b2760f4160a8b9bb9f12b216613e;hb=09589754a8926ef064ea1d3d474a0fc3a8590101;hp=4848649d3dca72b8882a26dec4fabcc1de828b99;hpb=aeb90ade381fc3d5477db0334048c2af623fccfe;p=freeside.git

diff --git a/FS/FS/o2m_Common.pm b/FS/FS/o2m_Common.pm
index 4848649d3..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 } );
@@ -131,8 +133,8 @@ sub process_o2m {
   '';
 }
 
-sub process_o2m_qsearch  { shift->qsearch( @_  ); }
-sub process_o2m_qsearchs { shift->qsearchs( @_ ); }
+sub process_o2m_qsearch  { my $self = shift; qsearch(  @_ ); }
+sub process_o2m_qsearchs { my $self = shift; qsearchs( @_ ); }
 
 sub _load_table {
   my( $self, $table ) = @_;