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

(-)a/authorities/authorities.pl (-3 / +2 lines)
Lines 639-650 if ($op eq "cud-add") { Link Here
639
} else {
639
} else {
640
    if ( $op eq "duplicate" ) {
640
    if ( $op eq "duplicate" ) {
641
        $authid = "";
641
        $authid = "";
642
        if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record->field('008') ) {
642
        if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record && $record->field('008') ) {
643
            my $s008 = $record->field('008')->data;
643
            my $s008 = $record->field('008')->data;
644
            my $date = POSIX::strftime( "%y%m%d", localtime );
644
            my $date = POSIX::strftime( "%y%m%d", localtime );
645
            substr( $s008, 0, 6, $date );
645
            substr( $s008, 0, 6, $date );
646
            $record->field('008')->update($s008);
646
            $record->field('008')->update($s008);
647
        } elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield( '100', 'a' ) ) {
647
        } elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record && $record->subfield( '100', 'a' ) ) {
648
            my $s100a = $record->subfield( '100', 'a' );
648
            my $s100a = $record->subfield( '100', 'a' );
649
            my $date  = POSIX::strftime( "%Y%m%d", localtime );
649
            my $date  = POSIX::strftime( "%Y%m%d", localtime );
650
            substr( $s100a, 0, 8, $date );
650
            substr( $s100a, 0, 8, $date );
651
- 

Return to bug 36552