From 76ae6b199b33e9dab610c7f0f53b12e499931172 Mon Sep 17 00:00:00 2001 From: David Cook Date: Fri, 8 Sep 2023 02:19:20 +0000 Subject: [PATCH] Bug 34732: For Code39, append or prepend asterisk if missing from barcode This patch appends or prepends an asterisk on Code39 barcodes if they are missing from the input. This is so that they form correct Code39 barcode images. Test plan: 0. Apply the patch 1. koha-plack --reload kohadev 2. Go to http://localhost:8081/cgi-bin/koha/labels/barcode-print.pl 3. Type 39999000001310 into "Barcode" and click "Show barcode" 4. Note that the barcode text on the right includes asterisks around it 5. Type *39999000001310 into "Barcode" and click "Show barcode" 6. Note the same as above 7. Type 39999000001310* into "Barcode" and click "Show barcode" 8. Note the same as above 9. Type *39999000001310* into "Barcode" and click "Show barcode" 10. Note the same as above --- svc/barcode | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/svc/barcode b/svc/barcode index bd9c8203bc..e51a29f7f6 100755 --- a/svc/barcode +++ b/svc/barcode @@ -106,6 +106,11 @@ my $height = $input->param('height') || 50; my $qrcode_modulesize = $input->param('modulesize') || "5"; # 1+ my $image; +if ($type eq 'Code39'){ + $barcode = '*' . $barcode unless $barcode =~ /^\*/; + $barcode = $barcode . '*' unless $barcode =~ /\*$/; +} + eval { if( $type eq "QRcode" ){ $image = GD::Barcode->new('QRcode', $barcode, { Ecc => "M", ModuleSize => $qrcode_modulesize } )->plot->png(); -- 2.30.2