From ca47d27974cb5c136cfa7452a6c52f0f75580e0d Mon Sep 17 00:00:00 2001
From: Alex Arnaud <alex.arnaud@biblibre.com>
Date: Thu, 31 Aug 2017 10:14:07 +0000
Subject: [PATCH] Bug 17047 - Fix mana search

---
 .../prog/en/includes/mana/mana-subscription-search-result.inc          | 3 +--
 serials/serials-search.pl                                              | 3 +++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/mana/mana-subscription-search-result.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/mana/mana-subscription-search-result.inc
index 35f666f..e269237 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/mana/mana-subscription-search-result.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/mana/mana-subscription-search-result.inc
@@ -4,7 +4,6 @@
 [% USE Branches %]
 
 
-
 [% IF statuscode == "200" %]
     <table id="mana_results_datatable" width=100%>
         <thead>
@@ -62,7 +61,7 @@
         </tbody>
     </table>
 [% ELSE %]
-    <h4> [% msg %] statuscode: [% statuscode %] </h4>
+    <h4>Mana search fails with the code: [% statuscode %] </h4>
 [% END %]
 
 <div id="comment_box" class="modal" tabindex="-1" role="dialog" aria-labelledby="mana_search_result_label" style="display: none;">
diff --git a/serials/serials-search.pl b/serials/serials-search.pl
index d6cb85c..d213c92 100755
--- a/serials/serials-search.pl
+++ b/serials/serials-search.pl
@@ -96,6 +96,7 @@ for my $field ( @$additional_fields ) {
 
 my $expiration_date_dt = $expiration_date ? dt_from_string( $expiration_date ) : undef;
 my @subscriptions;
+my $mana_statuscode;
 if ($searched){
     if ($mana) {
         my $result = Koha::SharedContent::manaGetRequest("subscription",{
@@ -104,6 +105,7 @@ if ($searched){
             ean          => $EAN,
             publisher    => $publisher
         });
+        $mana_statuscode = $result->{code};
         @subscriptions = @{ $result->{data} };
     }
     else {
@@ -127,6 +129,7 @@ if ($searched){
 if ($mana) {
     $template->param(
         subscriptions => \@subscriptions,
+        statuscode    => $mana_statuscode,
         total         => scalar @subscriptions,
         title_filter  => $title,
         ISSN_filter   => $ISSN,
-- 
2.7.4