[Koha-cvs] koha/barcodes label-print-pdf.pl [dev_week]
Mason James
szrj1m at yahoo.com
Thu Jan 18 05:43:56 CET 2007
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";
More information about the Koha-cvs
mailing list