only update biblio fingerprint if it has changed
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 7 Nov 2005 13:31:59 +0000 (13:31 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 7 Nov 2005 13:31:59 +0000 (13:31 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1971 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 292fbe0..165b180 100644 (file)
@@ -310,7 +310,11 @@ sub wormize_biblio_record {
 
                        #update the fingerprint
                        my ($fp) = $self->method_lookup( 'open-ils.worm.fingerprint.marc' )->run( $xml );
-                       OpenILS::Application::WoRM->storage_req( 'open-ils.storage.direct.biblio.record_entry.remote_update', { id => $r->id }, { fingerprint => $fp } );
+                       OpenILS::Application::WoRM->storage_req(
+                               'open-ils.storage.direct.biblio.record_entry.remote_update',
+                               { id => $r->id },
+                               { fingerprint => $fp }
+                       ) if ($fp ne $r->fingerprint);
 
                        unless ($self->api_name =~ /nomap/o) {
                                my $mr = OpenILS::Application::WoRM->storage_req( 'open-ils.storage.direct.metabib.metarecord.search.fingerprint.atomic', $fp  )->[0];