fixing minor MR mapping bug
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 17 Aug 2006 21:09:06 +0000 (21:09 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 17 Aug 2006 21:09:06 +0000 (21:09 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5577 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm

index 52171f1..92396c2 100644 (file)
@@ -204,6 +204,8 @@ sub rw_biblio_ingest_single_object {
                        $mr->master_record($bib->id);
                }
 
+               $mr->clear_mods;
+
                $cstore->request( 'open-ils.cstore.direct.metabib.metarecord.update' => $mr )->gather(1);
        }