From d5d9a181607905afc58b5511375ad6f7b5707074 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 10 Feb 2004 09:09:41 +0000
Subject: [PATCH] small fix to handle tags<10

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

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index d837a6f785..a3960476eb 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -231,6 +231,7 @@ sub build_tabs ($$$$) {
 					foreach my $subfield (sort( keys %{$tagslib->{$tag}})) {
 						next if subfield_is_koha_internal_p($subfield);
 						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
+						next if ($tag<10);
 						next if (defined($record->field($tag)->subfield($subfield)));
 						push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
 						$i++;
@@ -239,7 +240,7 @@ sub build_tabs ($$$$) {
 						my %tag_data;
 						$tag_data{tag} = $tag;
 						$tag_data{tag_lib} = $tagslib->{$tag}->{lib};
-						$tag_data{indicator} = $record->field($tag)->indicator(1). $record->field($tag)->indicator(2);
+						$tag_data{indicator} = $record->field($tag)->indicator(1). $record->field($tag)->indicator(2) if ($tag>=10);
 						$tag_data{subfield_loop} = \@subfields_data;
 						push (@loop_data, \%tag_data);
 					}
-- 
2.39.5