From: Bill Erickson <berick@esilibrary.com>
Date: Fri, 31 Jan 2014 18:57:55 +0000 (-0500)
Subject: constituent record filtering methods: syntax, thinkos
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5b7220eedab9e8f25ddafacdea58fff5935d3e61;p=working%2FEvergreen.git

constituent record filtering methods: syntax, thinkos

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
index 66d7215472..373713ab85 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
@@ -1282,7 +1282,7 @@ sub MR_records_matching_format {
         )};
     }
 
-    my $records = metabib::metarecord->retrieve($MR)->source_records;
+    my $records = [metabib::metarecord->retrieve($MR)->source_records];
 
     if (!$mr_filter) {
         $client->respond( $_->id ) for @$records;
@@ -1297,6 +1297,7 @@ sub MR_records_matching_format {
                 )};
         }
     }
+    return; # discard final l-val
 }
 __PACKAGE__->register_method(
     api_name        => 'open-ils.storage.metarecord.filtered_records',