View | Details | Raw Unified | Return to bug 31732
Collapse All | Expand All

(-)a/Koha/Biblio.pm (+19 lines)
Lines 1373-1378 sub can_be_recalled { Link Here
1373
    return @items;
1373
    return @items;
1374
}
1374
}
1375
1375
1376
sub alt_graph_titles {
1377
    my ($class,$args) = @_;
1378
    my @alt_titles;
1379
    my $record = $args->{record};
1380
    if ( C4::Context->preference('marcflavour') eq 'MARC21' ){
1381
        my @fields = $record->field('880');
1382
        foreach my $field (@fields){
1383
            my $sub6 = $field->subfield('6');
1384
            if ($sub6 && $sub6 =~ m/^245-/){
1385
                my $alt_title = {};
1386
                $alt_title->{title} = $field->as_string('a');
1387
                $alt_title->{subtitle} = $field->as_string('b');
1388
                push(@alt_titles,$alt_title);
1389
            }
1390
        }
1391
    }
1392
    return \@alt_titles;
1393
}
1394
1376
=head2 Internal methods
1395
=head2 Internal methods
1377
1396
1378
=head3 type
1397
=head3 type
(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt (+3 lines)
Lines 352-357 Link Here
352
                                                    [% END # / IF JacketImages %]
352
                                                    [% END # / IF JacketImages %]
353
353
354
                                                    <td class="title">
354
                                                    <td class="title">
355
                                                        [% FOREACH alt_title IN ISSUE.alt_titles %]
356
                                                            [% INCLUDE 'biblio-title.inc' biblio=alt_title link=> 1 %]
357
                                                        [% END %]
355
                                                        [% INCLUDE 'biblio-title.inc' biblio=ISSUE link=> 1 %]
358
                                                        [% INCLUDE 'biblio-title.inc' biblio=ISSUE link=> 1 %]
356
                                                        [% IF ( ISSUE.enumchron ) %] [% ISSUE.enumchron | html %][% END %]
359
                                                        [% IF ( ISSUE.enumchron ) %] [% ISSUE.enumchron | html %][% END %]
357
360
(-)a/opac/opac-user.pl (-1 / +5 lines)
Lines 286-291 if ( $pending_checkouts->count ) { # Useless test Link Here
286
        my $marcrecord = $biblio_object->metadata->record({ embed_items => 1, opac => 1, patron => $patron,});
286
        my $marcrecord = $biblio_object->metadata->record({ embed_items => 1, opac => 1, patron => $patron,});
287
        $issue->{normalized_upc} = GetNormalizedUPC( $marcrecord, C4::Context->preference('marcflavour') );
287
        $issue->{normalized_upc} = GetNormalizedUPC( $marcrecord, C4::Context->preference('marcflavour') );
288
288
289
        my $alt_titles = Koha::Biblio->alt_graph_titles({ record => $marcrecord });
290
        if ($alt_titles){
291
            $issue->{alt_titles} = $alt_titles;
292
        }
293
289
                # My Summary HTML
294
                # My Summary HTML
290
                if (my $my_summary_html = C4::Context->preference('OPACMySummaryHTML')){
295
                if (my $my_summary_html = C4::Context->preference('OPACMySummaryHTML')){
291
                    $issue->{author} ? $my_summary_html =~ s/{AUTHOR}/$issue->{author}/g : $my_summary_html =~ s/{AUTHOR}//g;
296
                    $issue->{author} ? $my_summary_html =~ s/{AUTHOR}/$issue->{author}/g : $my_summary_html =~ s/{AUTHOR}//g;
292
- 

Return to bug 31732