From 1a046966c2c4b6cd12abdc5fb16d0d462e56359e Mon Sep 17 00:00:00 2001
From: Janusz Kaczmarek <januszop@gmail.com>
Date: Sun, 2 Feb 2025 18:05:22 +0100
Subject: [PATCH] Bug 26684: Remove misc/exportauth.pl as a consequence of
 removing auth_header.marc

Since we have misc/export_records.pl and we want to remove
auth_header.marc, the ancient script misc/exportauth.pl can be removed
as well (it is relied upon auth_header.marc).

Signed-off-by: Roman Dolny <roman.dolny@jezuici.pl>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 misc/exportauth.pl | 23 -----------------------
 1 file changed, 23 deletions(-)
 delete mode 100755 misc/exportauth.pl

diff --git a/misc/exportauth.pl b/misc/exportauth.pl
deleted file mode 100755
index 14e30884d2d..00000000000
--- a/misc/exportauth.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-## This script allows you to export a rel_2_2 bibliographic db in 
-#MARC21 format from the command line.
-#
-
-use strict;
-#use warnings; FIXME - Bug 2505
-
-use Koha::Script;
-use C4::Context;
-use C4::Auth;
-my $outfile = $ARGV[0];
-open(my $fh, '>', $outfile) or die $!;
-my $dbh=C4::Context->dbh;
-#$dbh->do("set character_set_client='latin5'"); 
-$dbh->do("set character_set_connection='utf8'");
-#$dbh->do("set character_set_results='latin5'");        
-my $sth=$dbh->prepare("select marc from auth_header order by authid");
-$sth->execute();
-while (my ($marc) = $sth->fetchrow) {
-    print $fh $marc;
- }
-close($fh);
-- 
2.39.5