Attachment #7843 for bug #7576

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




      &GetMarcControlnumber
      &GetMarcNotes
      &GetMarcISBN
      &GetMarcISSN
      &GetMarcSubjects
      &GetMarcBiblio
      &GetMarcAuthors

sub GetMarcControlnumber {
    my ( $record, $marcflavour ) = @_;
    my $controlnumber = "";
    # Control number or Record identifier are the same field in MARC21, UNIMARC and NORMARC
    # Keep $marcflavour for possible later use
    if ($marcflavour eq "MARC21" || $marcflavour eq "UNIMARC" || $marcflavour eq "NORMARC") {
        my $controlnumberField = $record->field('001');
        if ($controlnumberField) {
            $controlnumber = $controlnumberField->data();

  $marcisbnsarray = GetMarcISBN( $record, $marcflavour );

Get all ISBNs from the MARC record and returns them in an array.
ISBNs stored in different fields depending on MARC flavour

=cut


    return \@marcisbns;
}    # end GetMarcISBN


=head2 GetMarcISSN

  $marcissnsarray = GetMarcISSN( $record, $marcflavour );

Get all valid ISSNs from the MARC record and returns them in an array.
ISSNs are stored in different fields depending on MARC flavour

=cut

sub GetMarcISSN {
    my ( $record, $marcflavour ) = @_;
    my $scope;
    if ( $marcflavour eq "UNIMARC" ) {
        $scope = '011';
    }
    else {    # assume MARC21 or NORMARC
        $scope = '022';
    }
    my @marcissns;
    foreach my $field ( $record->field($scope) ) {
        push @marcissns, $field->subfield( 'a' );
    }   
    return \@marcissns;
}    # end GetMarcISSN

=head2 GetMarcNotes

  $marcnotesarray = GetMarcNotes( $record, $marcflavour );

Get all notes from the MARC record and returns them in an array.
The note are stored in different fields depending on MARC flavour

=cut


  $marcsubjcts = GetMarcSubjects($record,$marcflavour);

Get all subjects from the MARC record and returns them in an array.
The subjects are stored in different fields depending on MARC flavour

=cut


  authors = GetMarcAuthors($record,$marcflavour);

Get all authors from the MARC record and returns them in an array.
The authors are stored in different fields depending on MARC flavour

=cut


  $marcseriesarray = GetMarcSeries($record,$marcflavour);

Get all series from the MARC record and returns them in an array.
The series are stored in different fields depending on MARC flavour

=cut


Lines 173-179 OPAC: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref (-1 / +1 lines)
173	class: code	173	class: code
174	-	174	-
175	- 'Include a "More Searches" box on the detail pages of items on the OPAC, with the following HTML (leave blank to disable):'	175	- 'Include a "More Searches" box on the detail pages of items on the OPAC, with the following HTML (leave blank to disable):'
176	- '<br />Note: The placeholders {BIBLIONUMBER}, {CONTROLNUMBER}, {TITLE}, {ISBN} and {AUTHOR} will be replaced with information from the displayed record.'	176	- '<br />Note: The placeholders {BIBLIONUMBER}, {CONTROLNUMBER}, {TITLE}, {ISBN}, {ISSN} and {AUTHOR} will be replaced with information from the displayed record.'
177	- pref: OPACSearchForTitleIn	177	- pref: OPACSearchForTitleIn
178	type: textarea	178	type: textarea
179	class: code	179	class: code





use strict;
use warnings;
use Test::More tests => 17;
use MARC::Record;
use C4::Biblio;

BEGIN {
    use_ok('C4::Biblio');
}

my $isbn = '0590353403';

};
ok($success, "ModBiblio handles 655 with no subfields");

# Testing GetMarcISSN
my $issns;
$issns = GetMarcISSN( $marc_record, 'MARC21' );
is( $issns->[0], undef,
    'GetMarcISSN handles records without 022 (list is empty)' );
is( scalar @$issns, 0, 'GetMarcISSN handles records without 022 (number of elements correct)' );

my $issn = '1234-1234';
$field = MARC::Field->new( '022', '', '', 'a', => $issn );
$marc_record->append_fields($field);
$issns = GetMarcISSN( $marc_record, 'MARC21' );
is( $issns->[0], $issn,
    'GetMarcISSN handles records with single 022 (first element is correct)' );
is( scalar @$issns, 1, 'GetMARCISSN handles records with single 022 (number of elements correct)'
);

my @more_issns = qw/1111-1111 2222-2222 3333-3333/;
foreach (@more_issns) {
    $field = MARC::Field->new( '022', '', '', 'a', => $_ );
    $marc_record->append_fields($field);
}
$issns = GetMarcISSN( $marc_record, 'MARC21' );
is( scalar @$issns, 4, 'GetMARCISSN handles records with multiple 022 (number of elements correct)'
);

# Testing GetMarcControlnumber
my $controlnumber;
$controlnumber = GetMarcControlnumber( $marc_record, 'MARC21' );
is( $controlnumber, '', 'GetMarcControlnumber handles records without 001' );

$field = MARC::Field->new( '001', '' );
$marc_record->append_fields($field);
$controlnumber = GetMarcControlnumber( $marc_record, 'MARC21' );
is( $controlnumber, '', 'GetMarcControlnumber handles records with empty 001' );

$field = $marc_record->field('001');
$field->update('123456789X');
$controlnumber = GetMarcControlnumber( $marc_record, 'MARC21' );
is( $controlnumber, '123456789X', 'GetMarcControlnumber handles records with 001' );

# clean up after ourselves
DelBiblio($biblionumber);
- 

Return to bug 7576

Lines 70-75 BEGIN { Link Here

(-)a/C4/Biblio.pm (-7 / +34 lines)
70	&GetMarcControlnumber	70	&GetMarcControlnumber
71	&GetMarcNotes	71	&GetMarcNotes
72	&GetMarcISBN	72	&GetMarcISBN
		73	&GetMarcISSN
73	&GetMarcSubjects	74	&GetMarcSubjects
74	&GetMarcBiblio	75	&GetMarcBiblio
75	&GetMarcAuthors	76	&GetMarcAuthors
Lines 1374-1382 Get the control number / record Identifier from the MARC record and return it. Link Here
1374	sub GetMarcControlnumber {	1375	sub GetMarcControlnumber {
1375	my ( $record, $marcflavour ) = @_;	1376	my ( $record, $marcflavour ) = @_;
1376	my $controlnumber = "";	1377	my $controlnumber = "";
1377	# Control number or Record identifier are the same field in MARC21 and UNIMARC	1378	# Control number or Record identifier are the same field in MARC21, UNIMARC and NORMARC
1378	# Keep $marcflavour for possible later use	1379	# Keep $marcflavour for possible later use
1379	if ($marcflavour eq "MARC21" \|\| $marcflavour eq "UNIMARC") {	1380	if ($marcflavour eq "MARC21" \|\| $marcflavour eq "UNIMARC" \|\| $marcflavour eq "NORMARC") {
1380	my $controlnumberField = $record->field('001');	1381	my $controlnumberField = $record->field('001');
1381	if ($controlnumberField) {	1382	if ($controlnumberField) {
1382	$controlnumber = $controlnumberField->data();	1383	$controlnumber = $controlnumberField->data();
Lines 1390-1396 sub GetMarcControlnumber { Link Here
1390	$marcisbnsarray = GetMarcISBN( $record, $marcflavour );	1391	$marcisbnsarray = GetMarcISBN( $record, $marcflavour );
1391		1392
1392	Get all ISBNs from the MARC record and returns them in an array.	1393	Get all ISBNs from the MARC record and returns them in an array.
1393	ISBNs stored in differents places depending on MARC flavour	1394	ISBNs stored in different fields depending on MARC flavour
1394		1395
1395	=cut	1396	=cut
1396		1397
Lines 1425-1436 sub GetMarcISBN { Link Here
1425	return \@marcisbns;	1426	return \@marcisbns;
1426	} # end GetMarcISBN	1427	} # end GetMarcISBN
1427		1428
		1429
		1430	=head2 GetMarcISSN
		1431
		1432	$marcissnsarray = GetMarcISSN( $record, $marcflavour );
		1433
		1434	Get all valid ISSNs from the MARC record and returns them in an array.
		1435	ISSNs are stored in different fields depending on MARC flavour
		1436
		1437	=cut
		1438
		1439	sub GetMarcISSN {
		1440	my ( $record, $marcflavour ) = @_;
		1441	my $scope;
		1442	if ( $marcflavour eq "UNIMARC" ) {
		1443	$scope = '011';
		1444	}
		1445	else { # assume MARC21 or NORMARC
		1446	$scope = '022';
		1447	}
		1448	my @marcissns;
		1449	foreach my $field ( $record->field($scope) ) {
		1450	push @marcissns, $field->subfield( 'a' );
		1451	}
		1452	return \@marcissns;
		1453	} # end GetMarcISSN
		1454
1428	=head2 GetMarcNotes	1455	=head2 GetMarcNotes
1429		1456
1430	$marcnotesarray = GetMarcNotes( $record, $marcflavour );	1457	$marcnotesarray = GetMarcNotes( $record, $marcflavour );
1431		1458
1432	Get all notes from the MARC record and returns them in an array.	1459	Get all notes from the MARC record and returns them in an array.
1433	The note are stored in differents places depending on MARC flavour	1460	The note are stored in different fields depending on MARC flavour
1434		1461
1435	=cut	1462	=cut
1436		1463
Lines 1470-1476 sub GetMarcNotes { Link Here
1470	$marcsubjcts = GetMarcSubjects($record,$marcflavour);	1497	$marcsubjcts = GetMarcSubjects($record,$marcflavour);
1471		1498
1472	Get all subjects from the MARC record and returns them in an array.	1499	Get all subjects from the MARC record and returns them in an array.
1473	The subjects are stored in differents places depending on MARC flavour	1500	The subjects are stored in different fields depending on MARC flavour
1474		1501
1475	=cut	1502	=cut
1476		1503
Lines 1545-1551 sub GetMarcSubjects { Link Here
1545	authors = GetMarcAuthors($record,$marcflavour);	1572	authors = GetMarcAuthors($record,$marcflavour);
1546		1573
1547	Get all authors from the MARC record and returns them in an array.	1574	Get all authors from the MARC record and returns them in an array.
1548	The authors are stored in differents places depending on MARC flavour	1575	The authors are stored in different fields depending on MARC flavour
1549		1576
1550	=cut	1577	=cut
1551		1578
Lines 1682-1688 sub GetMarcUrls { Link Here
1682	$marcseriesarray = GetMarcSeries($record,$marcflavour);	1709	$marcseriesarray = GetMarcSeries($record,$marcflavour);
1683		1710
1684	Get all series from the MARC record and returns them in an array.	1711	Get all series from the MARC record and returns them in an array.
1685	The series are stored in differents places depending on MARC flavour	1712	The series are stored in different fields depending on MARC flavour
1686		1713
1687	=cut	1714	=cut
1688		1715

Lines 165-171 my @export_options = split(/\\|/,$OpacExportOptions); Link Here

(-)a/opac/opac-ISBDdetail.pl (-1 / +4 lines)
165	$template->{VARS}->{'export_options'} = \@export_options;	165	$template->{VARS}->{'export_options'} = \@export_options;
166		166
167	#Search for title in links	167	#Search for title in links
168	my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour);	168	my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour);
		169	my $marcissns = GetMarcISSN ( $record, $marcflavour );
		170	my $issn = $marcissns->[0] \|\| '';
169		171
170	if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){	172	if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
171	$dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g;	173	$dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g;
Lines 173-178 if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){ Link Here
173	$dat->{title} =~ s/\s+$//; # remove trailing space	175	$dat->{title} =~ s/\s+$//; # remove trailing space
174	$dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g;	176	$dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g;
175	$isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g;	177	$isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g;
		178	$issn ? $search_for_title =~ s/{ISSN}/$issn/g : $search_for_title =~ s/{ISSN}//g;
176	$marccontrolnumber ? $search_for_title =~ s/{CONTROLNUMBER}/$marccontrolnumber/g : $search_for_title =~ s/{CONTROLNUMBER}//g;	179	$marccontrolnumber ? $search_for_title =~ s/{CONTROLNUMBER}/$marccontrolnumber/g : $search_for_title =~ s/{CONTROLNUMBER}//g;
177	$search_for_title =~ s/{BIBLIONUMBER}/$biblionumber/g;	180	$search_for_title =~ s/{BIBLIONUMBER}/$biblionumber/g;
178	$template->param('OPACSearchForTitleIn' => $search_for_title);	181	$template->param('OPACSearchForTitleIn' => $search_for_title);

Lines 279-285 $template->{VARS}->{'export_options'} = \@export_options; Link Here

(-)a/opac/opac-MARCdetail.pl (-1 / +4 lines)
279	my $marcflavour = C4::Context->preference("marcflavour");	279	my $marcflavour = C4::Context->preference("marcflavour");
280	my $dat = TransformMarcToKoha( $dbh, $record );	280	my $dat = TransformMarcToKoha( $dbh, $record );
281	my $isbn = GetNormalizedISBN(undef,$record,$marcflavour);	281	my $isbn = GetNormalizedISBN(undef,$record,$marcflavour);
282	my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour);	282	my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour);
		283	my $marcissns = GetMarcISSN( $record, $marcflavour );
		284	my $issn = $marcissns->[0] \|\| '';
283		285
284	if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){	286	if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
285	$dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g;	287	$dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g;
Lines 287-292 if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){ Link Here
287	$dat->{title} =~ s/\s+$//; # remove trailing space	289	$dat->{title} =~ s/\s+$//; # remove trailing space
288	$dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g;	290	$dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g;
289	$isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g;	291	$isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g;
		292	$issn ? $search_for_title =~ s/{ISSN}/$issn/g : $search_for_title =~ s/{ISSN}//g;
290	$marccontrolnumber ? $search_for_title =~ s/{CONTROLNUMBER}/$marccontrolnumber/g : $search_for_title =~ s/{CONTROLNUMBER}//g;	293	$marccontrolnumber ? $search_for_title =~ s/{CONTROLNUMBER}/$marccontrolnumber/g : $search_for_title =~ s/{CONTROLNUMBER}//g;
291	$search_for_title =~ s/{BIBLIONUMBER}/$biblionumber/g;	294	$search_for_title =~ s/{BIBLIONUMBER}/$biblionumber/g;
292	$template->param('OPACSearchForTitleIn' => $search_for_title);	295	$template->param('OPACSearchForTitleIn' => $search_for_title);

Lines 896-902 my @export_options = split(/\\|/,$OpacExportOptions); Link Here

(-)a/opac/opac-detail.pl (-2 / +5 lines)
896	$template->{VARS}->{'export_options'} = \@export_options;	896	$template->{VARS}->{'export_options'} = \@export_options;
897		897
898	#Search for title in links	898	#Search for title in links
899	my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour);	899	my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour);
		900	my $marcissns = GetMarcISSN ( $record, $marcflavour );
		901	my $issn = $marcissns->[0] \|\| '';
900		902
901	if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){	903	if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
902	$dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g;	904	$dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g;
Lines 904-912 if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){ Link Here
904	$dat->{title} =~ s/\s+$//; # remove trailing space	906	$dat->{title} =~ s/\s+$//; # remove trailing space
905	$dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g;	907	$dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g;
906	$isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g;	908	$isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g;
		909	$issn ? $search_for_title =~ s/{ISSN}/$issn/g : $search_for_title =~ s/{ISSN}//g;
907	$marccontrolnumber ? $search_for_title =~ s/{CONTROLNUMBER}/$marccontrolnumber/g : $search_for_title =~ s/{CONTROLNUMBER}//g;	910	$marccontrolnumber ? $search_for_title =~ s/{CONTROLNUMBER}/$marccontrolnumber/g : $search_for_title =~ s/{CONTROLNUMBER}//g;
908	$search_for_title =~ s/{BIBLIONUMBER}/$biblionumber/g;	911	$search_for_title =~ s/{BIBLIONUMBER}/$biblionumber/g;
909	$template->param('OPACSearchForTitleIn' => $search_for_title);	912	$template->param('OPACSearchForTitleIn' => $search_for_title);
910	}	913	}
911		914
912	# We try to select the best default tab to show, according to what	915	# We try to select the best default tab to show, according to what

Lines 5-16 Link Here

(-)a/t/db_dependent/Biblio.t (-3 / +42 lines)
5		5
6	use strict;	6	use strict;
7	use warnings;	7	use warnings;
8	use Test::More tests => 9;	8	use Test::More tests => 17;
9	use MARC::Record;	9	use MARC::Record;
10	use C4::Biblio;	10	use C4::Biblio;
11		11
12	BEGIN {	12	BEGIN {
13	use_ok('C4::Biblio');	13	use_ok('C4::Biblio');
14	}	14	}
15		15
16	my $isbn = '0590353403';	16	my $isbn = '0590353403';
Lines 69-73 eval { Link Here
69	};	69	};
70	ok($success, "ModBiblio handles 655 with no subfields");	70	ok($success, "ModBiblio handles 655 with no subfields");
71		71
		72	# Testing GetMarcISSN
		73	my $issns;
		74	$issns = GetMarcISSN( $marc_record, 'MARC21' );
		75	is( $issns->[0], undef,
		76	'GetMarcISSN handles records without 022 (list is empty)' );
		77	is( scalar @$issns, 0, 'GetMarcISSN handles records without 022 (number of elements correct)' );
		78
		79	my $issn = '1234-1234';
		80	$field = MARC::Field->new( '022', '', '', 'a', => $issn );
		81	$marc_record->append_fields($field);
		82	$issns = GetMarcISSN( $marc_record, 'MARC21' );
		83	is( $issns->[0], $issn,
		84	'GetMarcISSN handles records with single 022 (first element is correct)' );
		85	is( scalar @$issns, 1, 'GetMARCISSN handles records with single 022 (number of elements correct)'
		86	);
		87
		88	my @more_issns = qw/1111-1111 2222-2222 3333-3333/;
		89	foreach (@more_issns) {
		90	$field = MARC::Field->new( '022', '', '', 'a', => $_ );
		91	$marc_record->append_fields($field);
		92	}
		93	$issns = GetMarcISSN( $marc_record, 'MARC21' );
		94	is( scalar @$issns, 4, 'GetMARCISSN handles records with multiple 022 (number of elements correct)'
		95	);
		96
		97	# Testing GetMarcControlnumber
		98	my $controlnumber;
		99	$controlnumber = GetMarcControlnumber( $marc_record, 'MARC21' );
		100	is( $controlnumber, '', 'GetMarcControlnumber handles records without 001' );
		101
		102	$field = MARC::Field->new( '001', '' );
		103	$marc_record->append_fields($field);
		104	$controlnumber = GetMarcControlnumber( $marc_record, 'MARC21' );
		105	is( $controlnumber, '', 'GetMarcControlnumber handles records with empty 001' );
		106
		107	$field = $marc_record->field('001');
		108	$field->update('123456789X');
		109	$controlnumber = GetMarcControlnumber( $marc_record, 'MARC21' );
		110	is( $controlnumber, '123456789X', 'GetMarcControlnumber handles records with 001' );
		111
72	# clean up after ourselves	112	# clean up after ourselves
73	DelBiblio($biblionumber);	113	DelBiblio($biblionumber);
74	-