From 643d83b8e6cf7f2b95893c0819d78ac9450b6cef Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 7 Nov 2005 13:31:59 +0000 Subject: [PATCH 1/1] only update biblio fingerprint if it has changed git-svn-id: svn://svn.open-ils.org/ILS/trunk@1971 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm b/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm index 292fbe00c3..165b180c66 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/WoRM.pm @@ -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]; -- 2.43.2