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

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     06/12/05 23:26:58

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

Log message:
        comment tidyup

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-opus-pdf.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.2.4.2&r2=1.2.4.3

Patches:
Index: label-print-opus-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-opus-pdf.pl,v
retrieving revision 1.2.4.2
retrieving revision 1.2.4.3
diff -u -b -r1.2.4.2 -r1.2.4.3
--- label-print-opus-pdf.pl     4 Dec 2006 05:18:44 -0000       1.2.4.2
+++ label-print-opus-pdf.pl     5 Dec 2006 23:26:57 -0000       1.2.4.3
@@ -1,16 +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/opus-dev/intranet/modules';
 # use C4::Context("/etc/koha-opus-dev.conf");
 
@@ -84,6 +73,7 @@
 #prFile("$htdocs_path/barcodes/new.pdf");
 #prLogDir("$htdocs_path/barcodes");
 
+# fix, no longer writes to temp dir
 prInitVars();    # To initiate ALL global variables and tables
 $| = 1;
 print STDOUT "Content-Type: application/pdf \n\n";