[Koha-cvs] koha/C4 Labels.pm [dev_week]

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/07/19 22:49:40

Modified files:
	C4             : Labels.pm 

Log message:
	added code39-mod10 the DrawBarcode()

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.3.4.33&r2=1.3.4.34

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.33
retrieving revision 1.3.4.34
diff -u -b -r1.3.4.33 -r1.3.4.34
--- Labels.pm	18 Jul 2007 00:04:13 -0000	1.3.4.33
+++ Labels.pm	19 Jul 2007 22:49:40 -0000	1.3.4.34
@@ -781,6 +781,33 @@
         }
     }
 
+    elsif ( $barcodetype eq 'CODE39MOD10' ) {
+
+        # get modulo43 checksum
+        my $c39_10 = CheckDigits('ups');
+        $barcode = $c39_10->complete($barcode);
+
+        $bar_length = '19';
+        $tot_bar_length =
+          ( $bar_length * $num_of_bars ) + ( $guard_length * 2 );
+        $xsize_ratio = ( $bar_width / $tot_bar_length );
+        eval {
+            PDF::Reuse::Barcode::Code39(
+                x => ( $x_pos + ( $width / 10 ) ),
+                y => ( $y_pos + ( $height / 10 ) ),
+                value         => "*$barcode*",
+                ySize         => ( .02 * $height ),
+                xSize         => $xsize_ratio,
+                hide_asterisk => 1,
+            );
+        };
+
+        if ($@) {
+            warn "$barcodetype, $barcode FAILED:$@";
+        }
+    }
+
+
     elsif ( $barcodetype eq 'COOP2OF5' ) {
         $bar_length = '9.43333333333333';
         $tot_bar_length =