constituent record filtering methods: syntax, thinkos
authorBill Erickson <berick@esilibrary.com>
Fri, 31 Jan 2014 18:57:55 +0000 (13:57 -0500)
committerBill Erickson <berick@esilibrary.com>
Fri, 31 Jan 2014 18:57:55 +0000 (13:57 -0500)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm

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