koha-cvs
[Top][All Lists]
Advanced

[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: Fri, 20 Jul 2007 05:44:21 +0000

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,
             );
         };
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]