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

[Mason James]

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);
-
-}
-