Attachment #26018 for bug #11912

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




    } else {    # assume marc21 if not unimarc
        $scope = '020';
    }

    my @marcisbns;
    my $marcisbn;
    foreach my $field ( $record->field($scope) ) {
        my $isbn = $field->as_string();
        if ( $isbn ne "" ) {
            push @marcisbns, $isbn;
            push @marcisbns, $marcisbn;
        }
    }


Lines 416-422 function verify_images() { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt (-1 / +1 lines)
416	<div class="yui-u" style="margin-top: 1em;">	416	<div class="yui-u" style="margin-top: 1em;">
417	<ul>	417	<ul>
418	[% IF ( MARCISBNS ) %]	418	[% IF ( MARCISBNS ) %]
419	<li><strong>ISBN:</strong><ul>[% FOREACH MARCISBN IN MARCISBNS %]<li>[% MARCISBN.marcisbn %]</li>[% END %]</ul></li>	419	<li><strong>ISBN:</strong><ul>[% FOREACH MARCISBN IN MARCISBNS %]<li>[% MARCISBN %]</li>[% END %]</ul></li>
420	[% ELSE %]	420	[% ELSE %]
421	[% IF ( normalized_isbn ) %]	421	[% IF ( normalized_isbn ) %]
422	<li><strong>ISBN:</strong> [% normalized_isbn %]</li>	422	<li><strong>ISBN:</strong> [% normalized_isbn %]</li>

Lines 59-65 Your list : [% shelfname %] Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-sendshelf.tt (-1 / +1 lines)
59	[% IF ( BIBLIO_RESULT.ISBN && BIBLIO_RESULT.size > 0 ) %]	59	[% IF ( BIBLIO_RESULT.ISBN && BIBLIO_RESULT.size > 0 ) %]
60	<span>	60	<span>
61	ISBN: [% FOREACH isbn IN BIBLIO_RESULT.ISBN %]	61	ISBN: [% FOREACH isbn IN BIBLIO_RESULT.ISBN %]
62	[% isbn.marcisbn %]	62	[% isbn %]
63	[% UNLESS ( loop.last ) %]; [% END %]	63	[% UNLESS ( loop.last ) %]; [% END %]
64	[% END %]	64	[% END %]
65	</span><br/>	65	</span><br/>

Lines 59-65 Your list : [% shelfname %] Link Here

(-)a/koha-tmpl/opac-tmpl/prog/en/modules/opac-sendshelf.tt (-1 / +1 lines)
59	[% IF ( BIBLIO_RESULT.ISBN && BIBLIO_RESULT.size > 0 ) %]	59	[% IF ( BIBLIO_RESULT.ISBN && BIBLIO_RESULT.size > 0 ) %]
60	<span>	60	<span>
61	ISBN: [% FOREACH isbn IN BIBLIO_RESULT.ISBN %]	61	ISBN: [% FOREACH isbn IN BIBLIO_RESULT.ISBN %]
62	[% isbn.marcisbn %]	62	[% isbn %]
63	[% UNLESS ( loop.last ) %]; [% END %]	63	[% UNLESS ( loop.last ) %]; [% END %]
64	[% END %]	64	[% END %]
65	</span><br/>	65	</span><br/>

Lines 19-25 use Modern::Perl; Link Here

(-)a/t/db_dependent/Biblio.t (-2 lines)
19		19
20	use Test::More tests => 3;	20	use Test::More tests => 3;
21	use Test::MockModule;	21	use Test::MockModule;
22	use Data::Dumper;
23		22
24	use MARC::Record;	23	use MARC::Record;
25		24
26	-

Return to bug 11912

Lines 1689-1701 sub GetMarcISBN { Link Here

(-)a/C4/Biblio.pm (-3 / +2 lines)
1689	} else { # assume marc21 if not unimarc	1689	} else { # assume marc21 if not unimarc
1690	$scope = '020';	1690	$scope = '020';
1691	}	1691	}
		1692
1692	my @marcisbns;	1693	my @marcisbns;
1693	my $marcisbn;
1694	foreach my $field ( $record->field($scope) ) {	1694	foreach my $field ( $record->field($scope) ) {
1695	my $isbn = $field->as_string();	1695	my $isbn = $field->as_string();
1696	if ( $isbn ne "" ) {	1696	if ( $isbn ne "" ) {
1697	$marcisbn = { marcisbn => $isbn, };	1697	push @marcisbns, $isbn;
1698	push @marcisbns, $marcisbn;
1699	}	1698	}
1700	}	1699	}
1701		1700