Lines 283-293
if ($op eq ""){
Link Here
|
283 |
my @serials = $input->param('serial'); |
283 |
my @serials = $input->param('serial'); |
284 |
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 |
284 |
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 |
285 |
my @ind_tag = $input->param('ind_tag'); |
285 |
my @ind_tag = $input->param('ind_tag'); |
286 |
my $item; #WHAT IS THIS MADNESS?? |
|
|
287 |
push @{ $item->{tags} }, $tags[0]; |
288 |
push @{ $item->{subfields} }, $subfields[0]; |
289 |
push @{ $item->{field_values} }, $field_values[0]; |
290 |
push @{ $item->{ind_tag} }, $ind_tag[0]; |
291 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag ); |
286 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag ); |
292 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
287 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
293 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
288 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
294 |
- |
|
|