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>
92 lines
2.5 KiB
Perl
Executable file
92 lines
2.5 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
# Copyright 2009 Jesse Weaver
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN {
|
|
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
|
|
use CGI; # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
|
|
use C4::Context;
|
|
use C4::Dates;
|
|
use C4::Debug;
|
|
use C4::Letters;
|
|
use C4::Templates;
|
|
use File::Spec;
|
|
use Getopt::Long;
|
|
|
|
sub usage {
|
|
print STDERR <<USAGE;
|
|
Usage: $0 [ -s STYLESHEET ] OUTPUT_DIRECTORY
|
|
Will print all waiting print notices to
|
|
OUTPUT_DIRECTORY/notices-CURRENT_DATE.html .
|
|
If the filename of a CSS stylesheet is specified with -s, the contents of that
|
|
file will be included in the HTML.
|
|
USAGE
|
|
exit $_[0];
|
|
}
|
|
|
|
my ( $stylesheet, $help );
|
|
|
|
GetOptions(
|
|
's:s' => \$stylesheet,
|
|
'h|help' => \$help,
|
|
) || usage( 1 );
|
|
|
|
usage( 0 ) if ( $help );
|
|
|
|
my $output_directory = $ARGV[0];
|
|
|
|
if ( !$output_directory || !-d $output_directory ) {
|
|
print STDERR "Error: You must specify a valid directory to dump the print notices in.\n";
|
|
usage( 1 );
|
|
}
|
|
|
|
my $today = C4::Dates->new();
|
|
my @messages = @{ GetPrintMessages() };
|
|
exit unless( @messages );
|
|
|
|
open OUTPUT, '>', File::Spec->catdir( $output_directory, "holdnotices-" . $today->output( 'iso' ) . ".html" );
|
|
|
|
my $template = C4::Templates::gettemplate( 'batch/print-notices.tmpl', 'intranet', new CGI );
|
|
my $stylesheet_contents = '';
|
|
|
|
if ($stylesheet) {
|
|
open STYLESHEET, '<', $stylesheet;
|
|
while ( <STYLESHEET> ) { $stylesheet_contents .= $_ }
|
|
close STYLESHEET;
|
|
}
|
|
|
|
$template->param(
|
|
stylesheet => $stylesheet_contents,
|
|
today => $today->output(),
|
|
messages => \@messages,
|
|
);
|
|
|
|
print OUTPUT $template->output;
|
|
|
|
foreach my $message ( @messages ) {
|
|
C4::Letters::_set_message_status( { message_id => $message->{'message_id'}, status => 'sent' } );
|
|
}
|