projects
/
srvgit
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 29196: (Bug 27068 follow-up) - Remove unnecessary check
[srvgit]
/
misc
/
exportauth.pl
diff --git
a/misc/exportauth.pl
b/misc/exportauth.pl
index
d6236d2
..
14e3088
100755
(executable)
--- a/
misc/exportauth.pl
+++ b/
misc/exportauth.pl
@@
-5,18
+5,12
@@
use strict;
#use warnings; FIXME - Bug 2505
use strict;
#use warnings; FIXME - Bug 2505
-BEGIN {
- # find Koha's Perl modules
- # test carefully before changing this
- use FindBin;
- eval { require "$FindBin::Bin/kohalib.pl" };
-}
+use Koha::Script;
use C4::Context;
use C4::Context;
-use C4::Biblio;
use C4::Auth;
my $outfile = $ARGV[0];
use C4::Auth;
my $outfile = $ARGV[0];
-open(
OUT,">$outfile"
) or die $!;
+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'");
my $dbh=C4::Context->dbh;
#$dbh->do("set character_set_client='latin5'");
$dbh->do("set character_set_connection='utf8'");
@@
-24,6
+18,6
@@
$dbh->do("set character_set_connection='utf8'");
my $sth=$dbh->prepare("select marc from auth_header order by authid");
$sth->execute();
while (my ($marc) = $sth->fetchrow) {
my $sth=$dbh->prepare("select marc from auth_header order by authid");
$sth->execute();
while (my ($marc) = $sth->fetchrow) {
- print
OUT
$marc;
+ print
$fh
$marc;
}
}
-close(
OUT
);
+close(
$fh
);