From aa17999852fad9bc4b4ddd3b694f9293a2c38fb7 Mon Sep 17 00:00:00 2001 From: tipaul Date: Fri, 22 Sep 2006 15:49:50 +0000 Subject: [PATCH] fixing indicator bugs for UNIMARC --- acqui.simple/addbiblio.pl | 6 +++++- .../intranet-tmpl/default/en/acqui.simple/addbooks.tmpl | 4 ++-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl index e8d2bd0eb8..fe8a8e976a 100755 --- a/acqui.simple/addbiblio.pl +++ b/acqui.simple/addbiblio.pl @@ -563,7 +563,11 @@ if ($op eq "addbiblio") { my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag); my $record; 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); } 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')); diff --git a/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl b/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl index 51cd7a789e..ea7aa5072b 100644 --- a/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl +++ b/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl @@ -18,7 +18,7 @@ - +

@@ -27,7 +27,7 @@ - +

-- 2.39.5