From 9d394e12fcb2bc8bfc1153fde4d2e0c8f7e2b31e Mon Sep 17 00:00:00 2001 From: MJ Ray Date: Thu, 22 Mar 2012 16:40:39 +0000 Subject: [PATCH] Bug 7729 : svc/bib: support appending ?items=1 to the URL to fetch or modify items Signed-off-by: Chris Cormack --- svc/bib | 27 ++++++++++++++++++++++----- 1 file changed, 22 insertions(+), 5 deletions(-) diff --git a/svc/bib b/svc/bib index 48085592e8..8f6a168e2d 100755 --- a/svc/bib +++ b/svc/bib @@ -1,6 +1,7 @@ #!/usr/bin/perl # Copyright 2007 LibLime +# Copyright 2012 software.coop and MJ Ray # # This file is part of Koha. # @@ -24,6 +25,7 @@ use warnings; use CGI; use C4::Auth qw/check_api_auth/; use C4::Biblio; +use C4::Items; use XML::Simple; my $query = new CGI; @@ -58,7 +60,7 @@ exit 0; sub fetch_bib { my $query = shift; my $biblionumber = shift; - my $record = GetMarcBiblio($biblionumber); + my $record = GetMarcBiblio( $biblionumber, $query->url_param('items') ); if (defined $record) { print $query->header(-type => 'text/xml'); print $record->as_xml_record(); @@ -86,13 +88,28 @@ sub update_bib { $result->{'status'} = "failed"; $result->{'error'} = $@; } else { + my $fullrecord = $record->clone(); + my ( $itemtag, $itemsubfield ) = + GetMarcFromKohaField( "items.itemnumber", '' ); + # delete any item tags - my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField("items.itemnumber", ''); - foreach my $field ($record->field($itemtag)) { + foreach my $field ( $record->field($itemtag) ) { $record->delete_field($field); } - ModBiblio($record, $biblionumber, ''); - my $new_record = GetMarcBiblio($biblionumber); + + if ( $query->url_param('items') ) { + foreach my $field ( $fullrecord->field($itemtag) ) { + my $one_item_record = $record->clone(); + $one_item_record->add_fields($field); + ModItemFromMarc( $one_item_record, $biblionumber, + $field->subfield($itemsubfield) ); + } + } + + ModBiblio( $record, $biblionumber, '' ); + my $new_record = + GetMarcBiblio( $biblionumber, $query->url_param('items') ); + $result->{'status'} = "ok"; $result->{'biblionumber'} = $biblionumber; my $xml = $new_record->as_xml_record(); -- 2.39.5