From ebf424041a7dda8225fbe328293948a782d83203 Mon Sep 17 00:00:00 2001 From: MJ Ray Date: Fri, 13 Apr 2012 17:15:21 +0100 Subject: [PATCH] svc/new_bib: support ?items=1 to add POSTed items to the new biblio too http://bugs.koha-community.org/show_bug.cgi?id=7729 --- svc/new_bib | 20 +++++++++++++++++--- 1 files changed, 17 insertions(+), 3 deletions(-) diff --git a/svc/new_bib b/svc/new_bib index dba1fc7..435d837 100755 --- a/svc/new_bib +++ b/svc/new_bib @@ -24,6 +24,7 @@ use warnings; use CGI; use C4::Auth qw/check_api_auth/; use C4::Biblio; +use C4::Items; use XML::Simple; use C4::Charset; @@ -65,13 +66,26 @@ sub add_bib { ($record, $guessed_charset, $charset_errors) = MarcToUTF8Record($record, $marcflavour); } + my $fullrecord = $record->clone(); + # delete any item tags - my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField("items.itemnumber", ''); - foreach my $field ($record->field($itemtag)) { + my ( $itemtag, $itemsubfield ) = + GetMarcFromKohaField( "items.itemnumber", '' ); + foreach my $field ( $record->field($itemtag) ) { $record->delete_field($field); } - my ($biblionumber, $biblioitemnumber) = AddBiblio($record, ''); + my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); my $new_record = GetMarcBiblio($biblionumber); + if ( $query->url_param('items') ) { + foreach my $field ( $fullrecord->field($itemtag) ) { + my $one_item_record = $new_record->clone(); + $one_item_record->add_fields($field); + AddItemFromMarc( $one_item_record, $biblionumber ); + } + } + + $new_record = + GetMarcBiblio( $biblionumber, $query->url_param('items') ); $result->{'status'} = "ok"; $result->{'biblionumber'} = $biblionumber; my $xml = $new_record->as_xml_record(); -- 1.7.2.5