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

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	06/12/21 01:30:58

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

Log message:
	removed dupe cgi objects.

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.7&r2=1.1.2.2.2.8

Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.2.2.7
retrieving revision 1.1.2.2.2.8
diff -u -b -r1.1.2.2.2.7 -r1.1.2.2.2.8
--- label-print-pdf.pl	21 Dec 2006 00:34:04 -0000	1.1.2.2.2.7
+++ label-print-pdf.pl	21 Dec 2006 01:30:58 -0000	1.1.2.2.2.8
@@ -32,7 +32,6 @@
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
 my $cgi         = new CGI; 
-
 print $cgi->header(-type=> 'application/pdf', -attachment=>'barcode.pdf');
 
 my $spine_text  = "";
@@ -85,9 +84,6 @@
 
 prInitVars();
 $| = 1;
-
-my $input = new CGI;
-print $input->header(-type=>'application/pdf', -attachment=>'barcode.pdf');
 prFile();
 
 prMbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
@@ -174,8 +170,6 @@
 }    # end for item loop
 prEnd();
 
-print $cgi->redirect("/intranet-tmpl/barcodes/new.pdf");
-
 sub CalcNextLabelPos {
     if ( $colcount lt $label_cols ) {