From 7b272c8cff7b0669bb3747ff01dfe64f6abe761d Mon Sep 17 00:00:00 2001 From: Hammat Wele Date: Wed, 17 Sep 2025 20:55:53 +0000 Subject: [PATCH] Bug 11300: (follow-up) Remove unused marc column in Z3950Server authority insert --- C4/Linker/Z3950Server.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Linker/Z3950Server.pm b/C4/Linker/Z3950Server.pm index 395aa315ea9..db4f3a769fa 100644 --- a/C4/Linker/Z3950Server.pm +++ b/C4/Linker/Z3950Server.pm @@ -297,13 +297,13 @@ sub getZ3950Authority { return ( $authId, $record, 'Z3950_UPDATED' ); } else { my $sth = $dbh->prepare( - "INSERT INTO auth_header (datecreated,authtypecode,marc,marcxml,origincode) VALUES (NOW(),?,?,?,?)"); + "INSERT INTO auth_header (datecreated,authtypecode,marcxml,origincode) VALUES (NOW(),?,?,?)"); eval { - $sth->execute( $authtypecode, $record->as_usmarc, $record->as_xml_record($format), $controlNumber ) + $sth->execute( $authtypecode, $record->as_xml_record($format), $controlNumber ) or die $sth->errstr; }; $sth->finish; - warn "Problem with authority $controlNumber : Cannot insert" if $@; + warn "Problem with authority $controlNumber : Cannot insert $@" if $@; my $id = $dbh->{'mysql_insertid'}; return if $@; -- 2.34.1