Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

[20/40] Work on label printing code.

Browse source
This commit is contained in:
Chris Nighswonger 2009-08-05 15:53:40 -04:00
parent a339f5f94a
commit 13e894585f
6 changed files with 254 additions and 311 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
C4/Labels/Batch.pm
View file

@ -216,7 +216,7 @@ sub retrieve {
while (my $record = $sth->fetchrow_hashref) { while (my $record = $sth->fetchrow_hashref) {
$self->{'branch_code'} = $record->{'branch_code'}; $self->{'branch_code'} = $record->{'branch_code'};
push (@{$self->{'items'}}, {item_number => $record->{'item_number'}, label_id => $record->{'label_id'}}); push (@{$self->{'items'}}, {item_number => $record->{'item_number'}, label_id => $record->{'label_id'}});
$record_flag = 1; $record_flag = 1; # true if one or more rows were retrieved
} }
return -2 if $record_flag == 0; # a hackish sort of way of indicating no such record exists return -2 if $record_flag == 0; # a hackish sort of way of indicating no such record exists
if ($sth->err) { if ($sth->err) {

83
C4/Labels/Label.pm
View file

@ -66,7 +66,7 @@ sub _get_label_item {
my $data = $sth->fetchrow_hashref; my $data = $sth->fetchrow_hashref;
# Replaced item's itemtype with the more user-friendly description... # Replaced item's itemtype with the more user-friendly description...
my $sth1 = $dbh->prepare("SELECT itemtype,description FROM itemtypes WHERE itemtype = ?"); my $sth1 = $dbh->prepare("SELECT itemtype,description FROM itemtypes WHERE itemtype = ?");
$sth1->execute($data->{itemtype}); $sth1->execute($data->{'itemtype'});
if ($sth1->err) { if ($sth1->err) {
syslog("LOG_ERR", "C4::Labels::Label::_get_label_item : Database returned the following error: %s", $sth1->errstr); syslog("LOG_ERR", "C4::Labels::Label::_get_label_item : Database returned the following error: %s", $sth1->errstr);
} }
@ -178,9 +178,9 @@ sub _get_barcode_data {
my $match_kohatable = join( my $match_kohatable = join(
'|', '|',
( (
@{ $kohatables->{biblio} }, @{ $kohatables->{'biblio'} },
@{ $kohatables->{biblioitems} }, @{ $kohatables->{'biblioitems'} },
@{ $kohatables->{items} } @{ $kohatables->{'items'} }
) )
); );
FIELD_LIST: FIELD_LIST:
@ -258,24 +258,25 @@ sub _desc_koha_tables {
sub new { sub new {
my ($invocant, %params) = @_; my ($invocant, %params) = @_;
my $type = ref($invocant) || $invocant; my $type = ref($invocant) || $invocant;
my $layout = C4::Labels::Layout->retrieve(layout_id => $params{'layout_id'});
my $self = { my $self = {
batch_id => $params{'batch_id'}, batch_id => $params{'batch_id'},
layout_id => $params{'layout_id'}, item_number => $params{'item_number'},
item_number => $params{'item_number'}, height => $params{'height'},
height => $params{'height'}, width => $params{'width'},
width => $params{'width'}, top_text_margin => $params{'top_text_margin'},
top_text_margin => $params{'top_text_margin'}, left_text_margin => $params{'left_text_margin'},
left_text_margin => $params{'left_text_margin'}, barcode_type => $params{'barcode_type'},
font => $params{'font'}, printing_type => $params{'printing_type'},
font_size => $params{'font_size'}, guidebox => $params{'guidebox'},
justify => $params{'justify'}, font => $params{'font'},
text_wrap_cols => $params{'text_wrap_cols'}, font_size => $params{'font_size'},
layout => $layout, callnum_split => $params{'callnum_split'},
guidebox => '', justify => $params{'justify'},
barcode => 0, format_string => $params{'format_string'},
text_wrap_cols => $params{'text_wrap_cols'},
barcode => 0,
}; };
if ($layout->get_attr('guidebox')) { if ($self->{'guidebox'}) {
$self->{'guidebox'} = _guide_box($self->{'llx'}, $self->{'lly'}, $self->{'width'}, $self->{'height'}); $self->{'guidebox'} = _guide_box($self->{'llx'}, $self->{'lly'}, $self->{'width'}, $self->{'height'});
} }
bless ($self, $type); bless ($self, $type);
@ -284,7 +285,31 @@ sub new {
sub get_label_type { sub get_label_type {
my $self = shift; my $self = shift;
return $self->{'layout'}->get_attr('printing_type'); return $self->{'printing_type'};
}
=head2 $label->get_attr("attr")
Invoking the I<get_attr> method will return the value of the requested attribute or 1 on errors.
example:
my $value = $label->get_attr("attr");
=cut
sub get_attr {
my $self = shift;
# if (_check_params(@_) eq 1) {
# return -1;
# }
my ($attr) = @_;
if (exists($self->{$attr})) {
return $self->{$attr};
}
else {
return -1;
}
return;
} }
=head2 $label->draw_label_text() =head2 $label->draw_label_text()
@ -308,9 +333,9 @@ sub draw_label_text {
my $text_llx = 0; my $text_llx = 0;
my $text_lly = $params{'lly'}; my $text_lly = $params{'lly'};
my $font = $self->{'font'}; my $font = $self->{'font'};
my $item = _get_label_item($self->{item_number}); my $item = _get_label_item($self->{'item_number'});
my $label_fields = _get_text_fields($self->{layout}->get_attr('format_string')); my $label_fields = _get_text_fields($self->{'format_string'});
my $record = GetMarcBiblio($item->{biblionumber}); my $record = GetMarcBiblio($item->{'biblionumber'});
# FIXME - returns all items, so you can't get data from an embedded holdings field. # FIXME - returns all items, so you can't get data from an embedded holdings field.
# TODO - add a GetMarcBiblio1item(bibnum,itemnum) or a GetMarcItem(itemnum). # TODO - add a GetMarcBiblio1item(bibnum,itemnum) or a GetMarcItem(itemnum).
my $cn_source = ($item->{'cn_source'} ? $item->{'cn_source'} : C4::Context->preference('DefaultClassificationSource')); my $cn_source = ($item->{'cn_source'} ? $item->{'cn_source'} : C4::Context->preference('DefaultClassificationSource'));
@ -328,7 +353,7 @@ sub draw_label_text {
$field_data =~ s/\r//g; $field_data =~ s/\r//g;
my @label_lines; my @label_lines;
my @callnumber_list = ('itemcallnumber', '050a', '050b', '082a', '952o'); # Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) my @callnumber_list = ('itemcallnumber', '050a', '050b', '082a', '952o'); # Fields which hold call number data FIXME: ( 060? 090? 092? 099? )
if ((grep {$field->{'code'} =~ m/$_/} @callnumber_list) and ($self->{layout}->get_attr('printing_type') eq 'BIB') and ($self->{layout}->get_attr('callnum_split'))) { # If the field contains the call number, we do some sp if ((grep {$field->{'code'} =~ m/$_/} @callnumber_list) and ($self->{'printing_type'} eq 'BIB') and ($self->{'callnum_split'})) { # If the field contains the call number, we do some sp
if ($cn_source eq 'lcc') { if ($cn_source eq 'lcc') {
@label_lines = _split_lccn($field_data); @label_lines = _split_lccn($field_data);
@label_lines = _split_fcn($field_data) if !@label_lines; # If it was not a true lccn, try it as a fiction call number @label_lines = _split_fcn($field_data) if !@label_lines; # If it was not a true lccn, try it as a fiction call number
@ -366,11 +391,13 @@ sub draw_label_text {
my $string_width = C4::Labels::PDF->StrWidth($line, $font, $self->{'font_size'}); my $string_width = C4::Labels::PDF->StrWidth($line, $font, $self->{'font_size'});
if ($self->{'justify'} eq 'R') { if ($self->{'justify'} eq 'R') {
$text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width); $text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width);
} elsif($self->{'justify'} eq 'C') { }
elsif($self->{'justify'} eq 'C') {
# some code to try and center each line on the label based on font size and string point width... # some code to try and center each line on the label based on font size and string point width...
my $whitespace = ($self->{'width'} - ($string_width + (2 * $self->{'left_text_margin'}))); my $whitespace = ($self->{'width'} - ($string_width + (2 * $self->{'left_text_margin'})));
$text_llx = (($whitespace / 2) + $params{'llx'} + $self->{'left_text_margin'}); $text_llx = (($whitespace / 2) + $params{'llx'} + $self->{'left_text_margin'});
} else { }
else {
$text_llx = ($params{'llx'} + $self->{'left_text_margin'}); $text_llx = ($params{'llx'} + $self->{'left_text_margin'});
} }
push @label_text, { push @label_text, {
@ -408,7 +435,7 @@ sub barcode {
my $self = shift; my $self = shift;
my %params = @_; my %params = @_;
$params{'barcode'} = _get_label_item($self->{'item_number'}, 1) if !$params{'barcode'}; $params{'barcode'} = _get_label_item($self->{'item_number'}, 1) if !$params{'barcode'};
$params{'barcode_type'} = $self->{'layout'}->get_attr('barcode_type') if !$params{'barcode_type'}; $params{'barcode_type'} = $self->{'barcode_type'} if !$params{'barcode_type'};
my $x_scale_factor = 1; my $x_scale_factor = 1;
my $num_of_bars = length($params{'barcode'}); my $num_of_bars = length($params{'barcode'});
my $tot_bar_length = 0; my $tot_bar_length = 0;

27
C4/Labels/Layout.pm
View file

@ -285,6 +285,33 @@ sub set_attr {
}; };
return 0; return 0;
} }
=head2 $layout->get_text_wrap_cols()
Invoking the I<get_text_wrap_cols> method will return the number of columns that can be printed on the
label before wrapping to the next line.
examples:
my $text_wrap_cols = $layout->get_text_wrap_cols();
=cut
sub get_text_wrap_cols {
my $self = shift;
my %params = @_;
my $string = '';
my $strwidth = 0;
my $col_count = 0;
my $textlimit = $params{'label_width'} - ( 3 * $params{'left_text_margin'});
while ($strwidth < $textlimit) {
$string .= '0';
$col_count++;
$strwidth = C4::Labels::PDF->StrWidth( $string, $self->{'font'}, $self->{'font_size'} );
}
return $col_count;
}
1; 1;
__END__ __END__

2
C4/Labels/Profile.pm
View file

@ -63,7 +63,7 @@ sub _check_params {
sub _conv_points { sub _conv_points {
my $self = shift; my $self = shift;
my @unit_value = grep {$_->{'type'} eq $self->{units}} get_unit_values(); my @unit_value = grep {$_->{'type'} eq $self->{units}} @{get_unit_values()};
$self->{offset_horz} = $self->{offset_horz} * $unit_value[0]->{'value'}; $self->{offset_horz} = $self->{offset_horz} * $unit_value[0]->{'value'};
$self->{offset_vert} = $self->{offset_vert} * $unit_value[0]->{'value'}; $self->{offset_vert} = $self->{offset_vert} * $unit_value[0]->{'value'};
$self->{creep_horz} = $self->{creep_horz} * $unit_value[0]->{'value'}; $self->{creep_horz} = $self->{creep_horz} * $unit_value[0]->{'value'};

79
C4/Labels/Template.pm
View file

@ -74,17 +74,17 @@ sub _check_params {
sub _conv_points { sub _conv_points {
my $self = shift; my $self = shift;
my @unit_value = grep {$_->{'type'} eq $self->{units}} get_unit_values(); my @unit_value = grep {$_->{'type'} eq $self->{'units'}} @{get_unit_values()};
$self->{page_width} = $self->{page_width} * $unit_value[0]->{'value'}; $self->{'page_width'} = $self->{'page_width'} * $unit_value[0]->{'value'};
$self->{page_height} = $self->{page_height} * $unit_value[0]->{'value'}; $self->{'page_height'} = $self->{'page_height'} * $unit_value[0]->{'value'};
$self->{label_width} = $self->{label_width} * $unit_value[0]->{'value'}; $self->{'label_width'} = $self->{'label_width'} * $unit_value[0]->{'value'};
$self->{label_height} = $self->{label_height} * $unit_value[0]->{'value'}; $self->{'label_height'} = $self->{'label_height'} * $unit_value[0]->{'value'};
$self->{top_text_margin} = $self->{top_text_margin} * $unit_value[0]->{'value'}; $self->{'top_text_margin'} = $self->{'top_text_margin'} * $unit_value[0]->{'value'};
$self->{left_text_margin} = $self->{left_text_margin} * $unit_value[0]->{'value'}; $self->{'left_text_margin'} = $self->{'left_text_margin'} * $unit_value[0]->{'value'};
$self->{top_margin} = $self->{top_margin} * $unit_value[0]->{'value'}; $self->{'top_margin'} = $self->{'top_margin'} * $unit_value[0]->{'value'};
$self->{left_margin} = $self->{left_margin} * $unit_value[0]->{'value'}; $self->{'left_margin'} = $self->{'left_margin'} * $unit_value[0]->{'value'};
$self->{col_gap} = $self->{col_gap} * $unit_value[0]->{'value'}; $self->{'col_gap'} = $self->{'col_gap'} * $unit_value[0]->{'value'};
$self->{row_gap} = $self->{row_gap} * $unit_value[0]->{'value'}; $self->{'row_gap'} = $self->{'row_gap'} * $unit_value[0]->{'value'};
return $self; return $self;
} }
@ -92,10 +92,10 @@ sub _apply_profile {
my $self = shift; my $self = shift;
my $profile_id = shift; my $profile_id = shift;
my $profile = C4::Labels::Profile->retrieve(profile_id => $profile_id, convert => 1); my $profile = C4::Labels::Profile->retrieve(profile_id => $profile_id, convert => 1);
$self->{top_margin} = $self->{top_margin} + $profile->get_attr('offset_vert'); # controls vertical offset $self->{'top_margin'} = $self->{'top_margin'} + $profile->get_attr('offset_vert'); # controls vertical offset
$self->{left_margin} = $self->{left_margin} + $profile->get_attr('offset_horz'); # controls horizontal offset $self->{'left_margin'} = $self->{'left_margin'} + $profile->get_attr('offset_horz'); # controls horizontal offset
$self->{label_height} = $self->{label_height} + $profile->get_attr('creep_vert'); # controls vertical creep $self->{'label_height'} = $self->{'label_height'} + $profile->get_attr('creep_vert'); # controls vertical creep
$self->{label_width} = $self->{label_width} + $profile->get_attr('creep_horz'); # controls horizontal creep $self->{'label_width'} = $self->{'label_width'} + $profile->get_attr('creep_horz'); # controls horizontal creep
return $self; return $self;
} }
@ -180,7 +180,7 @@ sub retrieve {
my $self = $sth->fetchrow_hashref; my $self = $sth->fetchrow_hashref;
$self = _conv_points($self) if (($opts{convert} && $opts{convert} == 1) || $opts{profile_id}); $self = _conv_points($self) if (($opts{convert} && $opts{convert} == 1) || $opts{profile_id});
$self = _apply_profile($self, $opts{profile_id}) if $opts{profile_id}; $self = _apply_profile($self, $opts{profile_id}) if $opts{profile_id};
$self->{tmpl_stat} = 1; $self->{'tmpl_stat'} = 1;
bless ($self, $type); bless ($self, $type);
return $self; return $self;
} }
@ -218,7 +218,7 @@ sub delete {
my $query = "DELETE FROM labels_templates WHERE template_id = ?"; my $query = "DELETE FROM labels_templates WHERE template_id = ?";
my $sth = C4::Context->dbh->prepare($query); my $sth = C4::Context->dbh->prepare($query);
$sth->execute($query_param); $sth->execute($query_param);
$self->{tmpl_stat} = 0; $self->{'tmpl_stat'} = 0;
return 0; return 0;
} }
@ -246,14 +246,13 @@ sub save {
$query = substr($query, 0, (length($query)-2)); $query = substr($query, 0, (length($query)-2));
push (@params, $self->{'template_id'}); push (@params, $self->{'template_id'});
$query .= " WHERE template_id=?;"; $query .= " WHERE template_id=?;";
warn "DEBUG: Updating: $query\n" if $debug;
my $sth = C4::Context->dbh->prepare($query); my $sth = C4::Context->dbh->prepare($query);
$sth->execute(@params); $sth->execute(@params);
if ($sth->err) { if ($sth->err) {
syslog("LOG_ERR", "Database returned the following error: %s", $sth->errstr); syslog("LOG_ERR", "Database returned the following error: %s", $sth->errstr);
return -1; return -1;
} }
$self->{tmpl_stat} = 1; $self->{'tmpl_stat'} = 1;
return $self->{'template_id'}; return $self->{'template_id'};
} }
else { # otherwise create a new record else { # otherwise create a new record
@ -271,7 +270,6 @@ sub save {
} }
$query = substr($query, 0, (length($query)-1)); $query = substr($query, 0, (length($query)-1));
$query .= ");"; $query .= ");";
warn "DEBUG: Saving: $query\n" if $debug;
my $sth = C4::Context->dbh->prepare($query); my $sth = C4::Context->dbh->prepare($query);
$sth->execute(@params); $sth->execute(@params);
if ($sth->err) { if ($sth->err) {
@ -281,8 +279,8 @@ sub save {
my $sth1 = C4::Context->dbh->prepare("SELECT MAX(template_id) FROM labels_templates;"); my $sth1 = C4::Context->dbh->prepare("SELECT MAX(template_id) FROM labels_templates;");
$sth1->execute(); $sth1->execute();
my $template_id = $sth1->fetchrow_array; my $template_id = $sth1->fetchrow_array;
$self->{template_id} = $template_id; $self->{'template_id'} = $template_id;
$self->{tmpl_stat} = 1; $self->{'tmpl_stat'} = 1;
return $template_id; return $template_id;
} }
} }
@ -330,31 +328,6 @@ sub set_attr {
}; };
} }
=head2 $template->get_text_wrap_cols()
Invoking the I<get_text_wrap_cols> method will return the number of columns that can be printed on the
label before wrapping to the next line.
examples:
my $text_wrap_cols = $template->get_text_wrap_cols();
=cut
sub get_text_wrap_cols {
my $self = shift;
my $string = '';
my $strwidth = 0;
my $col_count = 0;
my $textlimit = $self->{label_width} - ( 3 * $self->{left_text_margin});
while ($strwidth < $textlimit) {
$string .= '0';
$col_count++;
$strwidth = C4::Labels::PDF->StrWidth( $string, $self->{font}, $self->{font_size} );
}
return $col_count;
}
=head2 $template->get_label_position($start_label) =head2 $template->get_label_position($start_label)
Invoking the I<get_label_position> method will return the row, column coordinates on the starting page Invoking the I<get_label_position> method will return the row, column coordinates on the starting page
@ -371,15 +344,15 @@ sub get_label_position {
if ($start_label eq 1) { if ($start_label eq 1) {
$row_count = 1; $row_count = 1;
$col_count = 1; $col_count = 1;
$llx = $self->{left_margin}; $llx = $self->{'left_margin'};
$lly = ($self->{page_height} - $self->{top_margin} - $self->{label_height}); $lly = ($self->{'page_height'} - $self->{'top_margin'} - $self->{'label_height'});
return ($row_count, $col_count, $llx, $lly); return ($row_count, $col_count, $llx, $lly);
} }
else { else {
$row_count = ceil($start_label / $self->{cols}); $row_count = ceil($start_label / $self->{'cols'});
$col_count = ($start_label - (($row_count - 1) * $self->{cols})); $col_count = ($start_label - (($row_count - 1) * $self->{'cols'}));
$llx = $self->{left_margin} + ($self->{label_width} * ($col_count - 1)) + ($self->{col_gap} * ($col_count - 1)); $llx = $self->{'left_margin'} + ($self->{'label_width'} * ($col_count - 1)) + ($self->{'col_gap'} * ($col_count - 1));
$lly = $self->{page_height} - $self->{top_margin} - ($self->{label_height} * $row_count) - ($self->{row_gap} * ($row_count - 1)); $lly = $self->{'page_height'} - $self->{'top_margin'} - ($self->{'label_height'} * $row_count) - ($self->{'row_gap'} * ($row_count - 1));
return ($row_count, $col_count, $llx, $lly); return ($row_count, $col_count, $llx, $lly);
} }
} }

372
labels/label-print-pdf.pl
View file

@ -1,260 +1,176 @@
#!/usr/bin/perl #!/usr/bin/perl
# Copyright 2006 Katipo Communications.
# Some parts 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 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., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
use strict; use strict;
use warnings; use warnings;
use CGI; use CGI;
use C4::Labels; # GetActiveLabelTemplate get_label_options GetAssociatedProfile use HTML::Template::Pro;
# GetPatronCardItems GetLabelItems GetUnitsValue... use POSIX qw(ceil);
use Data::Dumper;
use Sys::Syslog qw(syslog);
use C4::Labels;
use C4::Auth; use C4::Auth;
use C4::Output; use C4::Output;
use C4::Context; use C4::Context;
use C4::Members; use C4::Members;
use C4::Branch; use C4::Branch;
use HTML::Template::Pro; use C4::Debug;
use PDF::Reuse; use C4::Labels::Batch 1.000000;
use PDF::Reuse::Barcode; use C4::Labels::Template 1.000000;
use POSIX; # ceil use C4::Labels::Layout 1.000000;
use Data::Dumper; use C4::Labels::PDF 1.000000;
use C4::Labels::Label 1.000000;
my $DEBUG = 0; my $cgi = new CGI;
my $DEBUG_LPT = 0;
my $cgi = new CGI; my $htdocs_path = C4::Context->config('intrahtdocs');
my $batch_id = $cgi->param('batch_id') || $ARGV[0];
my $template_id = $cgi->param('template_id') || $ARGV[1];
my $layout_id = $cgi->param('layout_id') || $ARGV[2];
my $start_label = $cgi->param('start_label') || $ARGV[3];
#### Tons of Initialization #### print $cgi->header( -type => 'application/pdf', -attachment => "koha_batch_$batch_id.pdf" );
# get the printing settings
my $template = GetActiveLabelTemplate();
my $conf_data = get_label_options() or die "get_label_options failed";
my $profile = GetAssociatedProfile($template->{'tmpl_id'});
my $batch_id = $cgi->param('batch_id'); my $pdf = C4::Labels::PDF->new(InitVars => 0);
my @resultsloop; my $batch = C4::Labels::Batch->retrieve(batch_id => $batch_id);
my $template = C4::Labels::Template->retrieve(template_id => $template_id, profile_id => 1);
my $layout = C4::Labels::Layout->retrieve(layout_id => $layout_id);
my $batch_type = $conf_data->{'type'}; sub _calc_next_label_pos {
my $barcodetype = $conf_data->{'barcodetype'}; my ($row_count, $col_count, $llx, $lly) = @_;
my $printingtype = $conf_data->{'printingtype'} or die "No printingtype in conf_data"; if ($col_count lt $template->get_attr('cols')) {
my $guidebox = $conf_data->{'guidebox'}; $llx = ($llx + $template->get_attr('label_width') + $template->get_attr('col_gap'));
my $start_label = $conf_data->{'startlabel'}; $col_count++;
if ($cgi->param('startlabel')) { }
$start_label = $cgi->param('startlabel'); # A bit of a hack to allow setting the starting label from the address bar... -fbcit else {
} $llx = $template->get_attr('left_margin');
warn "Starting on label #$start_label" if $DEBUG; if ($row_count eq $template->get_attr('rows')) {
my $units = $template->{'units'}; $pdf->Page();
$lly = ($template->get_attr('page_height') - $template->get_attr('top_margin') - $template->get_attr('label_height'));
if ($printingtype eq 'PATCRD') { $row_count = 1;
@resultsloop = GetPatronCardItems($batch_id); }
} else { else {
@resultsloop = GetLabelItems($batch_id); $lly = ($lly - $template->get_attr('row_gap') - $template->get_attr('label_height'));
$row_count++;
}
$col_count = 1;
}
return ($row_count, $col_count, $llx, $lly);
} }
#warn "UNITS $units"; sub _print_text {
#warn "fontsize = $fontsize"; my $label_text = shift;
#warn Dumper $template; 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);
}
}
my $unitvalue = GetUnitsValue($units); $| = 1;
my $prof_unitvalue = GetUnitsValue($profile->{'unit'});
warn "Template units: $units which converts to $unitvalue PostScript Points" if $DEBUG;
warn "Profile units: $profile->{'unit'} which converts to $prof_unitvalue PostScript Points" if $DEBUG;
my $tmpl_code = $template->{'tmpl_code'};
my $tmpl_desc = $template->{'tmpl_desc'};
my $page_height = ( $template->{'page_height'} * $unitvalue );
my $page_width = ( $template->{'page_width'} * $unitvalue );
my $label_height = ( $template->{'label_height'} * $unitvalue );
my $label_width = ( $template->{'label_width'} * $unitvalue );
my $spine_width = ( $template->{'label_width'} * $unitvalue );
my $circ_width = ( $template->{'label_width'} * $unitvalue );
my $top_margin = ( $template->{'topmargin'} * $unitvalue );
my $left_margin = ( $template->{'leftmargin'} * $unitvalue );
my $colspace = ( $template->{'colgap'} * $unitvalue );
my $rowspace = ( $template->{'rowgap'} * $unitvalue );
warn "Converted dimensions are:" if $DEBUG;
warn "pghth=$page_height, pgwth=$page_width, lblhth=$label_height, lblwth=$label_width, spinwth=$spine_width, circwth=$circ_width, tpmar=$top_margin, lmar=$left_margin, colsp=$colspace, rowsp=$rowspace" if $DEBUG;
my $label_cols = $template->{'cols'};
my $label_rows = $template->{'rows'};
my $margin = $top_margin;
my $left_text_margin = 3; # FIXME: This value should not be hardcoded
my $str;
# Some peritent notes from PDF::Reuse regarding prFont()...
# If a font wasn't found, Helvetica will be set.
# These names are always recognized: Times-Roman, Times-Bold, Times-Italic, Times-BoldItalic, Courier, Courier-Bold,
# Courier-Oblique, Courier-BoldOblique, Helvetica, Helvetica-Bold, Helvetica-Oblique, Helvetica-BoldOblique
# They can be abbreviated: TR, TB, TI, TBI, C, CB, CO, CBO, H, HB, HO, HBO
my $fontsize = $template->{'fontsize'};
my $fontname = $template->{'font'};
my $text_wrap_cols = GetTextWrapCols( $fontname, $fontsize, $label_width, $left_text_margin );
#warn $label_cols, $label_rows;
# set the paper size # set the paper size
my $lowerLeftX = 0; my $lowerLeftX = 0;
my $lowerLeftY = 0; my $lowerLeftY = 0;
my $upperRightX = $page_width; my $upperRightX = $template->get_attr('page_width');
my $upperRightY = $page_height; my $upperRightY = $template->get_attr('page_height');
my $codetype; # = 'Code39';
warn "Active profile: " . ($profile->{prof_id} || "None") if $DEBUG; $pdf->Compress(1);
$pdf->Mbox($lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY);
#### PRINT PRELIMINARY DATA #### my ($row_count, $col_count, $llx, $lly) = $template->get_label_position($start_label);
print $cgi->header( -type => 'application/pdf', -attachment => 'barcode.pdf' ); LABEL_ITEMS:
# Don't print header until very last possible moment foreach my $item (@{$batch->get_attr('items')}) {
# That way if error or die occurs, fatals_to_browser will still work. my ($barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor) = 0,0,0,0;
# After we print this header, there is no way back to HTML. All we can do is deliver PDF. my $label = C4::Labels::Label->new(
prInitVars(); batch_id => $batch_id,
$| = 1; item_number => $item->{'item_number'},
prFile(); # No args means to STDOUT width => $template->get_attr('label_width'),
prCompress(1); # turn on zip compression which dramatically reduces file size height => $template->get_attr('label_height'),
prMbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY ); top_text_margin => $template->get_attr('top_text_margin'),
left_text_margin => $template->get_attr('left_text_margin'),
# drawbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY ); #do page border barcode_type => $layout->get_attr('barcode_type'),
# draw margin box for alignment page printing_type => $layout->get_attr('printing_type'),
drawbox($left_margin, $top_margin, $page_width-(2*$left_margin), $page_height-(2*$top_margin)) if $DEBUG_LPT; guidebox => $layout->get_attr('guidebox'),
font => $layout->get_attr('font'),
font_size => $layout->get_attr('font_size'),
#### TWEAKS and DEBUGGING ### callnum_split => $layout->get_attr('callnum_split'),
# Adjustments for image position and creep -fbcit justify => $layout->get_attr('text_justify'),
# NOTE: *All* of these factor in to image position and creep. Keep this in mind when makeing adjustments. format_string => $layout->get_attr('format_string'),
# Suggested proceedure: Adjust margins until both top and left margins are correct. Then adjust the label text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')),
# height and width to correct label creep across and down page. Units are PostScript Points (72 per inch). );
my $label_type = $label->get_label_type;
sub debug_drop { if ($label_type eq 'BIB') {
my $title = @_ || ""; my $line_spacer = ($label->get_attr('font_size') * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.).
warn "-------------------------$title-----------------------------\n" my $text_lly = ($lly + ($template->get_attr('label_height') - $template->get_attr('top_text_margin')));
. " top margin = $top_margin points\n" my $label_text = $label->draw_label_text(
. " left margin = $left_margin points\n" llx => $llx,
. "label height = $label_height points\n" lly => $text_lly,
. "label width = $label_width points\n"; line_spacer => $line_spacer,
} );
_print_text($label_text);
debug_drop('INITIAL VALUES') if ($DEBUG); ($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly);
next LABEL_ITEMS;
if ( $profile->{'prof_id'} ) {
$top_margin += ($profile->{'offset_vert'} * $prof_unitvalue); # controls vertical offset
$label_height += ($profile->{'creep_vert'} * $prof_unitvalue); # controls vertical creep
$left_margin += ($profile->{'offset_horz'} * $prof_unitvalue); # controls horizontal offset
$label_width += ($profile->{'creep_horz'} * $prof_unitvalue); # controls horizontal creep
}
if ($DEBUG) {
if ($profile->{'prof_id'}) {
debug_drop('ADJUSTED VALUES');
} else {
warn "No profile associated so no adjustment applied.";
} }
} elsif ($label_type eq 'BARBIB') {
$barcode_llx = $llx + $template->get_attr('left_text_margin'); # this places the bottom left of the barcode the left text margin distance to right of the the left edge of the label ($llx)
#warn " $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY"; $barcode_lly = ($lly + $template->get_attr('label_height')) - $template->get_attr('top_text_margin'); # this places the bottom left of the barcode the top text margin distance below the top of the label ($lly)
#warn "$label_rows, $label_cols\n"; $barcode_width = 0.8 * $template->get_attr('label_width'); # this scales the barcode width to 80% of the label width
#warn "$label_height, $label_width\n"; $barcode_y_scale_factor = 0.01 * $template->get_attr('label_height'); # this scales the barcode height to 10% of the label height
#warn "$page_height, $page_width\n"; my $line_spacer = ($label->get_attr('font_size') * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.).
my $text_lly = ($lly + ($template->get_attr('label_height') - $template->get_attr('top_text_margin')));
my ($rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp); my $label_text = $label->draw_label_text(
llx => $llx,
if ( $start_label and $start_label == 1 ) { lly => $text_lly,
$rowcount = 1; line_spacer => $line_spacer,
$colcount = 1; );
$x_pos = $left_margin; _print_text($label_text);
$y_pos = ( $page_height - $top_margin - $label_height );
} else {
$rowcount = ceil( $start_label / $label_cols );
$colcount = ( $start_label - ( ( $rowcount - 1 ) * $label_cols ) );
$x_pos = $left_margin + ( $label_width * ( $colcount - 1 ) ) +
( $colspace * ( $colcount - 1 ) );
$y_pos = $page_height - $top_margin - ( $label_height * $rowcount ) -
( $rowspace * ( $rowcount - 1 ) );
$DEBUG and warn "Start label: $start_label. Beginning in row $rowcount, column $colcount\n"
. "(X,Y) positions = ($x_pos,$y_pos)\n"
. "Rowspace = $rowspace, Label height = $label_height";
}
#
#### main foreach loop ####
#
foreach my $item (@resultsloop) {
warn "Label parameters: xpos=$x_pos, ypos=$y_pos, lblwid=$label_width, lblhig=$label_height" if $DEBUG;
drawbox($x_pos, $y_pos, $label_width, $label_height) if $guidebox; # regardless of printingtype
if ( $printingtype eq 'BAR' ) {
DrawBarcode( $x_pos, $y_pos, $label_height, $label_width, $item->{'barcode'}, $barcodetype );
}
elsif ( $printingtype eq 'BARBIB' ) {
# reposoitioning barcode up the top of label
my $barcode_height = ($label_height / 1.5 ); ## scaling voodoo
my $text_height = $label_height / 2;
my $barcode_y = $y_pos + ( $label_height / 2.5 ); ## scaling voodoo
DrawBarcode( $x_pos, $barcode_y, $barcode_height, $label_width, $item->{'barcode'}, $barcodetype );
DrawSpineText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, \$item, \$conf_data, $printingtype );
} # correct
elsif ( $printingtype eq 'BIBBAR' ) {
my $barcode_height = $label_height / 2;
DrawBarcode( $x_pos, $y_pos, $barcode_height, $label_width, $item->{'barcode'}, $barcodetype );
DrawSpineText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, \$item, \$conf_data, $printingtype );
}
elsif ( $printingtype eq 'ALT' ) {
DrawBarcode( $x_pos, $y_pos, $label_height, $label_width, $item->{'barcode'}, $barcodetype );
CalcNextLabelPos();
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
DrawSpineText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, \$item, \$conf_data, $printingtype );
}
elsif ( $printingtype eq 'BIB' ) {
DrawSpineText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, \$item, \$conf_data, $printingtype );
}
elsif ( $printingtype eq 'PATCRD' ) {
my $patron_data = $item;
#FIXME: This needs to be paramatized and passed in from the user...
#Each element of this hash is a separate line on the patron card. Keys are the text to print and the associated data is the point size.
my $text = {
$patron_data->{'description'} => $fontsize,
$patron_data->{'branchname'} => ($fontsize + 3),
};
$DEBUG and warn "Generating patron card for cardnumber $patron_data->{'cardnumber'}";
my $barcode_height = $label_height / 2.75; #FIXME: Scaling barcode height; this needs to be a user parameter.
DrawBarcode( $x_pos, $y_pos, $barcode_height, $label_width, $patron_data->{'cardnumber'}, $barcodetype );
DrawPatronCardText( $x_pos, $y_pos, $label_height, $label_width, $fontname, $fontsize,
$left_text_margin, $text_wrap_cols, $text, $printingtype );
} }
else { else {
die "CANNOT PRINT: Unknown printingtype '$printingtype'"; $barcode_llx = $llx + $template->get_attr('left_text_margin'); # this places the bottom left of the barcode the left text margin distance to right of the the left edge of the label ($llx)
} $barcode_lly = $lly + $template->get_attr('top_text_margin'); # this places the bottom left of the barcode the top text margin distance above the bottom of the label ($lly)
$barcode_width = 0.8 * $template->get_attr('label_width'); # this scales the barcode width to 80% of the label width
CalcNextLabelPos(); # regardless of printingtype $barcode_y_scale_factor = 0.01 * $template->get_attr('label_height'); # this scales the barcode height to 10% of the label height
} # end for item loop if ($label_type eq 'BIBBAR' || $label_type eq 'ALT') {
prEnd(); my $line_spacer = ($label->get_attr('font_size') * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.).
my $text_lly = ($lly + ($template->get_attr('label_height') - $template->get_attr('top_text_margin')));
sub CalcNextLabelPos { my $label_text = $label->draw_label_text(
if ($colcount < $label_cols) { llx => $llx,
# warn "new col"; lly => $text_lly,
$x_pos = ( $x_pos + $label_width + $colspace ); line_spacer => $line_spacer,
$colcount++; );
} else { _print_text($label_text);
$x_pos = $left_margin; }
if ($rowcount == $label_rows) { if ($label_type eq 'ALT') {
# warn "new page"; ($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly);
prPage();
$y_pos = ( $page_height - $top_margin - $label_height );
$rowcount = 1;
} else {
# warn "new row";
$y_pos = ( $y_pos - $rowspace - $label_height );
$rowcount++;
} }
$colcount = 1;
} }
$label->barcode(
llx => $barcode_llx,
lly => $barcode_lly,
width => $barcode_width,
y_scale_factor => $barcode_y_scale_factor,
);
($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly);
} }
$pdf->End();