X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=labels%2Flabel-create-pdf.pl;h=3d7ff1fc9c89cd779beae863a6c9110feaacb604;hb=c6721b2fceb47f4599d092b6473323b687f9669f;hp=64bd85e914bdf702cf819c0bf55e3fd164686c09;hpb=4a675bcaad41ebca8b116fd47327bc80af380098;p=koha_fer diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl index 64bd85e914..3d7ff1fc9c 100755 --- a/labels/label-create-pdf.pl +++ b/labels/label-create-pdf.pl @@ -1,48 +1,77 @@ #!/usr/bin/perl +# Copyright Chris Nighswonger 2009 +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + + use strict; use warnings; use CGI; - +use C4::Auth; use C4::Debug; -use C4::Labels::Batch 1.000000; -use C4::Labels::Template 1.000000; -use C4::Labels::Layout 1.000000; -use C4::Creators::PDF 1.000000; -use C4::Labels::Label 1.000000; +use C4::Creators; +use C4::Labels; my $cgi = new CGI; -my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id'); +my ( undef, $loggedinuser, $cookie ) = get_template_and_user({ + template_name => "labels/label-home.tt", + query => $cgi, + type => "intranet", + authnotrequired => 0, + flagsrequired => { tools => 'label_creator' }, + debug => 1, + }); + +my $batch_id; +my @label_ids; +my @item_numbers; +$batch_id = $cgi->param('batch_id') if $cgi->param('batch_id'); my $template_id = $cgi->param('template_id') || undef; my $layout_id = $cgi->param('layout_id') || undef; my $start_label = $cgi->param('start_label') || 1; -my @label_ids = $cgi->param('label_id') if $cgi->param('label_id'); -my @item_numbers = $cgi->param('item_number') if $cgi->param('item_number'); +@label_ids = $cgi->param('label_id') if $cgi->param('label_id'); +@item_numbers = $cgi->param('item_number') if $cgi->param('item_number'); my $items = undef; + + my $pdf_file = (@label_ids || @item_numbers ? "label_single_" . scalar(@label_ids || @item_numbers) : "label_batch_$batch_id"); print $cgi->header( -type => 'application/pdf', -encoding => 'utf-8', -attachment => "$pdf_file.pdf", ); -my $pdf = C4::Creators::PDF->new(InitVars => 0); +our $pdf = C4::Creators::PDF->new(InitVars => 0); my $batch = C4::Labels::Batch->retrieve(batch_id => $batch_id); -my $template = C4::Labels::Template->retrieve(template_id => $template_id, profile_id => 1); +our $template = C4::Labels::Template->retrieve(template_id => $template_id, profile_id => 1); my $layout = C4::Labels::Layout->retrieve(layout_id => $layout_id); sub _calc_next_label_pos { my ($row_count, $col_count, $llx, $lly) = @_; - if ($col_count lt $template->get_attr('cols')) { + if ($col_count < $template->get_attr('cols')) { $llx = ($llx + $template->get_attr('label_width') + $template->get_attr('col_gap')); $col_count++; } else { $llx = $template->get_attr('left_margin'); - if ($row_count eq $template->get_attr('rows')) { + if ($row_count == $template->get_attr('rows')) { $pdf->Page(); $lly = ($template->get_attr('page_height') - $template->get_attr('top_margin') - $template->get_attr('label_height')); $row_count = 1; @@ -61,6 +90,7 @@ sub _print_text { foreach my $text_line (@$label_text) { my $pdf_font = $pdf->Font($text_line->{'font'}); my $line = "BT /$pdf_font $text_line->{'font_size'} Tf $text_line->{'text_llx'} $text_line->{'text_lly'} Td ($text_line->{'line'}) Tj ET"; + utf8::decode($line); $pdf->Add($line); } } @@ -97,7 +127,7 @@ else { LABEL_ITEMS: foreach my $item (@{$items}) { my ($barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor) = 0,0,0,0; - if ($layout->get_attr('printing_type') eq 'ALT') { # we process the ALT style printing type here because it is not an atomic printing type + if ($layout->get_attr('printing_type') eq 'ALT') { # we process the ALT style printing type here because it is not an atomic printing type my $label_a = C4::Labels::Label->new( batch_id => $batch_id, item_number => $item->{'item_number'}, @@ -117,6 +147,7 @@ foreach my $item (@{$items}) { format_string => $layout->get_attr('format_string'), text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), ); + $pdf->Add($label_a->draw_guide_box) if $layout->get_attr('guidebox'); my $label_a_text = $label_a->create_label(); _print_text($label_a_text); ($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly); @@ -139,6 +170,7 @@ foreach my $item (@{$items}) { format_string => $layout->get_attr('format_string'), text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), ); + $pdf->Add($label_b->draw_guide_box) if $layout->get_attr('guidebox'); my $label_b_text = $label_b->create_label(); ($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly); next LABEL_ITEMS; @@ -164,6 +196,7 @@ foreach my $item (@{$items}) { format_string => $layout->get_attr('format_string'), text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), ); + $pdf->Add($label->draw_guide_box) if $layout->get_attr('guidebox'); my $label_text = $label->create_label(); _print_text($label_text) if $label_text; ($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly); @@ -172,7 +205,7 @@ foreach my $item (@{$items}) { $pdf->End(); -exit(1); +__END__ =head1 NAME @@ -210,12 +243,12 @@ Copyright 2009 Foundations Bible College. =head1 LICENSE This file is part of Koha. - + Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. -You should have received a copy of the GNU General Public License along with Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -Suite 330, Boston, MA 02111-1307 USA +You should have received a copy of the GNU General Public License along with Koha; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, +Fifth Floor, Boston, MA 02110-1301 USA. =head1 DISCLAIMER OF WARRANTY