From 0a21cd9b817d671945da49298560d36ad4ed55cd Mon Sep 17 00:00:00 2001 From: Marc Chantreux Date: Sat, 28 Nov 2009 01:28:53 +0100 Subject: [PATCH] readable format selection --- C4/AuthoritiesMarc.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index 2c79041f60..67ad4e4d55 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -526,8 +526,9 @@ sub AddAuthority { my $leader=' nz a22 o 4500';#Leader for incomplete MARC21 record # if authid empty => true add, find a new authid number - my $format= 'UNIMARCAUTH' if (uc(C4::Context->preference('marcflavour')) eq 'UNIMARC'); - $format= 'MARC21' if (uc(C4::Context->preference('marcflavour')) ne 'UNIMARC'); + my $format = uc(C4::Context->preference('marcflavour')) eq 'UNIMARC' + ? 'UNIMARCAUTH' : 'MARC21' + ; if ($format eq "MARC21") { if (!$record->leader) { -- 2.39.5