From 230e6759bae1dca713f5fa978196640b21d00bbd Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 23 Dec 2004 08:43:43 +0000
Subject: [PATCH] bugfix : when modifying a biblio, on a repeated field with
 many subfields, the test to show empty subfields in X>1 was wrong : the
 missing subfields of the 1st field were repeated. Example : 606 has $a$x$z

1st is 606$a (so $x$z empty)
2nd is 606$a$x

The marc editor in the 2nd field showed before this fix :
606 $a a_value
   $x another_value
   $x
   $z
(the 2nd $x being useless
---
 acqui.simple/addbiblio.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 8329185941..f736192d63 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -240,7 +240,7 @@ sub build_tabs ($$$$) {
 						next if (length $subfield !=1);
 						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
 						next if ($tag<10);
-						next if (defined($record->field($tag)->subfield($subfield)));
+						next if (defined($field->subfield($subfield)));
 						push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
 						$i++;
 					}
-- 
2.39.5