From 1de37ec28e230876e430a5721197970de438255b Mon Sep 17 00:00:00 2001 From: Vitor FERNANDES Date: Wed, 5 Dec 2012 10:55:20 +0000 Subject: [PATCH] BUG 9145 - Authorities: standard language for UNIMARC Problem is that in authorities.pl the field 100 was automatically filled so the code in Authorities.pm wasn't working. --- authorities/authorities.pl | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/authorities/authorities.pl b/authorities/authorities.pl index ee842e0..19a03e8 100755 --- a/authorities/authorities.pl +++ b/authorities/authorities.pl @@ -583,17 +583,6 @@ if ($op eq "add") { my @ind_tag = $input->param('ind_tag'); my @indicator = $input->param('indicator'); my $record = TransformHtmlToMarc($input); - if (C4::Context->preference("marcflavour") eq "UNIMARC"){ - unless ($record->field('100')){ - use POSIX qw(strftime); - my $string = strftime( "%Y%m%d", localtime(time) ); - # set 50 to position 26 is biblios, 13 if authorities - my $pos=13; - $string = sprintf( "%-*s", 35, $string ); - substr( $string, $pos , 2, "50" ); - $record->append_fields(MARC::Field->new('100','','',"a"=>$string)); - } - } my ($duplicateauthid,$duplicateauthvalue); ($duplicateauthid,$duplicateauthvalue) = FindDuplicateAuthority($record,$authtypecode) if ($op eq "add") && (!$is_a_modif); -- 1.7.9.5