From 603df25299fba8961706a073964ff212c77eee1c Mon Sep 17 00:00:00 2001 From: sushi Date: Wed, 19 Apr 2006 05:06:02 +0000 Subject: [PATCH] Removed character padding around $barcode, used for testing. --- barcodes/label-print-pdf.pl | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/barcodes/label-print-pdf.pl b/barcodes/label-print-pdf.pl index d2a178c11b..4457362015 100755 --- a/barcodes/label-print-pdf.pl +++ b/barcodes/label-print-pdf.pl @@ -292,12 +292,6 @@ sub build_circ_barcode { #$DB::single = 1; if ( $barcodetype eq 'EAN13' ) { - - #testing EAN13 barcodes hack - $value = $value . '000000000'; - $value =~ s/-//; - $value = substr( $value, 0, 12 ); - eval { PDF::Reuse::Barcode::EAN13( x => ( $x_pos_circ + 32 ), @@ -334,12 +328,6 @@ sub build_circ_barcode { elsif ( $barcodetype eq 'Matrix2of5' ) { - #testing MATRIX25 barcodes hack - # $value = $value.'000000000'; - $value =~ s/-//; - - # $value = substr( $value, 0, 12 ); - eval { PDF::Reuse::Barcode::Matrix2of5( x => ( $x_pos_circ + 27 ), @@ -359,11 +347,6 @@ sub build_circ_barcode { elsif ( $barcodetype eq 'EAN8' ) { - #testing ean8 barcodes hack - $value = $value . '000000000'; - $value =~ s/-//; - $value = substr( $value, 0, 8 ); - eval { PDF::Reuse::Barcode::EAN8( x => ( $x_pos_circ + 42 ), -- 2.39.5