[open-ils-commits] [GIT] Evergreen ILS branch master updated. 6dce07044218943be05b6f9d019154189130ab3e

[Evergreen Git]

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  6dce07044218943be05b6f9d019154189130ab3e (commit)
      from  16d8baf1636dfb9120dfe41824a17466a2ba98a5 (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 6dce07044218943be05b6f9d019154189130ab3e
Author: Jeff Davis <jdavis at sitka.bclibraries.ca>
Date:   Mon May 22 13:26:10 2017 -0700

    LP#1682296: Avoid database query error on serials batch receive
    
    To test
    -------
    [1] Example Search -> Retrieve title by database ID -> Actions
        for this Record -> Serials Batch Receive -> Next ->
        this works as expected & receivable issues are listed.
    [2] Click on "Start Over"; you are prompted to "Enter an identifier
        for a bibliographic record" this is where the search fails
    
        Example enter "109242427" results in two errors.
    
    [3] Desired behavior - If you enter a database ID or ISSN in the
        "Enter an identifier for a bibliographic record" field the
        receivable issuances should be displayed
    
    Signed-off-by: Jeff Davis <jdavis at sitka.bclibraries.ca>
    Signed-off-by: Cesar Velez <cesar.velez at equinoxinitiative.org>
    Signed-off-by: Galen Charlton <gmc at equinoxinitiative.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
index 3a9aaec..f0b10d2 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
@@ -3637,7 +3637,7 @@ sub bre_by_identifier {
         $search->disconnect;
 
         # Un-nest results. They tend to look like [[1],[2],[3]] for some reason.
-        @ids = map { @{$_} } @{$search_result->{"ids"}};
+        @ids = map { @{$_}[0] } @{$search_result->{"ids"}};
 
         unless (@ids) {
             $e->disconnect;

-----------------------------------------------------------------------

Summary of changes:
 .../src/perlmods/lib/OpenILS/Application/Serial.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
Evergreen ILS