[Koha-cvs] koha/barcodes label-print-opus-pdf.pl [dev_week]
Mason James
szrj1m at yahoo.com
Wed Dec 6 00:26:58 CET 2006
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";
More information about the Koha-cvs
mailing list