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

Mason James szrj1m at yahoo.com
Fri Jul 20 07:44:21 CEST 2007


CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/07/20 05:44:21

Modified files:
	C4             : Labels.pm 

Log message:
	no barcode txt display in code39-mod10

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

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.39
retrieving revision 1.3.4.40
diff -u -b -r1.3.4.39 -r1.3.4.40
--- Labels.pm	20 Jul 2007 04:42:57 -0000	1.3.4.39
+++ Labels.pm	20 Jul 2007 05:44:20 -0000	1.3.4.40
@@ -26,7 +26,7 @@
 use Text::Wrap;
 use Algorithm::CheckDigits;
 # use Data::Dumper;
- use Smart::Comments;
+# use Smart::Comments;
 
 $VERSION = 0.01;
 
@@ -662,7 +662,7 @@
     $Text::Wrap::separator = "\n";
 
     my $str;
-###      $item
+#      $item
 
     my $top_text_margin = ( $fontsize + 3 );
     my $line_spacer = ($fontsize);    # number of pixels between text rows.
@@ -800,7 +800,9 @@
 
         # get modulo10 ver.1 checksum
         my $c39_10 = CheckDigits('visa');
+### $barcode
         $barcode = $c39_10->complete($barcode);
+### $barcode
 
         $bar_length = '19';
         $tot_bar_length =
@@ -814,6 +816,7 @@
                 ySize         => ( .02 * $height ),
                 xSize         => $xsize_ratio,
                 hide_asterisk => 1,
+                text         => 0,
             );
         };
 





More information about the Koha-cvs mailing list