X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=labels%2Flabel-create-pdf.pl;h=d35c5d36ea95f1869b880bd2ae98fc1ec7df2b59;hb=bbb4c847b42c30ab785f21aa3195bf8831b452c6;hp=106b37d741dda9cef794af1add81c79e22757450;hpb=5c2def51587c4b2636b5f066306b8bd5dc0e7a7a;p=srvgit diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl index 106b37d741..d35c5d36ea 100755 --- a/labels/label-create-pdf.pl +++ b/labels/label-create-pdf.pl @@ -4,36 +4,34 @@ # # 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 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 3 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. +# 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. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Debug; -use C4::Creators 1.000000; -use C4::Labels 1.000000; +use C4::Creators; +use C4::Labels; -my $cgi = new CGI; +my $cgi = CGI->new; -my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ +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, }); @@ -45,22 +43,22 @@ $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; -@label_ids = $cgi->param('label_id') if $cgi->param('label_id'); -@item_numbers = $cgi->param('item_number') if $cgi->param('item_number'); +@label_ids = $cgi->multi_param('label_id') if $cgi->param('label_id'); +@item_numbers = $cgi->multi_param('item_number') if $cgi->param('item_number'); +my $from = $cgi->param('from') || undef; +my $to = $cgi->param('to') || undef; 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 { @@ -88,9 +86,9 @@ sub _calc_next_label_pos { sub _print_text { my $label_text = shift; 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"; - $pdf->Add($line); + $pdf->Font($text_line->{'font'}); + $pdf->FontSize( $text_line->{'font_size'} ); + $pdf->Text( $text_line->{'text_llx'}, $text_line->{'text_lly'}, $text_line->{'line'} ); } } @@ -119,6 +117,11 @@ elsif (@item_numbers) { push(@{$items}, {item_number => $_}); } @item_numbers; } +elsif ($from and $to) { + for (my $i = $from; $i <= $to; $i++) { + push @{$items}, {'item_number' => $i}; + } +} else { $items = $batch->get_attr('items'); } @@ -139,6 +142,7 @@ foreach my $item (@{$items}) { barcode_type => $layout->get_attr('barcode_type'), printing_type => 'BIB', guidebox => $layout->get_attr('guidebox'), + oblique_title => $layout->get_attr('oblique_title'), font => $layout->get_attr('font'), font_size => $layout->get_attr('font_size'), callnum_split => $layout->get_attr('callnum_split'), @@ -162,6 +166,7 @@ foreach my $item (@{$items}) { barcode_type => $layout->get_attr('barcode_type'), printing_type => 'BAR', guidebox => $layout->get_attr('guidebox'), + oblique_title => $layout->get_attr('oblique_title'), font => $layout->get_attr('font'), font_size => $layout->get_attr('font_size'), callnum_split => $layout->get_attr('callnum_split'), @@ -188,6 +193,7 @@ foreach my $item (@{$items}) { barcode_type => $layout->get_attr('barcode_type'), printing_type => $layout->get_attr('printing_type'), guidebox => $layout->get_attr('guidebox'), + oblique_title => $layout->get_attr('oblique_title'), font => $layout->get_attr('font'), font_size => $layout->get_attr('font_size'), callnum_split => $layout->get_attr('callnum_split'), @@ -196,6 +202,7 @@ foreach my $item (@{$items}) { 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'); + $label->{'barcode'} = $item->{'item_number'} if ($from and $to); 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); @@ -204,7 +211,7 @@ foreach my $item (@{$items}) { $pdf->End(); -exit(1); +__END__ =head1 NAME @@ -243,11 +250,18 @@ Copyright 2009 Foundations Bible College. 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 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 3 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. +You should have received a copy of the GNU General Public License +along with Koha; if not, see . =head1 DISCLAIMER OF WARRANTY