- if($i > 0){ print ","; }
- my $value = '';
- my $authorized = $result->{'summary'}->{authorized};
- foreach my $heading (@$authorized) {
- $value .= $heading . ' ';
+ my $authorized = $result->{'summary'}->{'authorized'};
+ my $summary = join(
+ ' ',
+ map {
+ ( $searchtype eq 'mainmainentry' )
+ ? $_->{'hemain'}
+ : $_->{'heading'}
+ } @$authorized
+ );
+ $summary =~ s/^\s+//;
+ $summary =~ s/\s+$//;
+ $summary = nsb_clean($summary);
+ # test if already added ignoring case
+ unless ( exists $used_summaries{ lc($summary) } ) {
+ push @summaries, { 'summary' => $summary };
+ $used_summaries{ lc($summary) } = 1;