|
Lines 502-507
sub barcode {
Link Here
|
| 502 |
my %params = @_; |
502 |
my %params = @_; |
| 503 |
$params{'barcode_data'} = _get_label_item($self->{'item_number'}, 1) if !$params{'barcode_data'}; |
503 |
$params{'barcode_data'} = _get_label_item($self->{'item_number'}, 1) if !$params{'barcode_data'}; |
| 504 |
$params{'barcode_type'} = $self->{'barcode_type'} if !$params{'barcode_type'}; |
504 |
$params{'barcode_type'} = $self->{'barcode_type'} if !$params{'barcode_type'}; |
|
|
505 |
|
| 506 |
my $enableBarcodePadding = C4::Context->preference("BarcodePaddingEnable"); |
| 507 |
my $paddingCharacter = C4::Context->preference("BarcodePaddingCharacter") || 0; |
| 508 |
my $paddingLength = C4::Context->preference("BarcodePaddingLength") || 0; |
| 509 |
|
| 510 |
if (length($paddingCharacter) > 1) { |
| 511 |
$paddingCharacter = substr $paddingCharacter, 0, 1; |
| 512 |
} |
| 513 |
if ($enableBarcodePadding and length($params{'barcode_data'}) < $paddingLength) { |
| 514 |
$params{'barcode_data'} = ($paddingCharacter x ($paddingLength - length($params{'barcode_data'}))) . $params{'barcode_data'}; |
| 515 |
} |
| 516 |
|
| 505 |
my $x_scale_factor = 1; |
517 |
my $x_scale_factor = 1; |
| 506 |
my $num_of_bars = length($params{'barcode_data'}); |
518 |
my $num_of_bars = length($params{'barcode_data'}); |
| 507 |
my $tot_bar_length = 0; |
519 |
my $tot_bar_length = 0; |