From 8023d38e9d9c5d91fdd3b5de9b44ee2fc7dae070 Mon Sep 17 00:00:00 2001
From: kados <kados>
Date: Tue, 14 Mar 2006 22:55:31 +0000
Subject: [PATCH] adds further functionality to not load subfields marked '3'
 in the Hidden in frameworks. Once this is confirmed stable I'll send an email
 to koha-devel as it's quite an important feature.

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

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 804000893c..f08f6ad2f5 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -251,6 +251,9 @@ sub build_tabs ($$$$) {
 						}
 						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
 						next if ($tagslib->{$tag}->{$subfield}->{kohafield} eq 'biblio.biblionumber');
+						#next if (($tagslib->{$tag}->{$subfield}->{hidden}==3) && ($value eq ''));
+						#warn "VALUE: $value";
+						#warn "OUTSIDE TAGSLIB";
 						push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth));
 						$i++;
 					} else {
@@ -269,6 +272,10 @@ sub build_tabs ($$$$) {
 						next if (length $subfield !=1);
 						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
 						next if ($tag<10);
+						if ($tagslib->{$tag}->{$subfield}->{hidden}==3) {
+							warn "TAGSLIB:".$tag."==";
+						}
+						next if ($tagslib->{$tag}->{$subfield}->{hidden}==3);
 						next if (defined($field->subfield($subfield)));
 						push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
 						$i++;
@@ -300,6 +307,7 @@ sub build_tabs ($$$$) {
 				my @subfields_data;
 				foreach my $subfield (sort(keys %{$tagslib->{$tag}})) {
 					next if (length $subfield !=1);
+					next if ($tagslib->{$tag}->{$subfield}->{hidden}==3);
 					next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
 					push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
 					$i++;
-- 
2.39.5