From acf111399aec8e7700ce36460ba7a1a1ff9c7e8b Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 12 Apr 2024 08:10:18 +0000 Subject: [PATCH] Bug 36552: (QA follow-up) Add a theoretical check on $record Content-Type: text/plain; charset=utf-8 Theoretically, it might be empty? Note the check too in the other script. Signed-off-by: Marcel de Rooy --- authorities/authorities.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/authorities/authorities.pl b/authorities/authorities.pl index c1d4a04cca..462098bc1e 100755 --- a/authorities/authorities.pl +++ b/authorities/authorities.pl @@ -639,12 +639,12 @@ if ($op eq "cud-add") { } else { if ( $op eq "duplicate" ) { $authid = ""; - if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record->field('008') ) { + if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record && $record->field('008') ) { my $s008 = $record->field('008')->data; my $date = POSIX::strftime( "%y%m%d", localtime ); substr( $s008, 0, 6, $date ); $record->field('008')->update($s008); - } elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield( '100', 'a' ) ) { + } elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record && $record->subfield( '100', 'a' ) ) { my $s100a = $record->subfield( '100', 'a' ); my $date = POSIX::strftime( "%Y%m%d", localtime ); substr( $s100a, 0, 8, $date ); -- 2.30.2