|
Lines 378-389
if ($op eq ""){
Link Here
|
| 378 |
my @serials = $input->multi_param('serial'); |
378 |
my @serials = $input->multi_param('serial'); |
| 379 |
my @ind_tag = $input->multi_param('ind_tag'); |
379 |
my @ind_tag = $input->multi_param('ind_tag'); |
| 380 |
my @indicator = $input->multi_param('indicator'); |
380 |
my @indicator = $input->multi_param('indicator'); |
| 381 |
my $item; |
|
|
| 382 |
push @{ $item->{tags} }, $tags[0]; |
| 383 |
push @{ $item->{subfields} }, $subfields[0]; |
| 384 |
push @{ $item->{field_values} }, $field_values[0]; |
| 385 |
push @{ $item->{ind_tag} }, $ind_tag[0]; |
| 386 |
push @{ $item->{indicator} }, $indicator[0]; |
| 387 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag ); |
381 |
my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@indicator, \@ind_tag ); |
| 388 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
382 |
my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' ); |
| 389 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
383 |
for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) { |
| 390 |
- |
|
|