X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=authorities%2Fauthorities.pl;h=19a03e8f6d6387e9b6b2910381310b93a0dd955d;hb=dd7fbbd70d5004c7fcf3b9d6a1b26c73d3fcebaa;hp=ee842e02666369406237fa6d8e40e7653b5b4daa;hpb=369c5382a48ab2faab1f49e710681681e718ab40;p=koha_fer

diff --git a/authorities/authorities.pl b/authorities/authorities.pl
index ee842e0266..19a03e8f6d 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);