From e5ed50101488b4de1c08107e13fc37e6bf9dd266 Mon Sep 17 00:00:00 2001 From: sushi Date: Mon, 10 Jul 2006 23:33:45 +0000 Subject: [PATCH] removing warns, and defining draw_boundaries() sub. --- C4/Labels.pm | 52 ++++++++++++++++++++++++++-------------------------- 1 file changed, 26 insertions(+), 26 deletions(-) diff --git a/C4/Labels.pm b/C4/Labels.pm index d0b19d4434..8cdc95657e 100755 --- a/C4/Labels.pm +++ b/C4/Labels.pm @@ -21,7 +21,7 @@ use strict; require Exporter; use vars qw($VERSION @ISA @EXPORT); -use Data::Dumper; +#use Data::Dumper; use PDF::Reuse; @@ -39,9 +39,9 @@ C4::Labels - Functions for printing spine labels and barcodes in Koha @ISA = qw(Exporter); @EXPORT = qw( - &get_label_options, &get_label_items - - &build_circ_barcode, &draw_boxes &draw_box + &get_label_options, &get_label_items + &build_circ_barcode, &draw_boundaries, + &draw_box ); =item get_label_options; @@ -116,7 +116,7 @@ $item is the result of a previous call to get_label_items(); 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 @@ warn Dumper \$item; }; if ($@) { $item->{'barcodeerror'} = 1; - warn "EAN13BARCODE FAILED:$@"; + #warn "EAN13BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } elsif ( $barcodetype eq 'Code39' ) { @@ -170,7 +170,7 @@ warn Dumper \$item; }; if ($@) { $item->{'barcodeerror'} = 1; - warn "CODE39BARCODE $value FAILED:$@"; + #warn "CODE39BARCODE $value FAILED:$@"; } #warn $barcodetype; @@ -202,7 +202,7 @@ warn Dumper \$item; }; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } #warn $barcodetype; @@ -218,7 +218,7 @@ warn Dumper \$item; #warn $value; - warn "EAN8 ELSEIF"; + #warn "EAN8 ELSEIF"; eval { PDF::Reuse::Barcode::EAN8( x => ( $x_pos_circ + 42 ), @@ -233,10 +233,10 @@ warn Dumper \$item; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } @@ -255,10 +255,10 @@ warn Dumper \$item; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } elsif ( $barcodetype eq 'NW7' ) { @@ -276,10 +276,10 @@ warn Dumper \$item; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } elsif ( $barcodetype eq 'ITF' ) { @@ -297,10 +297,10 @@ warn Dumper \$item; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } elsif ( $barcodetype eq 'Industrial2of5' ) { @@ -317,10 +317,10 @@ warn Dumper \$item; }; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } elsif ( $barcodetype eq 'IATA2of5' ) { @@ -337,10 +337,10 @@ warn Dumper \$item; }; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } @@ -358,10 +358,10 @@ warn Dumper \$item; }; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } elsif ( $barcodetype eq 'UPC-A' ) { @@ -379,10 +379,10 @@ warn Dumper \$item; }; if ($@) { $item->{'barcodeerror'} = 1; - warn "BARCODE FAILED:$@"; + #warn "BARCODE FAILED:$@"; } - warn $barcodetype; + #warn $barcodetype; } -- 2.39.5