From 06305a58acd1d9420d843f319feedabbb50a72af Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien@koha-fr.org>
Date: Tue, 6 Nov 2007 11:55:46 -0600
Subject: [PATCH] Changing 100$a coded field Only when marcflavour eq UNIMARC.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/AuthoritiesMarc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 632bdb2c54..65cede5b44 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -517,7 +517,7 @@ sub AddAuthority {
     $sth->finish;
   }else{
       $record->add_fields('001',$authid) unless ($record->field('001'));
-      if (($format eq "UNIMARCAUTH") && (!$record->subfield('100','a')){
+      if (($format eq "UNIMARCAUTH") && (!$record->subfield('100','a'))){
             $record->leader("     nx  j22             ");
             my $date=POSIX::strftime("%Y%m%d",localtime);    
             if ($record->field('100')){
-- 
2.39.2