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