diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl index 3dad60d218..e8d2bd0eb8 100755 --- a/acqui.simple/addbiblio.pl +++ b/acqui.simple/addbiblio.pl @@ -136,6 +136,7 @@ sub MARCfindbreeding { } $record->insert_fields_ordered($field); } +# warn $record->as_formatted.""; return $record,$encoding; } } @@ -500,7 +501,12 @@ if ($op eq "addbiblio") { my @ind_tag = $input->param('ind_tag'); my @indicator = $input->param('indicator'); if (C4::Context->preference('TemplateEncoding') eq "iso-8859-1") { - $record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,\@indicator,\@ind_tag); + my %indicators; + for (my $i=0;$i<=$#ind_tag;$i++) { + $indicators{$ind_tag[$i]} = $indicator[$i]; + } + $record = MARChtml2marc($dbh,\@tags,\@subfields,\@values,%indicators); +# warn "RECORD : ".$record->as_formatted; } else { my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag); $record=MARC::Record->new_from_xml($xml,C4::Context->preference('TemplateEncoding'),C4::Context->preference('marcflavour'));