|
Lines 97-104
sub draw_barcode {
Link Here
|
| 97 |
my $barcode_width_scale = $self->{'barcode_width_scale'}; |
97 |
my $barcode_width_scale = $self->{'barcode_width_scale'}; |
| 98 |
|
98 |
|
| 99 |
_draw_barcode( $self, |
99 |
_draw_barcode( $self, |
| 100 |
llx => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'}, |
100 |
llx => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'} * $self->{'unitvalue'}, |
| 101 |
lly => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'}, |
101 |
lly => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'} * $self->{'unitvalue'}, |
| 102 |
width => $self->{'width'} * $barcode_width_scale, |
102 |
width => $self->{'width'} * $barcode_width_scale, |
| 103 |
y_scale_factor => $self->{'height'} * $barcode_height_scale, |
103 |
y_scale_factor => $self->{'height'} * $barcode_height_scale, |
| 104 |
barcode_type => $self->{'layout'}->{'barcode'}->[0]->{'type'}, |
104 |
barcode_type => $self->{'layout'}->{'barcode'}->[0]->{'type'}, |
|
Lines 378-385
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no
Link Here
|
| 378 |
} |
378 |
} |
| 379 |
eval { |
379 |
eval { |
| 380 |
PDF::Reuse::Barcode::Code39( |
380 |
PDF::Reuse::Barcode::Code39( |
| 381 |
x => $params{'llx'} * $self->{'unitvalue'}, |
381 |
x => $params{'llx'}, |
| 382 |
y => $params{'lly'} * $self->{'unitvalue'}, |
382 |
y => $params{'lly'}, |
| 383 |
value => "*$params{barcode_data}*", |
383 |
value => "*$params{barcode_data}*", |
| 384 |
xSize => $x_scale_factor, |
384 |
xSize => $x_scale_factor, |
| 385 |
ySize => $params{'y_scale_factor'}, |
385 |
ySize => $params{'y_scale_factor'}, |
|
Lines 398-405
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no
Link Here
|
| 398 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
398 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
| 399 |
eval { |
399 |
eval { |
| 400 |
PDF::Reuse::Barcode::COOP2of5( |
400 |
PDF::Reuse::Barcode::COOP2of5( |
| 401 |
x => $params{'llx'}* $self->{'unitvalue'}, |
401 |
x => $params{'llx'}, |
| 402 |
y => $params{'lly'}* $self->{'unitvalue'}, |
402 |
y => $params{'lly'}, |
| 403 |
value => $params{barcode_data}, |
403 |
value => $params{barcode_data}, |
| 404 |
xSize => $x_scale_factor, |
404 |
xSize => $x_scale_factor, |
| 405 |
ySize => $params{'y_scale_factor'}, |
405 |
ySize => $params{'y_scale_factor'}, |
|
Lines 416-423
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no
Link Here
|
| 416 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
416 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
| 417 |
eval { |
417 |
eval { |
| 418 |
PDF::Reuse::Barcode::Industrial2of5( |
418 |
PDF::Reuse::Barcode::Industrial2of5( |
| 419 |
x => $params{'llx'}* $self->{'unitvalue'} , |
419 |
x => $params{'llx'}, |
| 420 |
y => $params{'lly'}* $self->{'unitvalue'}, |
420 |
y => $params{'lly'}, |
| 421 |
value => $params{barcode_data}, |
421 |
value => $params{barcode_data}, |
| 422 |
xSize => $x_scale_factor, |
422 |
xSize => $x_scale_factor, |
| 423 |
ySize => $params{'y_scale_factor'}, |
423 |
ySize => $params{'y_scale_factor'}, |
| 424 |
- |
|
|