bugfixes (various), handling utf-8 without guessencoding (as suggested by joshua...
[koha.git] / barcodes / label-print-pdf.pl
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA  02111-1307 USA
17
18 # $Id$
19
20 =head1 label-print-pdf.pl
21
22  this script is really divided into 2 differenvt section,
23
24  the first section creates, and defines the new PDF file the barcodes
25  using PDF::Reuse::Barcode, then saves the file to disk.
26
27  the second section then opens the pdf file off disk, and places the spline label
28  text in the left-most column of the page. then save the file again.
29
30  the reason for this goofyness, it that i couldnt find a single perl package that handled both barcodes and decent text placement.
31
32 =cut
33
34 use strict;
35 use CGI;
36 use C4::Labels;
37 use C4::Auth;
38 use C4::Output;
39 use C4::Context;
40
41 use PDF::Reuse;
42 use PDF::Reuse::Barcode;
43 use POSIX;
44 use C4::Labels;
45 use Acme::Comment;
46
47
48 my $htdocs_path = C4::Context->config('intrahtdocs');
49 my $cgi         = new CGI;
50 my $spine_text  = "";
51
52 # get the printing settings
53 my $template     = GetActiveLabelTemplate();
54 my $conf_data    = get_label_options();
55 my @resultsloop  = get_label_items();
56 my $barcodetype  = $conf_data->{'barcodetype'};
57 my $printingtype = $conf_data->{'printingtype'};
58 my $guidebox     = $conf_data->{'guidebox'};
59 my $start_label  = $conf_data->{'startlabel'};
60 my $fontsize     = $template->{'fontsize'};
61 my $units        = $template->{'units'};
62
63 warn "UNITS $units";
64 warn "fontsize = $fontsize";
65
66 my $unitvalue = GetUnitsValue($units);
67 warn $unitvalue;
68 warn $units;
69
70 my $tmpl_code = $template->{'tmpl_code'};
71 my $tmpl_desc = $template->{'tmpl_desc'};
72
73 my $page_height  = ( $template->{'page_height'} * $unitvalue );
74 my $page_width   = ( $template->{'page_width'} * $unitvalue );
75 my $label_height = ( $template->{'label_height'} * $unitvalue );
76 my $label_width  = ( $template->{'label_width'} * $unitvalue );
77 my $spine_width  = ( $template->{'label_width'} * $unitvalue );
78 my $circ_width   = ( $template->{'label_width'} * $unitvalue );
79 my $top_margin   = ( $template->{'topmargin'} * $unitvalue );
80 my $left_margin  = ( $template->{'leftmargin'} * $unitvalue );
81 my $colspace     = ( $template->{'colgap'} * $unitvalue );
82 my $rowspace     = ( $template->{'rowgap'} * $unitvalue );
83
84 my $label_cols = $template->{'cols'};
85 my $label_rows = $template->{'rows'};
86
87 my $text_wrap_cols = GetTextWrapCols( $fontsize, $label_width );
88
89 warn $label_cols, $label_rows;
90
91 # set the paper size
92 my $lowerLeftX  = 0;
93 my $lowerLeftY  = 0;
94 my $upperRightX = $page_width;
95 my $upperRightY = $page_height;
96
97 prInitVars();
98 $| = 1;
99 print STDOUT "Content-Type: application/pdf \r\n\r\n";
100 prFile();
101
102 prMbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
103
104 # later feature, change the font-type and size?
105 prFont('C');    # Just setting a font
106 prFontSize($fontsize);
107
108 my $margin           = $top_margin;
109 my $left_text_margin = 3;
110
111 my $str;
112
113 #warn "STARTROW = $startrow\n";
114
115 #my $page_break_count = $startrow;
116 my $codetype = 'Code39';
117
118 #do page border
119 #drawbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
120
121 my $item;
122 my ( $i, $i2 );    # loop counters
123
124 # big row loop
125
126 warn " $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY";
127 warn "$label_rows, $label_cols\n";
128 warn "$label_height, $label_width\n";
129 warn "$page_height, $page_width\n";
130
131 my ( $rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp );
132
133 if ( $start_label eq 1 ) {
134     $rowcount = 1;
135     $colcount = 1;
136     $x_pos    = $left_margin;
137     $y_pos    = ( $page_height - $top_margin - $label_height );
138 }
139
140 else {
141     $rowcount = ceil( $start_label / $label_cols );
142     $colcount = ( $start_label - ( ( $rowcount - 1 ) * $label_cols ) );
143
144     $x_pos = $left_margin + ( $label_width * ( $colcount - 1 ) ) +
145       ( $colspace * ( $colcount - 1 ) );
146
147     $y_pos = $page_height - $top_margin - ( $label_height * $rowcount ) -
148       ( $rowspace * ( $rowcount - 1 ) );
149
150 }
151
152 warn "ROW COL $rowcount, $colcount";
153
154 #my $barcodetype = 'Code39';
155
156 foreach $item (@resultsloop) {
157
158     warn "-----------------";
159     if ($guidebox) {
160         drawbox( $x_pos, $y_pos, $label_width, $label_height );
161     }
162
163     if ( $printingtype eq 'spine' || $printingtype eq 'both' ) {
164         if ($guidebox) {
165             drawbox( $x_pos, $y_pos, $label_width, $label_height );
166         }
167
168         DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
169             $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
170         CalcNextLabelPos();
171     }
172
173     if ( $printingtype eq 'barcode' || $printingtype eq 'both' ) {
174         if ($guidebox) {
175             drawbox( $x_pos, $y_pos, $label_width, $label_height );
176         }
177
178         DrawBarcode( $x_pos, $y_pos, $label_height, $label_width,
179             $item->{'barcode'}, $barcodetype );
180         CalcNextLabelPos();
181     }
182
183 }    # end for item loop
184 prEnd();
185
186 print $cgi->redirect("/intranet-tmpl/barcodes/new.pdf");
187
188 sub CalcNextLabelPos {
189     if ( $colcount lt $label_cols ) {
190
191         #        warn "new col";
192         $x_pos = ( $x_pos + $label_width + $colspace );
193         $colcount++;
194     }
195
196     else {
197         $x_pos = $left_margin;
198         if ( $rowcount eq $label_rows ) {
199
200             #            warn "new page";
201             prPage();
202             $y_pos    = ( $page_height - $top_margin - $label_height );
203             $rowcount = 1;
204         }
205         else {
206
207             #            warn "new row";
208             $y_pos = ( $y_pos - $rowspace - $label_height );
209             $rowcount++;
210         }
211         $colcount = 1;
212     }
213 }
214