From 5b7220eedab9e8f25ddafacdea58fff5935d3e61 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 31 Jan 2014 13:57:55 -0500 Subject: [PATCH] constituent record filtering methods: syntax, thinkos Signed-off-by: Bill Erickson --- .../src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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', -- 2.11.0