[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2] |
Date: |
Tue, 01 Aug 2006 00:06:10 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Mason James <sushi> 06/08/01 00:06:10
Modified files:
barcodes : label-print-pdf.pl
Log message:
general tidyup.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-pdf.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.11&r2=1.1.2.12
Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.11
retrieving revision 1.1.2.12
diff -u -b -r1.1.2.11 -r1.1.2.12
--- label-print-pdf.pl 31 Jul 2006 23:41:01 -0000 1.1.2.11
+++ label-print-pdf.pl 1 Aug 2006 00:06:10 -0000 1.1.2.12
@@ -11,21 +11,19 @@
# 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-import/intranet/modules';
-use C4::Context("/etc/koha-opus-import.conf");
+#use lib '/usr/local/opus-import/intranet/modules';
+#use C4::Context("/etc/koha-opus-import.conf");
use strict;
use CGI;
use C4::Labels;
use C4::Auth;
-use C4::Bull;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
use HTML::Template;
use PDF::Reuse;
use PDF::Reuse::Barcode;
-use PDF::Report;
use POSIX;
use Text::Wrap;
@@ -98,7 +96,8 @@
my $page_break_count = $startrow;
my $codetype = 'Code39';
-DrawBorder ( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
+#do page border
+drawbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
my $item;
@@ -114,8 +113,7 @@
}
if ( $printingtype eq 'barcode' || $printingtype eq 'both' ) {
- warn
-"COUNT=$i2, PBREAKCNT=$page_break_count, X,Y POS x=$x_pos_circ1, y=$y_pos";
+ #warn "COUNT=$i2, PBREAKCNT=$page_break_count, X,Y POS x=$x_pos_circ1,
y=$y_pos";
build_circ_barcode( $x_pos_circ1, $y_pos, $item->{'barcode'},
$conf_data->{'barcodetype'} );
@@ -126,7 +124,7 @@
#-----------------draw spine text
if ( $printingtype eq 'spine' || $printingtype eq 'both' ) {
- warn "PRINTTYPE = $printingtype";
+ #warn "PRINTTYPE = $printingtype";
# add your printable fields manually in here
my @fields =
@@ -139,7 +137,7 @@
# and the item record has some values for this field, display it.
if ( $conf_data->{"$field"} && $item->{"$field"} ) {
-warn "CONF_TYPE = $field";
+ #warn "CONF_TYPE = $field";
# get the string
$str = $item->{"$field"};
@@ -160,7 +158,7 @@
# then loop for each string line
foreach my $str (@strings) {
- warn "HPOS , VPOS $hPos, $vPos ";
+ #warn "HPOS , VPOS $hPos, $vPos ";
prText( $hPos, $vPos, $str );
$vPos = $vPos - $line_spacer;
}
@@ -185,16 +183,3 @@
print $cgi->redirect("/intranet-tmpl/barcodes/new.pdf");
-sub DrawBorder {
- my ( $llx, $lly, $urx, $ury ) = @_;
- $str = "q\n"; # save the graphic state
- $str .= "4 w\n"; # border color red
- $str .= "0.0 0.0 0.0 RG\n"; # border color red
- $str .= "1 1 1 rg\n"; # fill color blue
- $str .= "$llx $lly $urx $ury re\n"; # a rectangle
- $str .= "B\n"; # fill (and a little more)
- $str .= "Q\n"; # save the graphic state
- prAdd($str);
-
-}
-
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/25
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/25
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/26
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/26
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/27
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/31
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/31
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2],
Mason James <=
- [Koha-cvs] koha/barcodes label-print-pdf.pl [rel_2_2], Mason James, 2006/07/31