Lines 277-288
if ($op eq ""){
Link Here
|
277 |
my @serials = $input->param('serial'); |
277 |
my @serials = $input->param('serial'); |
278 |
my @ind_tag = $input->param('ind_tag'); |
278 |
my @ind_tag = $input->param('ind_tag'); |
279 |
my @indicator = $input->param('indicator'); |
279 |
my @indicator = $input->param('indicator'); |
280 |
my $item; |
|
|
281 |
push @{ $item->{tags} }, $tags[0]; |
282 |
push @{ $item->{subfields} }, $subfields[0]; |
283 |
push @{ $item->{field_values} }, $field_values[0]; |
284 |
push @{ $item->{ind_tag} }, $ind_tag[0]; |
285 |
push @{ $item->{indicator} }, $indicator[0]; |
286 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator ); |
280 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator ); |
287 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
281 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
288 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
282 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
289 |
- |
|
|