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' } );