'...mods_slim.check' now returns the mvr
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 30 Aug 2005 15:19:55 +0000 (15:19 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 30 Aug 2005 15:19:55 +0000 (15:19 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1772 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm

index 49227a0..8b928f4 100644 (file)
@@ -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 {