|
|
|
@ -64,7 +64,7 @@ sub format {
|
|
|
|
|
$self->add_line($vars->{price}, 32);
|
|
|
|
|
|
|
|
|
|
# add_barcode
|
|
|
|
|
$self->add_barcode($vars->{barcode});
|
|
|
|
|
$self->add_barcode($vars->{barcode}, $vars->{barcode_type} // 'EAN13');
|
|
|
|
|
|
|
|
|
|
# add_count
|
|
|
|
|
$self->add_count($vars->{count});
|
|
|
|
@ -98,13 +98,25 @@ sub add_line {
|
|
|
|
|
sub add_barcode {
|
|
|
|
|
my $self = shift;
|
|
|
|
|
my $barcode = shift;
|
|
|
|
|
my $type = shift;
|
|
|
|
|
|
|
|
|
|
my $code = ""; # EAN13 of Code128C
|
|
|
|
|
|
|
|
|
|
$code .= "^BEN,,Y,N"; # EAN13
|
|
|
|
|
my $ean = $type eq 'EAN13';
|
|
|
|
|
|
|
|
|
|
# Code128C code = "^BCN,,Y,N";
|
|
|
|
|
# barcode = ">;" + barcode;
|
|
|
|
|
if ($type eq 'EAN13') {
|
|
|
|
|
$code .= "^BEN,,Y,N"; # EAN13
|
|
|
|
|
}
|
|
|
|
|
elsif ($type eq 'Code128C') { # Code128C
|
|
|
|
|
$code = "^BCN,,Y,N";
|
|
|
|
|
$barcode = ">;" . $barcode;
|
|
|
|
|
}
|
|
|
|
|
elsif ($type eq 'UPC-A') { # UPC-A
|
|
|
|
|
$code = "^BUN,,Y,N,Y";
|
|
|
|
|
}
|
|
|
|
|
else {
|
|
|
|
|
die "Unknown type $type for barcode";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$self->append_data("^BY2,2,56^FT32,158" . $code . "\r\n^FD" . $barcode . "^FS");
|
|
|
|
|
return;
|
|
|
|
|