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

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/10/17 02:04:18

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

Log message:
	still working on this..

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-print-pdf-zebra-2844.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1&r2=1.1.2.2

Patches:
Index: label-print-pdf-zebra-2844.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/Attic/label-print-pdf-zebra-2844.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- label-print-pdf-zebra-2844.pl	16 Sep 2007 12:37:29 -0000	1.1.2.1
+++ label-print-pdf-zebra-2844.pl	17 Oct 2007 02:04:18 -0000	1.1.2.2
@@ -12,7 +12,7 @@
 use PDF::Reuse::Barcode;
 use POSIX;
 
-#use Smart::Comments '#####';
+use Smart::Comments '###';
 
 my $htdocs_path = C4::Context->config('intrahtdocs');
 my $cgi         = new CGI;
@@ -24,7 +24,8 @@
 my $template  = GetActiveLabelTemplate();
 my $conf_data = get_label_options();
 
-my $batch_id = $cgi->param('batch_id');
+#my $batch_id = $cgi->param('batch_id');
+my $batch_id = 1;
 ##### $batch_id;
 
 my @resultsloop = get_label_items($batch_id);
@@ -42,6 +43,9 @@
 my $tmpl_code = $template->{'tmpl_code'};
 my $tmpl_desc = $template->{'tmpl_desc'};
 
+my $batch_count = get_batch_count($batch_id);
+### $batch_count
+
 my $page_height = 792;
 my $page_width  = 612;
 
@@ -59,8 +63,8 @@
 my $colspace    = 12;
 my $rowspace    = 0;
 
-my $block_cols = 2;
-my $block_rows = 5;
+my $block_cols = 1;
+my $block_rows = $batch_count;
 
 #warn $label_cols, $label_rows;
 
@@ -134,7 +138,7 @@
 foreach $item (@resultsloop) {
     my $barcode = $item->{'barcode'};
     $item->{'callnumber'} = 'BT 380.2 W54';
-    my @callnumber = split( / /, $item->{'callnumber'} );
+    my @callnumber = split( ' ', $item->{'callnumber'} );
 
     my @spine_fields = (
         $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2],
@@ -169,6 +173,7 @@
     );
 
     #-- spine
+$cgi->param('batch_id');
 
     #-- top barc
     drawbox(
@@ -202,27 +207,6 @@
 
     #-- top barc
 
-    #-- bottom barc
-    drawbox( ( $x_pos + $spine_width + $colspace ),
-        $y_pos, $label_width, $label_height, )
-      if $guidebox;
-    draw_text_block_manual( ( $x_pos + $spine_width + $colspace ),
-        $y_pos, $label_width, $label_height, $fontsize, '', $gutter, 'r',
-        @circ_barcode );
-
-    draw_text_block_manual( ( $x_pos + $spine_width + $colspace ),
-        $y_pos, $label_width, $label_height, $fontsize, '', $gutter,, '',
-        @circ_fields );
-
-    draw_text_block_manual(
-        ( $x_pos + $spine_width + $colspace + $spine_width ), $y_pos,
-        ( $label_width - $spine_width ),                      $label_height,
-        $fontsize,                                            2,
-        $gutter,                                              'l',
-        @circ2_fields
-    );
-
-    #-- bottom barc
 
     #calc_next_block_position();
     CalcNextLabelPos();