View | Details | Raw Unified | Return to bug 9145
Collapse All | Expand All

(-)a/authorities/authorities.pl (-12 lines)
Lines 583-599 if ($op eq "add") { Link Here
583
    my @ind_tag = $input->param('ind_tag');
583
    my @ind_tag = $input->param('ind_tag');
584
    my @indicator = $input->param('indicator');
584
    my @indicator = $input->param('indicator');
585
    my $record = TransformHtmlToMarc($input);
585
    my $record = TransformHtmlToMarc($input);
586
    if  (C4::Context->preference("marcflavour") eq "UNIMARC"){
587
        unless ($record->field('100')){
588
        use POSIX qw(strftime);
589
        my $string = strftime( "%Y%m%d", localtime(time) );
590
        # set 50 to position 26 is biblios, 13 if authorities
591
        my $pos=13;
592
        $string = sprintf( "%-*s", 35, $string );
593
        substr( $string, $pos , 2, "50" );
594
        $record->append_fields(MARC::Field->new('100','','',"a"=>$string));
595
        }    
596
    }
597
586
598
    my ($duplicateauthid,$duplicateauthvalue);
587
    my ($duplicateauthid,$duplicateauthvalue);
599
     ($duplicateauthid,$duplicateauthvalue) = FindDuplicateAuthority($record,$authtypecode) if ($op eq "add") && (!$is_a_modif);
588
     ($duplicateauthid,$duplicateauthvalue) = FindDuplicateAuthority($record,$authtypecode) if ($op eq "add") && (!$is_a_modif);
600
- 

Return to bug 9145