returning event instead of NULL on record.mods_slim retrieval

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5230 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index b84daa6..7dd68c1 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -113,6 +113,7 @@ sub record_id_to_mods_slim {
        }
        my $mods_list = _records_to_mods( $id );
        my $mods_obj = $mods_list->[0];
+       return OpenILS::Event->new('BIBLIO_RECORD_ENTRY_NOT_FOUND') unless $mods_obj;
        return $mods_obj;
 }