[Koha-cvs] koha/C4 Labels.pm

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Mason James <sushi>     06/07/10 23:33:45

Modified files:
        C4             : Labels.pm 

Log message:
        removing warns, and defining draw_boundaries() sub.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&r1=1.1&r2=1.2

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- Labels.pm   10 Jul 2006 23:30:17 -0000      1.1
+++ Labels.pm   10 Jul 2006 23:33:45 -0000      1.2
@@ -21,7 +21,7 @@
 require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT);
-use Data::Dumper;
+#use Data::Dumper;
 use PDF::Reuse;
 
 
@@ -40,8 +40,8 @@
 @ISA = qw(Exporter);
 @EXPORT = qw(
   &get_label_options, &get_label_items
-
-  &build_circ_barcode, &draw_boxes &draw_box
+       &build_circ_barcode, &draw_boundaries,
+       &draw_box
 );
 
 =item get_label_options;
@@ -116,7 +116,7 @@
 sub build_circ_barcode {
     my ( $x_pos_circ, $y_pos, $value, $barcodetype, $item ) = @_;
 
-warn Dumper \$item;
+#warn Dumper \$item;
 
     #warn "value = $value\n";
 
@@ -148,10 +148,10 @@
         };
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "EAN13BARCODE FAILED:$@";
+            #warn "EAN13BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
     elsif ( $barcodetype eq 'Code39' ) {
@@ -170,7 +170,7 @@
         };
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "CODE39BARCODE $value FAILED:$@";
+            #warn "CODE39BARCODE $value FAILED:$@";
         }
 
         #warn $barcodetype;
@@ -202,7 +202,7 @@
         };
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
         #warn $barcodetype;
@@ -218,7 +218,7 @@
 
         #warn $value;
 
-        warn "EAN8 ELSEIF";
+        #warn "EAN8 ELSEIF";
         eval {
             PDF::Reuse::Barcode::EAN8(
                 x       => ( $x_pos_circ + 42 ),
@@ -233,10 +233,10 @@
 
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
 
@@ -255,10 +255,10 @@
 
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
     elsif ( $barcodetype eq 'NW7' ) {
@@ -276,10 +276,10 @@
 
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
     elsif ( $barcodetype eq 'ITF' ) {
@@ -297,10 +297,10 @@
 
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
     elsif ( $barcodetype eq 'Industrial2of5' ) {
@@ -317,10 +317,10 @@
         };
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
     elsif ( $barcodetype eq 'IATA2of5' ) {
@@ -337,10 +337,10 @@
         };
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
 
@@ -358,10 +358,10 @@
         };
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }
     elsif ( $barcodetype eq 'UPC-A' ) {
@@ -379,10 +379,10 @@
         };
         if ($@) {
             $item->{'barcodeerror'} = 1;
-            warn "BARCODE FAILED:$@";
+            #warn "BARCODE FAILED:$@";
         }
 
-        warn $barcodetype;
+        #warn $barcodetype;
 
     }