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; |