gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 14670: Fix tests and import 

Sponsored-by: Orex Digital
Signed-off-by: Alexandre Noel <alexandre.noel@inlibro.com>
Signed-off-by: Hugo Agud <hagud@orex.es>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Jonathan Druart 2024-01-29 17:12:15 +01:00 committed by Katrin Fischer
parent 937ad66ec5
commit 6222eaa628
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
4 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
opac/opac-ISBDdetail.pl
View File

@ -51,7 +51,7 @@ use C4::Biblio qw(
GetMarcISSN
TransformMarcToKoha
);
use C4::Record;
use C4::Record qw( marc2cites );;
use C4::Reserves qw( IsAvailableForItemLevelRequest );
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
use C4::Koha qw(
@ -231,6 +231,6 @@ if( C4::Context->preference('ArticleRequests') ) {
}
# Cites
$template->{VARS}->{'cites'} = marc2cites($record);
$template->param( cites => C4::Record::marc2cites($record) );
output_html_with_http_headers $query, $cookie, $template->output;

4
opac/opac-MARCdetail.pl
View File

@ -57,7 +57,7 @@ use C4::Biblio qw(
GetMarcStructure
TransformMarcToKoha
);
use C4::Record;
use C4::Record qw( marc2cites );
use C4::Reserves qw( IsAvailableForItemLevelRequest );
use C4::Members;
use C4::Koha qw( GetNormalizedISBN );
@ -390,6 +390,6 @@ $template->param(
);
# Cites
$template->{VARS}->{'cites'} = marc2cites($record);
$template->param( cites => C4::Record::marc2cites($record) );
output_html_with_http_headers $query, $cookie, $template->output;

4
opac/opac-detail.pl
View File

@ -44,7 +44,7 @@ use C4::Biblio qw(
GetMarcSubjects
GetMarcUrls
);
use C4::Record;
use C4::Record qw( marc2cites );
use C4::Tags qw( get_tags );
use C4::XISBN qw( get_xisbns );
use C4::External::Amazon qw( get_amazon_tld );
@ -1262,6 +1262,6 @@ if ( C4::Context->preference('OPACAuthorIdentifiersAndInformation') ) {
}
# Cites
$template->{VARS}->{'cites'} = marc2cites($record);
$template->param( cites => C4::Record::marc2cites($record) );
output_html_with_http_headers $query, $cookie, $template->output;

12
t/db_dependent/Record.t
View File

@ -10,7 +10,7 @@ use C4::Context;
use Koha::Database;
BEGIN {
use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex ));
use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex marc2cites ));
}
my $schema = Koha::Database->new->schema;
@ -155,12 +155,6 @@ my @entity=C4::Record::_entity_encode("Björn");
is ($entity[0], "Bj&#xC3;&#xB6;rn", "Html umlauts");
$marc->field('260')->add_subfields(a => 'Hogwarts');
$marc->field('260')->add_subfields( a => 'Hogwarts' );
my $cites = marc2cites($marc);
is ($cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites');
is( $cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites' );