From bee56d1b3382615c8088de9f2fd3a38e023debfc Mon Sep 17 00:00:00 2001
From: Mason James <mason.loves.sushi@gmail.com>
Date: Wed, 1 Apr 2009 17:11:13 +1300
Subject: [PATCH] fix to ignore 600$2 'Source of heading' fields for MARC21
 subject display

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
---
 C4/Biblio.pm | 2 ++
 1 file changed, 2 insertions(+)
 mode change 100644 => 100755 C4/Biblio.pm

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
old mode 100644
new mode 100755
index c987dfaea2..8d12925504
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1138,6 +1138,8 @@ sub GetMarcSubjects {
         for my $subject_subfield (@subfields ) {
             # don't load unimarc subfields 3,4,5
             next if (($marcflavour eq "UNIMARC") and ($subject_subfield->[0] =~ /3|4|5/ ) );
+            # don't load MARC21 subfields 2 (FIXME: any more subfields??)
+            next if (($marcflavour eq "MARC21")  and ($subject_subfield->[0] =~ /2/ ) );
             my $code = $subject_subfield->[0];
             my $value = $subject_subfield->[1];
             my $linkvalue = $value;
-- 
2.20.1