|
Lines 93-100
sub draw_barcode {
Link Here
|
| 93 |
my $barcode_width_scale = $self->{'barcode_width_scale'}; |
93 |
my $barcode_width_scale = $self->{'barcode_width_scale'}; |
| 94 |
|
94 |
|
| 95 |
_draw_barcode( $self, |
95 |
_draw_barcode( $self, |
| 96 |
llx => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'}, |
96 |
llx => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'} * $self->{'unitvalue'}, |
| 97 |
lly => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'}, |
97 |
lly => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'} * $self->{'unitvalue'}, |
| 98 |
width => $self->{'width'} * $barcode_width_scale, |
98 |
width => $self->{'width'} * $barcode_width_scale, |
| 99 |
y_scale_factor => $self->{'height'} * $barcode_height_scale, |
99 |
y_scale_factor => $self->{'height'} * $barcode_height_scale, |
| 100 |
barcode_type => $self->{'layout'}->{'barcode'}->[0]->{'type'}, |
100 |
barcode_type => $self->{'layout'}->{'barcode'}->[0]->{'type'}, |
|
Lines 373-380
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no
Link Here
|
| 373 |
} |
373 |
} |
| 374 |
eval { |
374 |
eval { |
| 375 |
PDF::Reuse::Barcode::Code39( |
375 |
PDF::Reuse::Barcode::Code39( |
| 376 |
x => $params{'llx'} * $self->{'unitvalue'}, |
376 |
x => $params{'llx'}, |
| 377 |
y => $params{'lly'} * $self->{'unitvalue'}, |
377 |
y => $params{'lly'}, |
| 378 |
value => "*$params{barcode_data}*", |
378 |
value => "*$params{barcode_data}*", |
| 379 |
xSize => $x_scale_factor, |
379 |
xSize => $x_scale_factor, |
| 380 |
ySize => $params{'y_scale_factor'}, |
380 |
ySize => $params{'y_scale_factor'}, |
|
Lines 393-400
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no
Link Here
|
| 393 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
393 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
| 394 |
eval { |
394 |
eval { |
| 395 |
PDF::Reuse::Barcode::COOP2of5( |
395 |
PDF::Reuse::Barcode::COOP2of5( |
| 396 |
x => $params{'llx'}* $self->{'unitvalue'}, |
396 |
x => $params{'llx'}, |
| 397 |
y => $params{'lly'}* $self->{'unitvalue'}, |
397 |
y => $params{'lly'}, |
| 398 |
value => $params{barcode_data}, |
398 |
value => $params{barcode_data}, |
| 399 |
xSize => $x_scale_factor, |
399 |
xSize => $x_scale_factor, |
| 400 |
ySize => $params{'y_scale_factor'}, |
400 |
ySize => $params{'y_scale_factor'}, |
|
Lines 411-418
sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no
Link Here
|
| 411 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
411 |
$x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9; |
| 412 |
eval { |
412 |
eval { |
| 413 |
PDF::Reuse::Barcode::Industrial2of5( |
413 |
PDF::Reuse::Barcode::Industrial2of5( |
| 414 |
x => $params{'llx'}* $self->{'unitvalue'} , |
414 |
x => $params{'llx'}, |
| 415 |
y => $params{'lly'}* $self->{'unitvalue'}, |
415 |
y => $params{'lly'}, |
| 416 |
value => $params{barcode_data}, |
416 |
value => $params{barcode_data}, |
| 417 |
xSize => $x_scale_factor, |
417 |
xSize => $x_scale_factor, |
| 418 |
ySize => $params{'y_scale_factor'}, |
418 |
ySize => $params{'y_scale_factor'}, |
| 419 |
- |
|
|