Lines 268-273
if ($op eq ""){
Link Here
|
268 |
my @subfields = $input->param('subfield'); |
268 |
my @subfields = $input->param('subfield'); |
269 |
my @field_values = $input->param('field_value'); |
269 |
my @field_values = $input->param('field_value'); |
270 |
my @serials = $input->param('serial'); |
270 |
my @serials = $input->param('serial'); |
|
|
271 |
my @indicator = $input->param('indicator'); #Passing the imaginary empty " " -indicators from the templates, to stop C4::Biblio::TransformHtmlToXml() to warn the bejesus out of my koha-error.log |
271 |
my @ind_tag = $input->param('ind_tag'); |
272 |
my @ind_tag = $input->param('ind_tag'); |
272 |
my @indicator = $input->param('indicator'); |
273 |
my @indicator = $input->param('indicator'); |
273 |
my $item; |
274 |
my $item; |
Lines 275-282
if ($op eq ""){
Link Here
|
275 |
push @{ $item->{subfields} }, $subfields[0]; |
276 |
push @{ $item->{subfields} }, $subfields[0]; |
276 |
push @{ $item->{field_values} }, $field_values[0]; |
277 |
push @{ $item->{field_values} }, $field_values[0]; |
277 |
push @{ $item->{ind_tag} }, $ind_tag[0]; |
278 |
push @{ $item->{ind_tag} }, $ind_tag[0]; |
278 |
push @{ $item->{indicator} }, $indicator[0]; |
279 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag ); |
279 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator ); |
|
|
280 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
280 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
281 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
281 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
282 |
my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber ); |
282 |
my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber ); |