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

[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  e8a19adfbbd80c1beb57d777fa1770bc1694c6e8 (commit)
      from  a15dc23daacd6855ad2095c82d63bb52252885fe (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 e8a19adfbbd80c1beb57d777fa1770bc1694c6e8
Author: Martha Driscoll <driscoll at noblenet.org>
Date:   Thu May 25 14:39:30 2017 -0400

    LP#1692106: Z39.50 server includes prefix and suffix in 852
    
    Add the call number prefix and suffix to the 852 $k and $m when copy
    information is returned by the Z39.50 server.
    
    Signed-off-by: Martha Driscoll <driscoll at noblenet.org>
    Signed-off-by: Mike Rylander <mrylander at gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
index bb1dbd6..a5fea7e 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
@@ -2026,6 +2026,8 @@ sub sru_search {
                 my @copies;
                 for my $node ($marcxml->getElementsByTagName('holdings')) {
                     for my $volume ($node->getElementsByTagName('volume')) {
+                        my $prefix = $volume->getChildrenByTagName('call_number_prefix')->[0]->getAttribute('label');
+                        my $suffix = $volume->getChildrenByTagName('call_number_suffix')->[0]->getAttribute('label');
                         my $cn = $volume->getAttribute('label');
                         my $owning_lib = $volume->getAttribute('lib');
                         for my $copy ($volume->getElementsByTagName('copy')) {
@@ -2035,6 +2037,8 @@ sub sru_search {
                                 c => $cn,
                                 d => $copy->getChildrenByTagName('circ_lib')->[0]->getAttribute('shortname'),
                                 g => $copy->getAttribute('barcode'),
+                                k => $prefix,
+                                m => $suffix,
                                 n => $copy->getChildrenByTagName('status')->[0]->textContent
                             };
                         }
@@ -2070,6 +2074,8 @@ sub sru_search {
                             c => $copy->{c},
                             d => $copy->{d},
                             g => $copy->{g},
+                            ($copy->{k} ? (k => $copy->{k}) : ()),
+                            ($copy->{m} ? (m => $copy->{m}) : ()),
                             n => $copy->{n}
                         )
                     );

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

Summary of changes:
 Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)


hooks/post-receive
-- 
Evergreen ILS