[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>     07/07/17 21:42:19

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

Log message:
        little tidy, removing hardcoded code39 barcode type.

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

Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.2.2.14
retrieving revision 1.1.2.2.2.15
diff -u -b -r1.1.2.2.2.14 -r1.1.2.2.2.15
--- label-print-pdf.pl  10 Jul 2007 05:47:05 -0000      1.1.2.2.2.14
+++ label-print-pdf.pl  17 Jul 2007 21:42:19 -0000      1.1.2.2.2.15
@@ -11,8 +11,9 @@
 use PDF::Reuse;
 use PDF::Reuse::Barcode;
 use POSIX;
-#use C4::Labels;
-#use Smart::Comments;
+
+
+# use Smart::Comments;
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
 my $cgi         = new CGI;
@@ -27,9 +28,6 @@
 my $batch_id =   $cgi->param('batch_id');
 my @resultsloop = get_label_items($batch_id);
 
-$DB::single = 1;
-
-
 my $barcodetype  = $conf_data->{'barcodetype'};
 my $printingtype = $conf_data->{'printingtype'};
 my $guidebox     = $conf_data->{'guidebox'};
@@ -37,22 +35,9 @@
 my $fontsize     = $template->{'fontsize'};
 my $units        = $template->{'units'};
 
+### conf_data
 ### $printingtype;
-
-=c
-################### defaults for testing
-my $barcodetype  = 'CODE39';
-my $printingtype = 'BARBIB';
-my $guidebox     = 1;
-my $start_label  = 1;
-my $units        = 'POINTS'
-=cut
-
-#my $fontsize = 3;
-
-#warn "UNITS $units";
-#warn "fontsize = $fontsize";
-#warn Dumper $template;
+### $barcodetype
 
 my $unitvalue = GetUnitsValue($units);
 
@@ -100,7 +85,7 @@
 #warn "STARTROW = $startrow\n";
 
 #my $page_break_count = $startrow;
-my $codetype = 'Code39';
+#my $codetype = 'Code39';
 
 #do page border
 #drawbox( $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY );
@@ -142,9 +127,8 @@
 
 }
 
-warn "ROW COL $rowcount, $colcount";
+# warn "ROW COL $rowcount, $colcount";
 
-my $barcodetype = 'Code39';
 
 #
 #    main foreach loop
@@ -207,16 +191,6 @@
         CalcNextLabelPos();
     }
 
-
-
-
-
-
-
-
-
-
-
 }    # end for item loop
 prEnd();