@@ -, +, @@ --- svc/bib | 14 +++++++------- svc/new_bib | 10 ++++++---- svc/records/preview | 5 +++-- t/db_dependent/OAI/Sets.t | 9 +++++---- 4 files changed, 21 insertions(+), 17 deletions(-) --- a/svc/bib +++ a/svc/bib @@ -26,6 +26,7 @@ use C4::Auth qw( check_api_auth ); use C4::Biblio qw( GetFrameworkCode ); use C4::Items; use XML::Simple; +use Koha::Biblios; my $query = CGI->new; binmode STDOUT, ':encoding(UTF-8)'; @@ -65,9 +66,8 @@ exit 0; sub fetch_bib { my $query = shift; my $biblionumber = shift; - my $record = C4::Biblio::GetMarcBiblio({ - biblionumber => $biblionumber, - embed_items => scalar $query->param('items') }); + my $biblio = Koha::Biblios->find( $biblionumber ); + my $record = $biblio->metadata->record({ embed_items => scalar $query->param('items') }); if (defined $record) { print $query->header(-type => 'text/xml',-charset => 'utf-8',); print $record->as_xml_record(); @@ -79,7 +79,8 @@ sub fetch_bib { sub update_bib { my $query = shift; my $biblionumber = shift; - my $old_record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); + my $biblio = Koha::Biblios->find( $biblionumber ); + my $old_record = $biblio->metadata->record; my $frameworkcode = $query->url_param('frameworkcode') // GetFrameworkCode($biblionumber); unless (defined $old_record) { print $query->header(-type => 'text/xml', -status => '404 Not Found'); @@ -115,9 +116,8 @@ sub update_bib { } C4::Biblio::ModBiblio( $record, $biblionumber, $frameworkcode ); - my $new_record = C4::Biblio::GetMarcBiblio({ - biblionumber => $biblionumber, - embed_items => scalar $query->url_param('items') }); + my $biblio = Koha::Biblios->find( $biblionumber ); + my $new_record = $biblio->metadata->record({ embed_items => scalar $query->url_param('items') }); $result->{'status'} = "ok"; $result->{'biblionumber'} = $biblionumber; --- a/svc/new_bib +++ a/svc/new_bib @@ -27,6 +27,8 @@ use C4::Items; use XML::Simple; use C4::Charset; +use Koha::Biblios; + my $query = CGI->new; binmode STDOUT, ':encoding(UTF-8)'; @@ -75,7 +77,8 @@ sub add_bib { $record->delete_field($field); } my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( $record, $frameworkcode ); - my $new_record = C4::Biblio::GetMarcBiblio({ biblionumber => $biblionumber }); + my $biblio = Koha::Biblios->find( $biblionumber ); + my $new_record = $biblio->metadata->record; if ( $query->url_param('items') ) { foreach my $field ( $fullrecord->field($itemtag) ) { my $one_item_record = $new_record->clone(); @@ -84,9 +87,8 @@ sub add_bib { } } - $new_record = C4::Biblio::GetMarcBiblio({ - biblionumber => $biblionumber, - embed_items => scalar $query->url_param('items') }); + $biblio = Koha::Biblios->find( $biblionumber ); + $new_record = $biblio->metadata->record({ embed_items => scalar $query->url_param('items') }); $result->{'status'} = "ok"; $result->{'biblionumber'} = $biblionumber; my $xml = $new_record->as_xml_record(); --- a/svc/records/preview +++ a/svc/records/preview @@ -20,7 +20,7 @@ use Modern::Perl; use CGI; use C4::Auth qw( get_template_and_user ); -use C4::Biblio qw( GetMarcBiblio ApplyMarcOverlayRules ); +use C4::Biblio qw( ApplyMarcOverlayRules ); use C4::MarcModificationTemplates qw( ModifyRecordWithTemplate ); use C4::Output qw( output_html_with_http_headers ); @@ -35,7 +35,8 @@ my $mmtid = $query->param('mmtid'); # Marc modification template id my $record; if ( $record_type eq 'biblio' ) { - $record = GetMarcBiblio({ biblionumber => $record_id }); + my $biblio = Koha::Biblios->find( $record_id ); + my $record = $biblio->metadata->record; } else { my $authority = Koha::MetadataRecord::Authority->get_from_authid( $record_id ); $record = $authority->record; --- a/t/db_dependent/OAI/Sets.t +++ a/t/db_dependent/OAI/Sets.t @@ -24,7 +24,6 @@ use Test::Warn; use MARC::Record; use Koha::Database; -use C4::Biblio qw( GetMarcBiblio ); use C4::OAI::Sets qw( AddOAISet GetOAISets GetOAISet GetOAISetBySpec ModOAISet ModOAISetMappings GetOAISetsMappings GetOAISetMappings AddOAISetsBiblios GetOAISetsBiblio ModOAISetsBiblios DelOAISet DelOAISetsBiblio UpdateOAISetsBiblio CalcOAISetsBiblio ); use t::lib::TestBuilder; @@ -551,7 +550,8 @@ my $biblio_VH = $builder->build_sample_biblio({ author => 'Victor Hugo' }); my $biblionumberVH = $biblio_VH->biblionumber; #Update -my $record = GetMarcBiblio({ biblionumber => $biblionumberVH }); +my $biblio = Koha::Biblios->find( $biblionumberVH ); +my $record = $biblio->metadata->record; UpdateOAISetsBiblio($biblionumberVH, $record); #is biblio attached to setVH ? @@ -595,7 +595,7 @@ subtest 'OAI-PMH:AutoUpdateSetsEmbedItemData' => sub { ); #Update - my $recordFIC = GetMarcBiblio( { biblionumber => $biblio_FIC->biblionumber } ); + my $recordFIC = $biblio_FIC->metadata->record; UpdateOAISetsBiblio( $biblio_FIC->biblionumber, $recordFIC ); #is biblio attached to setFIC ? @@ -660,7 +660,8 @@ my $biblio_NotVH = $builder->build_sample_biblio({ author => 'Sponge, Bob' }); my $biblionumberNotVH = $biblio_NotVH->biblionumber; #Update -$record = GetMarcBiblio({ biblionumber => $biblionumberNotVH }); +$biblio = Koha::Biblios->find( $biblionumberNotVH ); +$record = $biblio->metadata->record; UpdateOAISetsBiblio($biblionumberNotVH, $record); my @setsNotEq = CalcOAISetsBiblio($record); --