Merge branch 'bug_8945' into 3.12-master

[koha.git] / authorities / ysearch.pl

diff --git a/authorities/ysearch.pl b/authorities/ysearch.pl
index 1f7e5ef..6584123 100755 (executable)
--- a/authorities/ysearch.pl
+++ b/authorities/ysearch.pl
@@ -66,14 +66,15 @@ if ( $auth_status ne "ok" ) {
 
 print "[";
 my $i = 0;
-    foreach (@$results) {
+    foreach my $result (@$results) {
         if($i > 0){ print ","; }
-        my ($value) = $_->{'summary'};
-            # Removes new lines
-            $value =~ s/<br \/>/ /g;
-            $value =~ s/\n//g;
-            $value = "{\"summary\":\"" . $value . "\"" . "}";
+        my $value = '';
+        my $authorized = $result->{'summary'}->{'authorized'};
+        foreach my $heading (@$authorized) {
+            $value .= $heading->{'heading'} . ' ';
+        }
+        $value = "{\"summary\":\"" . $value . "\"" . "}";
         print nsb_clean($value) . "\n";
         $i++;
     }
-print "]";
\ No newline at end of file
+print "]";