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 66d7215..373713a 100644 (file)
--- 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',