3 # Copyright 2007 LibLime
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
23 use C4
::Auth qw
/check_api_auth/;
29 my ($status, $cookie, $sessionID) = check_api_auth
($query, { editcatalogue
=> 1} );
30 unless ($status eq "ok") {
31 print $query->header(-type
=> 'text/xml', -status
=> '403 Forbidden');
32 print XMLout
({ auth_status
=> $status }, NoAttr
=> 1, RootName
=> 'response', XMLDecl
=> 1);
36 if ($query->request_method eq "POST") {
39 print $query->header(-type
=> 'text/xml', -status
=> '400 Bad Request');
48 my $inxml = $query->param('POSTDATA');
49 print $query->header(-type
=> 'text/xml');
51 my $record = eval {MARC
::Record
::new_from_xml
( $inxml, "utf8", C4
::Context
->preference('marcflavour'))};
52 my $do_not_escape = 0;
54 $result->{'status'} = "failed";
55 $result->{'error'} = $@
;
57 # delete any item tags
58 my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField
("items.itemnumber", '');
59 foreach my $field ($record->field($itemtag)) {
60 $record->delete_field($field);
62 my ($biblionumber, $biblioitemnumber) = AddBiblio
($record, '');
63 my $new_record = GetMarcBiblio
($biblionumber);
64 $result->{'status'} = "ok";
65 $result->{'biblionumber'} = $biblionumber;
66 my $xml = $new_record->as_xml_record();
67 $xml =~ s/<\?xml.*?\?>//i;
68 $result->{'marcxml'} = $xml;
72 print XMLout
($result, NoAttr
=> 1, RootName
=> 'response', XMLDecl
=> 1, NoEscape
=> $do_not_escape);