- foreach (@$results) {
- my ($value) = $_->{'summary'};
- # Removes new lines
- $value =~ s/<br \/>/ /g;
- $value =~ s/\n//g;
- print nsb_clean($value) . "\n";
+
+print "[";
+my $i = 0;
+ foreach my $result (@$results) {
+ if($i > 0){ print ","; }
+ my $value = '';
+ my $authorized = $result->{'summary'}->{'authorized'};
+ foreach my $heading (@$authorized) {
+ $value .= $heading->{'heading'} . ' ';
+ }
+ $value = "{\"summary\":\"" . $value . "\"" . "}";
+ print nsb_clean($value) . "\n";
+ $i++;