[open-ils-commits] [GIT] Evergreen ILS branch master updated. 9248a0b28e5505c5e73e1e1c719e139c2543eb87
Evergreen Git
git at git.evergreen-ils.org
Wed Dec 19 17:53:11 EST 2012
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Evergreen ILS".
The branch, master has been updated
via 9248a0b28e5505c5e73e1e1c719e139c2543eb87 (commit)
from f5d27df4111b54367d7f270f7b63d4f8e9db2b92 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 9248a0b28e5505c5e73e1e1c719e139c2543eb87
Author: Bill Erickson <berick at esilibrary.com>
Date: Fri Sep 14 15:30:15 2012 -0400
Consistent permission filtering in ACQ search results
Add permission checks to search result objects when calling unified
search in 'idlist' mode, consistent with the existing permission checks
for non-id-list mode. Without this, different forms of the call return
different sets of results.
Signed-off-by: Bill Erickson <berick at esilibrary.com>
Signed-off-by: Lebbeous Fogle-Weekley <lebbeous at esilibrary.com>
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm
index da594a2..094045f 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm
@@ -512,14 +512,10 @@ q/order_by clause must be of the long form, like:
my $results = $e->json_query($query) or return $e->die_event;
my @id_list = map { $_->{"id"} } (grep { $_->{"id"} } @$results);
- if ($options->{"id_list"}) {
- $conn->respond($_) foreach @id_list;
- } else {
- foreach(@id_list){
- my $resp = $retriever->($e, $_, $options);
- next if(ref($resp) ne "Fieldmapper::acq::$ret_type");
- $conn->respond($resp);
- }
+ foreach(@id_list){
+ my $resp = $retriever->($e, $_, $options);
+ next if(ref($resp) ne "Fieldmapper::acq::$ret_type");
+ $conn->respond($options->{"id_list"} ? $_ : $resp);
}
$e->disconnect;
-----------------------------------------------------------------------
Summary of changes:
.../perlmods/lib/OpenILS/Application/Acq/Search.pm | 12 ++++--------
1 files changed, 4 insertions(+), 8 deletions(-)
hooks/post-receive
--
Evergreen ILS
More information about the open-ils-commits
mailing list