From 135ea7d22d62ae22e4042e5a4b3de67de1845605 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 30 Aug 2005 15:19:55 +0000 Subject: [PATCH] '...mods_slim.check' now returns the mvr git-svn-id: svn://svn.open-ils.org/ILS/trunk@1772 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Search/Biblio.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index 49227a065f..8b928f4844 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -788,8 +788,8 @@ sub biblio_mrid_to_modsbatch { my $mr = _grab_metarecord($mrid); return undef unless $mr; - if($self->biblio_mrid_check_mods($client, $mr)) { - return _mr_to_mvr($mr); + if( my $m = $self->biblio_mrid_check_mvr($client, $mr)) { + return $m; } return biblio_mrid_make_modsbatch( $client, $mr ); @@ -812,7 +812,7 @@ __PACKAGE__->register_method( if the metarecord already has an mvr associated with it. NOTES -sub biblio_mrid_check_mods { +sub biblio_mrid_check_mvr { my( $self, $client, $mrid ) = @_; my $mr; @@ -821,8 +821,8 @@ sub biblio_mrid_check_mods { warn "Checking mvr for mr " . $mr->id . "\n"; - return 1 if $mr->mods(); - return 0; + return _mr_to_mvr($mr) if $mr->mods(); + return undef; } sub _grab_metarecord { -- 2.43.2