3 # Copyright 2009 Jesse Weaver
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 # find Koha's Perl modules
25 # test carefully before changing this
27 eval { require "$FindBin::Bin/../kohalib.pl" };
31 CGI
; # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
42 Usage: $0 OUTPUT_DIRECTORY
43 Will print all waiting print notices to
44 OUTPUT_DIRECTORY/notices-CURRENT_DATE.html .
46 -s --split Split messages into separate file by borrower home library to OUTPUT_DIRECTORY/notices-CURRENT_DATE-BRANCHCODE.html
51 my ( $stylesheet, $help, $split );
60 my $output_directory = $ARGV[0];
62 if ( !$output_directory || !-d
$output_directory || !-w
$output_directory ) {
64 "Error: You must specify a valid and writeable directory to dump the print notices in.\n";
68 my $today = C4
::Dates
->new();
69 my @all_messages = @
{ GetPrintMessages
() };
70 exit unless (@all_messages);
72 ## carriage return replaced by <br/> as output is html
73 foreach my $message (@all_messages) {
74 local $_ = $message->{'content'};
77 $message->{'content'} = $_;
83 my %messages_by_branch;
84 foreach my $message (@all_messages) {
85 push( @
{ $messages_by_branch{ $message->{'branchcode'} } }, $message );
88 foreach my $branchcode ( keys %messages_by_branch ) {
89 my @messages = @
{ $messages_by_branch{$branchcode} };
90 my $output_file = File
::Spec
->catdir( $output_directory,
91 "holdnotices-" . $today->output('iso') . "-$branchcode.html" );
92 open $OUTPUT, '>', $output_file
93 or die "Could not open $output_file: $!";
96 C4
::Templates
::gettemplate
( 'batch/print-notices.tt', 'intranet',
100 stylesheet
=> C4
::Context
->preference("NoticeCSS"),
101 today
=> $today->output(),
102 messages
=> \
@messages,
105 print $OUTPUT $template->output;
107 foreach my $message (@messages) {
108 C4
::Letters
::_set_message_status
(
109 { message_id
=> $message->{'message_id'}, status
=> 'sent' } );
116 my $output_file = File
::Spec
->catdir( $output_directory,
117 "holdnotices-" . $today->output('iso') . ".html" );
118 open $OUTPUT, '>', $output_file
119 or die "Could not open $output_file: $!";
123 C4
::Templates
::gettemplate
( 'batch/print-notices.tt', 'intranet',
127 stylesheet
=> C4
::Context
->preference("NoticeCSS"),
128 today
=> $today->output(),
129 messages
=> \
@all_messages,
132 print $OUTPUT $template->output;
134 foreach my $message (@all_messages) {
135 C4
::Letters
::_set_message_status
(
136 { message_id
=> $message->{'message_id'}, status
=> 'sent' } );