[Koha-cvs] koha/barcodes label-print-pdf.pl [dev_week]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/01/18 04:43:56

Modified files:
        barcodes       : label-print-pdf.pl 

Log message:
        tidy, and removed obsolete  comments.

CVSWeb URLs:
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.8&r2=1.1.2.2.2.9

Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.2.2.8
retrieving revision 1.1.2.2.2.9
diff -u -b -r1.1.2.2.2.8 -r1.1.2.2.2.9
--- label-print-pdf.pl  21 Dec 2006 01:30:58 -0000      1.1.2.2.2.8
+++ label-print-pdf.pl  18 Jan 2007 04:43:56 -0000      1.1.2.2.2.9
@@ -1,19 +1,5 @@
 #!/usr/bin/perl
 
-#----------------------------------------------------------------------
-# this script is really divided into 2 differenvt section,
-
-# the first section creates, and defines the new PDF file the barcodes
-# using PDF::Reuse::Barcode, then saves the file to disk.
-
-# the second section then opens the pdf file off disk, and places the spline 
label
-# text in the left-most column of the page. then save the file again.
-
-# the reason for this goofyness, it that i couldnt find a single perl package 
that handled both barcodes and decent text placement.
-
-#use lib '/usr/local/hlt/intranet/modules';
-#use C4::Context("/etc/koha-hlt.conf");
-
 use strict;
 use CGI;
 use C4::Labels;
@@ -26,13 +12,10 @@
 use PDF::Reuse::Barcode;
 use POSIX;
 use C4::Labels;
-use Acme::Comment;
-
-use Data::Dumper;
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
 my $cgi         = new CGI; 
-print $cgi->header(-type=> 'application/pdf', -attachment=>'barcode.pdf');
+print $cgi->header( -type => 'application/pdf', -attachment => 'barcode.pdf' );
 
 my $spine_text  = "";
 
@@ -52,6 +35,7 @@
 #warn Dumper $template;
 
 my $unitvalue = GetUnitsValue($units);
+
 #warn $unitvalue;
 #warn $units;
 
@@ -94,7 +78,6 @@
 
 my $margin           = $top_margin;
 my $left_text_margin = 3;
-
 my $str;
 
 #warn "STARTROW = $startrow\n";