|
Lines 579-584
sub barcode {
Link Here
|
| 579 |
my $adjusted_llx = $params{'llx'}; |
579 |
my $adjusted_llx = $params{'llx'}; |
| 580 |
my $barcode_width = $tot_bar_length * $x_scale_factor; |
580 |
my $barcode_width = $tot_bar_length * $x_scale_factor; |
| 581 |
|
581 |
|
|
|
582 |
if ( $barcode_justify eq 'C' ) { |
| 583 |
$adjusted_llx = $params{'llx'} + ( ( $self->{'width'} - $barcode_width ) / 2 ); |
| 584 |
} elsif ( $barcode_justify eq 'R' ) { |
| 585 |
$adjusted_llx = $params{'llx'} + ( $self->{'width'} - $barcode_width ); |
| 586 |
} |
| 587 |
|
| 582 |
eval { |
588 |
eval { |
| 583 |
PDF::Reuse::Barcode::COOP2of5( |
589 |
PDF::Reuse::Barcode::COOP2of5( |
| 584 |
x => $adjusted_llx, |
590 |
x => $adjusted_llx, |
|
Lines 600-605
sub barcode {
Link Here
|
| 600 |
my $adjusted_llx = $params{'llx'}; |
606 |
my $adjusted_llx = $params{'llx'}; |
| 601 |
my $barcode_width = $tot_bar_length * $x_scale_factor; |
607 |
my $barcode_width = $tot_bar_length * $x_scale_factor; |
| 602 |
|
608 |
|
|
|
609 |
if ( $barcode_justify eq 'C' ) { |
| 610 |
$adjusted_llx = $params{'llx'} + ( ( $self->{'width'} - $barcode_width ) / 2 ); |
| 611 |
} elsif ( $barcode_justify eq 'R' ) { |
| 612 |
$adjusted_llx = $params{'llx'} + ( $self->{'width'} - $barcode_width ); |
| 613 |
} |
| 614 |
|
| 603 |
eval { |
615 |
eval { |
| 604 |
PDF::Reuse::Barcode::Industrial2of5( |
616 |
PDF::Reuse::Barcode::Industrial2of5( |
| 605 |
x => $adjusted_llx, |
617 |
x => $adjusted_llx, |
| 606 |
- |
|
|