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 under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
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 ) {
64 "Error: You must specify a valid directory to dump the print notices in.\n";
68 my $today = C4::Dates->new();
69 my @all_messages = @{ GetPrintMessages() };
70 exit unless (@all_messages);
75 my %messages_by_branch;
76 foreach my $message (@all_messages) {
77 push( @{ $messages_by_branch{ $message->{'branchcode'} } }, $message );
80 foreach my $branchcode ( keys %messages_by_branch ) {
81 my @messages = @{ $messages_by_branch{$branchcode} };
83 File::Spec->catdir( $output_directory,
84 "holdnotices-" . $today->output('iso') . "-$branchcode.html" );
87 C4::Templates::gettemplate( 'batch/print-notices.tmpl', 'intranet',
91 stylesheet => C4::Context->preference("NoticeCSS"),
92 today => $today->output(),
93 messages => \@messages,
96 print $OUTPUT $template->output;
98 foreach my $message (@messages) {
99 C4::Letters::_set_message_status(
100 { message_id => $message->{'message_id'}, status => 'sent' } );
108 File::Spec->catdir( $output_directory,
109 "holdnotices-" . $today->output('iso') . ".html" );
112 C4::Templates::gettemplate( 'batch/print-notices.tmpl', 'intranet',
116 stylesheet => C4::Context->preference("NoticeCSS"),
117 today => $today->output(),
118 messages => \@all_messages,
121 print $OUTPUT $template->output;
123 foreach my $message (@all_messages) {
124 C4::Letters::_set_message_status(
125 { message_id => $message->{'message_id'}, status => 'sent' } );