From 05e2cbad57515e9535e5974876296c36dfbd11c7 Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek 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 Content-Type: text/plain; charset=utf-8 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 Signed-off-by: Nick Clemens --- misc/exportauth.pl | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100755 misc/exportauth.pl diff --git a/misc/exportauth.pl b/misc/exportauth.pl deleted file mode 100755 index 5fc3dd4f2f..0000000000 --- a/misc/exportauth.pl +++ /dev/null @@ -1,26 +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