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

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/07/10 05:51:25

Modified files:
        C4             : Labels.pm 

Log message:
        removing warns

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

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.26
retrieving revision 1.3.4.27
diff -u -b -r1.3.4.26 -r1.3.4.27
--- Labels.pm   10 Jul 2007 05:33:11 -0000      1.3.4.26
+++ Labels.pm   10 Jul 2007 05:51:25 -0000      1.3.4.27
@@ -22,12 +22,11 @@
 
 use vars qw($VERSION @ISA @EXPORT);
 
-#use Data::Dumper;
 use PDF::Reuse;
 use Text::Wrap;
 use Algorithm::CheckDigits;
-use Data::Dumper;
-use Smart::Comments;
+# use Data::Dumper;
+# use Smart::Comments;
 
 $VERSION = 0.01;
 
@@ -366,7 +365,7 @@
 sub SetActiveTemplate {
 
     my ($tmpl_id) = @_;
-    warn "TMPL_ID = $tmpl_id";
+  
     my $dbh   = C4::Context->dbh;
     my $query = " UPDATE labels_templates SET active = NULL";
     my $sth   = $dbh->prepare($query);
@@ -410,10 +409,6 @@
         $rowgap,      $active,      $fontsize,     $units
     ) = @_;
 
-    warn "FONTSIZE =$fontsize";
-
-    #    warn Dumper @_;
-
     my $dbh = C4::Context->dbh;
     my $query =
       " UPDATE labels_templates SET tmpl_code=?, tmpl_desc=?, page_width=?,
@@ -638,8 +633,6 @@
 
         # testing hack
 
-        warn $$item->{"$field"};
-
         # if the display option for this field is selected in the DB,
         # and the item record has some values for this field, display it.
         if ( $$conf_data->{"$field"} && $$item->{"$field"} ) {
@@ -694,8 +687,6 @@
 
     # x and y are from the top-left :)
     my ( $x_pos, $y_pos, $height, $width, $barcode, $barcodetype ) = @_;
-### --------------------------
-    warn " $x_pos, $y_pos, $height, $width, $barcode, $barcodetype ";
     my $num_of_bars = length($barcode);
     my $bar_width   = $width * .8;        # %80 of length of label width
     my $tot_bar_length;
@@ -703,7 +694,6 @@
     my $guard_length = 10;
     my $xsize_ratio;
 
-### $height
     if ( $barcodetype eq 'Code39' ) {
         $bar_length = '17.5';
         $tot_bar_length =