|
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; |