From 07126cd3c7010fcb9cd87baea08448468119eb04 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 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 --- 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 14e30884d2..0000000000 --- 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