[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Labels.pm [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/C4 Labels.pm [dev_week] |
Date: |
Thu, 19 Jul 2007 22:49:40 +0000 |
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 =
- [Koha-cvs] koha/C4 Labels.pm [dev_week], (continued)
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/15
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/15
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/17
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/17
- [Koha-cvs] koha/C4 Labels.pm [dev_week],
Mason James <=
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/20
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/20