Code cleaning :
[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::Interface::CGI::Output;
40 use C4::Context;
41
42 use PDF::Reuse;
43 use PDF::Reuse::Barcode;
44 use POSIX;
45 use C4::Labels;
46 use Acme::Comment;
47
48
49 my $htdocs_path = C4::Context->config('intrahtdocs');
50 my $cgi         = new CGI;
51 my $spine_text  = "";
52
53 # get the printing settings
54 my $template     = GetActiveLabelTemplate();
55 my $conf_data    = get_label_options();
56 my @resultsloop  = get_label_items();
57 my $barcodetype  = $conf_data->{'barcodetype'};
58 my $printingtype = $conf_data->{'printingtype'};
59 my $guidebox     = $conf_data->{'guidebox'};
60 my $start_label  = $conf_data->{'startlabel'};
61 my $fontsize     = $template->{'fontsize'};
62 my $units        = $template->{'units'};
63
64 warn "UNITS $units";
65 warn "fontsize = $fontsize";
66
67 my $unitvalue = GetUnitsValue($units);
68 warn $unitvalue;
69 warn $units;
70
71 my $tmpl_code = $template->{'tmpl_code'};
72 my $tmpl_desc = $template->{'tmpl_desc'};
73
74 my $page_height  = ( $template->{'page_height'} * $unitvalue );
75 my $page_width   = ( $template->{'page_width'} * $unitvalue );
76 my $label_height = ( $template->{'label_height'} * $unitvalue );
77 my $label_width  = ( $template->{'label_width'} * $unitvalue );
78 my $spine_width  = ( $template->{'label_width'} * $unitvalue );
79 my $circ_width   = ( $template->{'label_width'} * $unitvalue );
80 my $top_margin   = ( $template->{'topmargin'} * $unitvalue );
81 my $left_margin  = ( $template->{'leftmargin'} * $unitvalue );
82 my $colspace     = ( $template->{'colgap'} * $unitvalue );
83 my $rowspace     = ( $template->{'rowgap'} * $unitvalue );
84
85 my $label_cols = $template->{'cols'};
86 my $label_rows = $template->{'rows'};
87
88 my $text_wrap_cols = GetTextWrapCols( $fontsize, $label_width );
89
90 warn $label_cols, $label_rows;
91
92 # set the paper size
93 my $lowerLeftX  = 0;
94 my $lowerLeftY  = 0;
95 my $upperRightX = $page_width;
96 my $upperRightY = $page_height;
97
98 prInitVars();
99 $| = 1;
100 print STDOUT "Content-Type: application/pdf \r\n\r\n";
101 prFile();
102
103 prMbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
104
105 # later feature, change the font-type and size?
106 prFont('C');    # Just setting a font
107 prFontSize($fontsize);
108
109 my $margin           = $top_margin;
110 my $left_text_margin = 3;
111
112 my $str;
113
114 #warn "STARTROW = $startrow\n";
115
116 #my $page_break_count = $startrow;
117 my $codetype = 'Code39';
118
119 #do page border
120 #drawbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
121
122 my $item;
123 my ( $i, $i2 );    # loop counters
124
125 # big row loop
126
127 warn " $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY";
128 warn "$label_rows, $label_cols\n";
129 warn "$label_height, $label_width\n";
130 warn "$page_height, $page_width\n";
131
132 my ( $rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp );
133
134 if ( $start_label eq 1 ) {
135     $rowcount = 1;
136     $colcount = 1;
137     $x_pos    = $left_margin;
138     $y_pos    = ( $page_height - $top_margin - $label_height );
139 }
140
141 else {
142     $rowcount = ceil( $start_label / $label_cols );
143     $colcount = ( $start_label - ( ( $rowcount - 1 ) * $label_cols ) );
144
145     $x_pos = $left_margin + ( $label_width * ( $colcount - 1 ) ) +
146       ( $colspace * ( $colcount - 1 ) );
147
148     $y_pos = $page_height - $top_margin - ( $label_height * $rowcount ) -
149       ( $rowspace * ( $rowcount - 1 ) );
150
151 }
152
153 warn "ROW COL $rowcount, $colcount";
154
155 #my $barcodetype = 'Code39';
156
157 foreach $item (@resultsloop) {
158
159     warn "-----------------";
160     if ($guidebox) {
161         drawbox( $x_pos, $y_pos, $label_width, $label_height );
162     }
163
164     if ( $printingtype eq 'spine' || $printingtype eq 'both' ) {
165         if ($guidebox) {
166             drawbox( $x_pos, $y_pos, $label_width, $label_height );
167         }
168
169         DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
170             $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
171         CalcNextLabelPos();
172     }
173
174     if ( $printingtype eq 'barcode' || $printingtype eq 'both' ) {
175         if ($guidebox) {
176             drawbox( $x_pos, $y_pos, $label_width, $label_height );
177         }
178
179         DrawBarcode( $x_pos, $y_pos, $label_height, $label_width,
180             $item->{'barcode'}, $barcodetype );
181         CalcNextLabelPos();
182     }
183
184 }    # end for item loop
185 prEnd();
186
187 print $cgi->redirect("/intranet-tmpl/barcodes/new.pdf");
188
189 sub CalcNextLabelPos {
190     if ( $colcount lt $label_cols ) {
191
192         #        warn "new col";
193         $x_pos = ( $x_pos + $label_width + $colspace );
194         $colcount++;
195     }
196
197     else {
198         $x_pos = $left_margin;
199         if ( $rowcount eq $label_rows ) {
200
201             #            warn "new page";
202             prPage();
203             $y_pos    = ( $page_height - $top_margin - $label_height );
204             $rowcount = 1;
205         }
206         else {
207
208             #            warn "new row";
209             $y_pos = ( $y_pos - $rowspace - $label_height );
210             $rowcount++;
211         }
212         $colcount = 1;
213     }
214 }
215