Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
use C4::Koha;
use C4::Biblio qw(
GetBiblioData
- GetMarcAuthors
GetMarcBiblio
GetMarcSeries
GetMarcSubjects
use C4::Biblio qw(
GetBiblioData
- GetMarcAuthors
GetMarcBiblio
GetMarcSubjects
);
use C4::Biblio qw(
GetBiblioData
GetFrameworkCode
- GetMarcAuthors
GetMarcBiblio
GetMarcSeries
GetMarcSubjects
use C4::Biblio qw(
CountItemsIssued
GetBiblioData
- GetMarcAuthors
GetMarcBiblio
GetMarcControlnumber
GetMarcISBN
use C4::Biblio qw(
GetBiblioData
- GetMarcAuthors
GetMarcBiblio
GetMarcSubjects
);
use C4::Biblio qw(
GetBiblioData
GetFrameworkCode
- GetMarcAuthors
GetMarcBiblio
GetMarcISBN
GetMarcSubjects
plan tests => 37;
-use_ok('C4::Biblio', qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcControlnumber GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcAuthors GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb GetMarcBiblio UpdateTotalIssues ));
+use_ok('C4::Biblio', qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcControlnumber GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb GetMarcBiblio UpdateTotalIssues ));
my $db = Test::MockModule->new('Koha::Database');
$db->mock( _new_schema => sub { return Schema(); } );
use C4::Auth qw( get_template_and_user );
use C4::Biblio qw(
GetBiblioData
- GetMarcAuthors
GetMarcBiblio
GetMarcISBN
GetMarcSubjects