Lines 50-55
sub add_bib {
Link Here
|
50 |
|
50 |
|
51 |
my $result = {}; |
51 |
my $result = {}; |
52 |
my $inxml = $query->param('POSTDATA'); |
52 |
my $inxml = $query->param('POSTDATA'); |
|
|
53 |
my $frameworkcode = $query->url_param('frameworkcode') // ''; |
53 |
print $query->header(-type => 'text/xml', -charset => 'utf-8'); |
54 |
print $query->header(-type => 'text/xml', -charset => 'utf-8'); |
54 |
|
55 |
|
55 |
my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21'; |
56 |
my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21'; |
Lines 73-79
sub add_bib {
Link Here
|
73 |
foreach my $field ( $record->field($itemtag) ) { |
74 |
foreach my $field ( $record->field($itemtag) ) { |
74 |
$record->delete_field($field); |
75 |
$record->delete_field($field); |
75 |
} |
76 |
} |
76 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); |
77 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, $frameworkcode ); |
77 |
my $new_record = GetMarcBiblio({ biblionumber => $biblionumber }); |
78 |
my $new_record = GetMarcBiblio({ biblionumber => $biblionumber }); |
78 |
if ( $query->url_param('items') ) { |
79 |
if ( $query->url_param('items') ) { |
79 |
foreach my $field ( $fullrecord->field($itemtag) ) { |
80 |
foreach my $field ( $fullrecord->field($itemtag) ) { |
80 |
- |
|
|