[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/barcodes label-print-pdf.pl
From: |
Mason James |
Subject: |
[Koha-cvs] koha/barcodes label-print-pdf.pl |
Date: |
Wed, 19 Apr 2006 05:06:02 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Mason James <address@hidden> 06/04/19 05:06:02
Modified files:
barcodes : label-print-pdf.pl
Log message:
Removed character padding around $barcode, used for testing.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/barcodes/label-print-pdf.pl.diff?tr1=1.5&tr2=1.6&r1=text&r2=text
Patches:
Index: koha/barcodes/label-print-pdf.pl
diff -u koha/barcodes/label-print-pdf.pl:1.5
koha/barcodes/label-print-pdf.pl:1.6
--- koha/barcodes/label-print-pdf.pl:1.5 Wed Apr 19 05:03:50 2006
+++ koha/barcodes/label-print-pdf.pl Wed Apr 19 05:06:02 2006
@@ -292,12 +292,6 @@
#$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 @@
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 @@
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 ),