Lines 68-74
sub fetch_bib {
Link Here
|
68 |
my $biblionumber = shift; |
68 |
my $biblionumber = shift; |
69 |
my $record = GetMarcBiblio({ |
69 |
my $record = GetMarcBiblio({ |
70 |
biblionumber => $biblionumber, |
70 |
biblionumber => $biblionumber, |
71 |
embed_items => $query->url_param('items') }); |
71 |
embed_items => scalar $query->param('items') }); |
72 |
if (defined $record) { |
72 |
if (defined $record) { |
73 |
print $query->header(-type => 'text/xml',-charset => 'utf-8',); |
73 |
print $query->header(-type => 'text/xml',-charset => 'utf-8',); |
74 |
print $record->as_xml_record(); |
74 |
print $record->as_xml_record(); |
Lines 117-123
sub update_bib {
Link Here
|
117 |
ModBiblio( $record, $biblionumber, '' ); |
117 |
ModBiblio( $record, $biblionumber, '' ); |
118 |
my $new_record = GetMarcBiblio({ |
118 |
my $new_record = GetMarcBiblio({ |
119 |
biblionumber => $biblionumber, |
119 |
biblionumber => $biblionumber, |
120 |
embed_items => $query->url_param('items') }); |
120 |
embed_items => scalar $query->url_param('items') }); |
121 |
|
121 |
|
122 |
$result->{'status'} = "ok"; |
122 |
$result->{'status'} = "ok"; |
123 |
$result->{'biblionumber'} = $biblionumber; |
123 |
$result->{'biblionumber'} = $biblionumber; |