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

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/11/20 15:23:37

Modified files:
        C4             : Labels.pm 

Log message:
        removing warn compilation.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.6.2&r2=1.3.6.3

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.6.2
retrieving revision 1.3.6.3
diff -u -b -r1.3.6.2 -r1.3.6.3
--- Labels.pm   20 Nov 2006 11:31:38 -0000      1.3.6.2
+++ Labels.pm   20 Nov 2006 15:23:37 -0000      1.3.6.3
@@ -25,7 +25,9 @@
 use PDF::Reuse;
 use Text::Wrap;
 
-$VERSION = 0.01;
+$VERSION = do { my @v = '$Revision: 1.3.6.3 $' =~ /\d+/g;
+    shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
+};
 
 =head1 NAME
 
@@ -128,10 +130,10 @@
     my $dbh   = C4::Context->dbh;
     my $query = " UPDATE labels_templates SET active = NULL";
     my $sth   = $dbh->prepare($query);
-    $sth->execute();
+    $sth->execute;
 
-    my $query = "UPDATE labels_templates SET active = 1 WHERE tmpl_id = ?";
-    my $sth   = $dbh->prepare($query);
+    $query = "UPDATE labels_templates SET active = 1 WHERE tmpl_id = ?";
+    $sth   = $dbh->prepare($query);
     $sth->execute($tmpl_id);
     $sth->finish;
 }
@@ -156,7 +158,6 @@
       = @_;
 
     #warn "FONTSIZE =$fontsize";
-    #warn Dumper @_;
 
     my $dbh   = C4::Context->dbh;
     my $query =
@@ -253,13 +254,13 @@
     my $dbh    = C4::Context->dbh;
     my $query2 = "DELETE FROM labels_conf";
     my $sth2   = $dbh->prepare($query2);
-    $sth2->execute();
-    my $query2 = "INSERT INTO labels_conf
+    $sth2->execute;
+    $query2 = "INSERT INTO labels_conf
             ( barcodetype, title, isbn, itemtype, barcode,
               dewey, class, subclass, itemcallnumber, author, printingtype,
                 guidebox, startlabel )
                values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )";
-    my $sth2 = $dbh->prepare($query2);
+    $sth2 = $dbh->prepare($query2);
     $sth2->execute(
         $barcodetype,    $title,  $isbn,         $itemtype,
         $bcn,            $dcn,    $classif,      $subclass,
@@ -500,7 +501,6 @@
 
     }
     elsif ( $barcodetype eq 'Code39' ) {
-
         eval {
             PDF::Reuse::Barcode::Code39(
                 x     => ( $x_pos_circ + 9 ),
@@ -508,8 +508,9 @@
                 #           prolong => 2.96,
                 xSize => .85,
                 ySize => 1.3,
-                               value => "*$barcode*",
-                               hide_asterisk => $xsize_ratio,
+                value => $value,
+                               #value => "*$barcode*",
+                               #hide_asterisk => $xsize_ratio,
             );
         };
         if ($@) {
@@ -761,7 +762,7 @@
       = @_;
 
     my $y_pos_initial = ( ( 792 - 36 ) - 90 );
-    my $y_pos         = $y_pos_initial;
+    $y_pos            = $y_pos_initial;
     my $i             = 1;
 
     for ( $i = 1 ; $i <= 8 ; $i++ ) {