From d0b4f6d2c87fe7074da1464570106ec2fd6027cc Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 13 Sep 2006 14:28:56 +0000
Subject: [PATCH] reintroducing indicators for UNIMARC libraries.

---
 acqui.simple/addbiblio.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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'));