[Koha-cvs] koha/barcodes label-create-template.pl label-ed... [dev_week]

[Mason James]

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

Modified files:
        barcodes       : label-create-template.pl label-edit-template.pl 
                         label-item-search.pl label-manager.pl 
                         label-print-pdf.pl label-save-template.pl 
                         label-templates.pl 

Log message:
        removing warns/Dumpers

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-create-template.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.3&r2=1.1.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-edit-template.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.3&r2=1.1.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-item-search.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1.2.7&r2=1.1.2.1.2.8
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-manager.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1.2.9&r2=1.1.2.1.2.10
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-pdf.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2.2.13&r2=1.1.2.2.2.14
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-save-template.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.2&r2=1.1.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-templates.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.4&r2=1.1.2.5

Patches:
Index: label-create-template.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-create-template.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- label-create-template.pl    10 Jul 2007 05:30:23 -0000      1.1.2.3
+++ label-create-template.pl    10 Jul 2007 05:47:05 -0000      1.1.2.4
@@ -10,7 +10,7 @@
 use HTML::Template;
 use POSIX;
 
-use Data::Dumper;
+#use Data::Dumper;
 
 my $dbh   = C4::Context->dbh;
 my $query = new CGI;

Index: label-edit-template.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-edit-template.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- label-edit-template.pl      10 Jul 2007 03:10:54 -0000      1.1.2.3
+++ label-edit-template.pl      10 Jul 2007 05:47:05 -0000      1.1.2.4
@@ -10,7 +10,7 @@
 use HTML::Template;
 use POSIX;
 
-use Data::Dumper;
+# use Data::Dumper;
 
 my $dbh       = C4::Context->dbh;
 my $query     = new CGI;
@@ -38,7 +38,6 @@
 );
 
 my $tmpl = GetSingleLabelTemplate($tmpl_id);
-warn Dumper $tmpl;
 
 my @units = (
     { unit => 'INCH',  desc => 'Inches' },
@@ -52,7 +51,6 @@
         $unit->{'selected'} = 1;
     }
 }
-warn Dumper @units;
 
 $template->param(
 

Index: label-item-search.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-item-search.pl,v
retrieving revision 1.1.2.1.2.7
retrieving revision 1.1.2.1.2.8
diff -u -b -r1.1.2.1.2.7 -r1.1.2.1.2.8
--- label-item-search.pl        9 Jul 2007 18:08:42 -0000       1.1.2.1.2.7
+++ label-item-search.pl        10 Jul 2007 05:47:05 -0000      1.1.2.1.2.8
@@ -34,8 +34,8 @@
 use C4::SearchMarc;
 use C4::Koha;    # XXX subfield_is_koha_internal_p
 
-use Smart::Comments;
-use Data::Dumper;
+#use Smart::Comments;
+#use Data::Dumper;
 
 # Creates a scrolling list with the associated default value.
 # Using more than one scrolling list in a CGI assigns the same default value 
to all the

Index: label-manager.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-manager.pl,v
retrieving revision 1.1.2.1.2.9
retrieving revision 1.1.2.1.2.10
diff -u -b -r1.1.2.1.2.9 -r1.1.2.1.2.10
--- label-manager.pl    10 Jul 2007 05:32:34 -0000      1.1.2.1.2.9
+++ label-manager.pl    10 Jul 2007 05:47:05 -0000      1.1.2.1.2.10
@@ -8,8 +8,9 @@
 use C4::Interface::CGI::Output;
 use HTML::Template;
 use POSIX;
-use Data::Dumper;
-use Smart::Comments;
+
+#use Data::Dumper;
+#use Smart::Comments;
 
 my $dbh            = C4::Context->dbh;
 my $query          = new CGI;
@@ -52,9 +53,6 @@
 $batch_id = 1 if !$batch_id;
 
 my ($itemnumber) = @itemnumber if (scalar(@itemnumber) == 1);
-warn Dumper $query;
-warn "ID =$tmpl_id";
-### $printingtype;
 ### $batch_id;
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -114,7 +112,6 @@
     $sth2->finish;
 }
 elsif ( $op eq 'delete' ) {
-    warn "MASON, deleting label..";
     my $query2 = "DELETE FROM labels where itemnumber = ?";
     my $sth2   = $dbh->prepare($query2);
     $sth2->execute($itemnumber);

Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.2.2.13
retrieving revision 1.1.2.2.2.14
diff -u -b -r1.1.2.2.2.13 -r1.1.2.2.2.14
--- label-print-pdf.pl  8 Jul 2007 22:14:22 -0000       1.1.2.2.2.13
+++ label-print-pdf.pl  10 Jul 2007 05:47:05 -0000      1.1.2.2.2.14
@@ -11,8 +11,8 @@
 use PDF::Reuse;
 use PDF::Reuse::Barcode;
 use POSIX;
-use C4::Labels;
-use Smart::Comments;
+#use C4::Labels;
+#use Smart::Comments;
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
 my $cgi         = new CGI;
@@ -75,7 +75,7 @@
 
 my $text_wrap_cols = GetTextWrapCols( $fontsize, $label_width );
 
-warn $label_cols, $label_rows;
+#warn $label_cols, $label_rows;
 
 # set the paper size
 my $lowerLeftX  = 0;
@@ -151,7 +151,7 @@
 #
 
 foreach $item (@resultsloop) {
-    warn "$x_pos, $y_pos, $label_width, $label_height";
+#    warn "$x_pos, $y_pos, $label_width, $label_height";
     my $barcode = $item->{'barcode'};
 
     if ( $printingtype eq 'BAR' ) {

Index: label-save-template.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-save-template.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- label-save-template.pl      6 Oct 2006 01:58:47 -0000       1.1.2.2
+++ label-save-template.pl      10 Jul 2007 05:47:05 -0000      1.1.2.3
@@ -10,7 +10,7 @@
 use HTML::Template;
 use POSIX;
 
-use Data::Dumper;
+#use Data::Dumper;
 
 my $dbh   = C4::Context->dbh;
 my $query = new CGI;
@@ -32,7 +32,6 @@
 my $units        = $query->param('units');
 my $active       = $query->param('active');
 
-warn "ACTIVE = $active $fontsize";
 $active = 1 if ( $active == 'on' );
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Index: label-templates.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-templates.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- label-templates.pl  10 Jul 2007 05:31:48 -0000      1.1.2.4
+++ label-templates.pl  10 Jul 2007 05:47:06 -0000      1.1.2.5
@@ -10,7 +10,7 @@
 use HTML::Template;
 use POSIX;
 
-use Data::Dumper;
+#use Data::Dumper;
 
 my $dbh       = C4::Context->dbh;
 my $query     = new CGI;