Frédéric Demians
6b8be20497
This patch solves the situation that news is in another language than the Koha interface AND makes that themelanguage routine is always called the same way in order to prevent mixed display. It fixes also a bug related to language preselection based on web browser prefered language. September 9: Adjusted with input of Frederic Demians. Septembre 10: Avoid circular dependency, as pointed by Chris Cormack. Templates related functions are moved from C4::Output to C4::Templates Signed-off-by: Alex Arnaud <alex.arnaud@biblibre.com> Signed-off-by: Ian Walls <ian.walls@bywatersolutions.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
29 lines
765 B
Perl
Executable file
29 lines
765 B
Perl
Executable file
#!/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
|
|
BEGIN {
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/kohalib.pl" };
|
|
}
|
|
|
|
use C4::Context;
|
|
use C4::Biblio;
|
|
use C4::Auth;
|
|
my $outfile = $ARGV[0];
|
|
open(OUT,">$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 OUT $marc;
|
|
}
|
|
close(OUT);
|