From c8053f6826db89ce8c84567616414db44fcff69c Mon Sep 17 00:00:00 2001
From: David Cook <dcook@prosentient.com.au>
Date: Thu, 15 Oct 2020 00:59:24 +0000
Subject: [PATCH] Bug 26684: Remove marc from auth_header for new installs

---
 C4/AuthoritiesMarc.pm                  | 2 +-
 installer/data/mysql/kohastructure.sql | 1 -
 t/db_dependent/Linker_FirstMatch.t     | 1 -
 3 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 9fa4d4f96f..b820be3f50 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -628,7 +628,7 @@ sub AddAuthority {
     $record->delete_field( $record->field('001') );
     $record->insert_fields_ordered( MARC::Field->new( '001', $authid ) );
     # Update
-    $dbh->do( "UPDATE auth_header SET authtypecode=?, marc=?, marcxml=? WHERE authid=?", undef, $authtypecode, $record->as_usmarc, $record->as_xml_record($format), $authid ) or die $DBI::errstr;
+    $dbh->do( "UPDATE auth_header SET authtypecode=?, marcxml=? WHERE authid=?", undef, $authtypecode, $record->as_xml_record($format), $authid ) or die $DBI::errstr;
     my $indexer = Koha::SearchEngine::Indexer->new({ index => $Koha::SearchEngine::AUTHORITIES_INDEX });
     $indexer->index_records( $authid, "specialUpdate", "authorityserver", $record );
 
diff --git a/installer/data/mysql/kohastructure.sql b/installer/data/mysql/kohastructure.sql
index fc9953bb2b..f05d28dedf 100644
--- a/installer/data/mysql/kohastructure.sql
+++ b/installer/data/mysql/kohastructure.sql
@@ -27,7 +27,6 @@ CREATE TABLE `auth_header` (
   `modification_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
   `origincode` varchar(20) default NULL,
   `authtrees` LONGTEXT,
-  `marc` blob,
   `linkid` bigint(20) default NULL,
   `marcxml` LONGTEXT NOT NULL,
   PRIMARY KEY  (`authid`),
diff --git a/t/db_dependent/Linker_FirstMatch.t b/t/db_dependent/Linker_FirstMatch.t
index cfcd752437..c31ce2df6b 100755
--- a/t/db_dependent/Linker_FirstMatch.t
+++ b/t/db_dependent/Linker_FirstMatch.t
@@ -82,7 +82,6 @@ sub run_tests {
         }
     );
     $auth_header_record->marcxml($fake_xml);
-    $auth_header_record->marc($fake_marc);
     $auth_header_record->update;
 
     # Find a particular series field.
-- 
2.11.0