[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/barcodes label-print-pdf-zebra-2844.pl [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/barcodes label-print-pdf-zebra-2844.pl [dev_week] |
Date: |
Wed, 17 Oct 2007 02:04:19 +0000 |
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();
- [Koha-cvs] koha/barcodes label-print-pdf-zebra-2844.pl [dev_week],
Mason James <=