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>

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 632bdb2..65cede5 100644 (file)
--- 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')){