[Koha-cvs] koha/barcodes label-print-pdf-zebra-2844.pl [dev_week]
Mason James
szrj1m at yahoo.com
Wed Oct 17 10:01:20 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/10/17 08:01:20
Modified files:
barcodes : label-print-pdf-zebra-2844.pl
Log message:
getting there
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.2&r2=1.1.2.3
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.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- label-print-pdf-zebra-2844.pl 17 Oct 2007 02:04:18 -0000 1.1.2.2
+++ label-print-pdf-zebra-2844.pl 17 Oct 2007 08:01:20 -0000 1.1.2.3
@@ -12,7 +12,8 @@
use PDF::Reuse::Barcode;
use POSIX;
-use Smart::Comments '###';
+#use Smart::Comments '###';
+use Smart::Comments '####';
my $htdocs_path = C4::Context->config('intrahtdocs');
my $cgi = new CGI;
@@ -36,6 +37,8 @@
my $start_label = $conf_data->{'startlabel'};
my $fontsize = $template->{'fontsize'};
+my $fontsize = 6;
+
my $units = $template->{'units'};
my $unitvalue = GetUnitsValue($units);
@@ -46,25 +49,24 @@
my $batch_count = get_batch_count($batch_id);
### $batch_count
-my $page_height = 792;
-my $page_width = 612;
+my $page_height = 108;
+my $page_width = 274;
+
-my $block_height = 144;
-my $block_width = 272;
-my $label_height = 72;
-my $label_width = 196;
+my $label_height = 100;
+my $label_width = 188;
-my $spine_width = 65;
-my $spine_height = 108;
+my $spine_height = 100;
+my $spine_width = 68;
-my $top_margin = 41;
-my $left_margin = 27;
-my $colspace = 12;
-my $rowspace = 0;
+my $top_margin = 3;
+my $left_margin = 5;
+my $colspace = 9;
+my $rowspace = 3;
-my $block_cols = 1;
-my $block_rows = $batch_count;
+my $label_cols = 1;
+my $label_rows = 1;
#warn $label_cols, $label_rows;
@@ -93,122 +95,107 @@
# big row loop
-#warn " $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY";
+warn " $lowerLeftX, $lowerLeftY, $upperRightX, $upperRightY";
#warn "$label_rows, $label_cols\n";
-#warn "$label_height, $label_width\n";
-#warn "$page_height, $page_width\n";
+warn "$label_height, $label_width\n";
+warn "$page_height, $page_width\n";
my ( $rowcount, $colcount, $x_pos, $y_pos, $rowtemp, $coltemp );
-$start_label = 1; ## debug...................................
-
-if ( $start_label eq 1 ) {
$rowcount = 1;
$colcount = 1;
$x_pos = $left_margin;
- $y_pos = ( $page_height - $top_margin - $block_height );
-}
-
-else {
+ $y_pos = ( $page_height - $top_margin - $label_height );
- #eval {
- $rowcount = ceil( $start_label / $block_cols );
- #} ;
- #$rowcount = 1 if $@;
-
- $colcount = ( $start_label - ( ( $rowcount - 1 ) * $block_cols ) );
-
- $x_pos = $left_margin + ( $label_width * ( $colcount - 1 ) ) +
- ( $colspace * ( $colcount - 1 ) );
-
- $y_pos = $page_height - $top_margin - ( $block_height * $rowcount ) -
- ( $rowspace * ( $rowcount - 1 ) );
-
-}
#
# main foreach loop
#
-# $barcodetype = "CODE39MOD10";
+$barcodetype = "CODE39";
my $gutter = 2;
+my $barcode_height =40;
+my $barcode_width = 200;
+
foreach $item (@resultsloop) {
- my $barcode = $item->{'barcode'};
- $item->{'callnumber'} = 'BT 380.2 W54';
- my @callnumber = split( ' ', $item->{'callnumber'} );
+#### $item
+
+
+
+ # my @spine_fields = qw ( moo foo doo yoo );
my @spine_fields = (
- $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2],
- $item->{'copyrightdate'}
- );
+ $item->{'itemcallnumber'},
+ ,'*', '*','*',
+ ,'*', '*','*',
+ ,'*', '*','*',
+ ,'*', '*','*',
+ $item->{'replacementpricedate'},
+ $item->{'homebranch'});
+
+ my $callnum_author = $item->{'itemcallnumber'}.' '. $item->{'author'};
my @circ_fields = (
- $item->{'ccode'}, $callnumber[0], $callnumber[1], $callnumber[2],
- $item->{'copyrightdate'}
- );
+ $callnum_author,
+ $item->{'title'},
+ "$item->{'barcode'} $item->{'homebranch'}",
+ '530a');
- my @circ2_fields = ( $item->{'author'}, $item->{'title'} );
- my @circ_barcode = ( $item->{'barcode'} );
- my $fontsize = 10;
- # warn "$x_pos, $y_pos, $label_width, $label_height";
- my $barcode = $item->{'barcode'};
- # drawbox( $x_pos, $y_pos, $block_width, $block_height, ) if $guidebox;
+
+ warn "$x_pos, $y_pos, $label_width, $label_height";
#-- spine
- drawbox( $x_pos, $y_pos + ( $block_height - $spine_height ),
+ drawbox( $x_pos, $y_pos ,
$spine_width, $spine_height, )
if $guidebox;
draw_text_block_manual( # spine
- $x_pos, $y_pos + ( $block_height - $spine_height ), $spine_width,
- $spine_height, $fontsize, '', $gutter, 'l',
+ $x_pos, $y_pos ,
+ $spine_width,
+ $spine_height,
+ $fontsize, '', $gutter, 'l',
@spine_fields
);
#-- spine
-$cgi->param('batch_id');
+ $cgi->param('batch_id');
- #-- top barc
+ #-- top barc ------------------------------------------
drawbox(
( $x_pos + $spine_width + $colspace ),
- $y_pos + $label_height,
+ $y_pos ,
$label_width, $label_height,
) if $guidebox;
- draw_text_block_manual(
- ( $x_pos + $spine_width + $colspace ),
- ( $y_pos + $label_height ),
- $label_width, $label_height, $fontsize, '', $gutter, 'r', @circ_barcode
- );
draw_text_block_manual(
( $x_pos + $spine_width + $colspace ),
- ( $y_pos + $label_height ),
+ $y_pos ,
$label_width, $label_height, $fontsize, '', $gutter,, '', @circ_fields
);
- draw_text_block_manual(
- ( $x_pos + $spine_width + $colspace + $spine_width ),
- ( $y_pos + $label_height ),
- ( $label_width - $spine_width ),
- $label_height,
- $fontsize,
- 2,
- $gutter,
- 'l',
- @circ2_fields
- );
+
+ DrawBarcode (
+ ($x_pos + $spine_width + $colspace ),
+ ($y_pos + 10 ),
+ $barcode_height, $barcode_width, $item->{'barcode'},
+ $barcodetype );
+
+
+
+
+
#-- top barc
- #calc_next_block_position();
+
CalcNextLabelPos();
# last;
@@ -220,30 +207,36 @@
#
#
#
+
sub CalcNextLabelPos {
- if ( $colcount lt $block_cols ) {
+ if ( $colcount lt $label_cols ) {
# warn "new col";
- $x_pos = ( $x_pos + $block_width + $colspace );
+ $x_pos = ( $x_pos + $label_width + $colspace );
$colcount++;
}
else {
$x_pos = $left_margin;
- if ( $rowcount eq $block_rows ) {
+ if ( $rowcount eq $label_rows ) {
# warn "new page";
prPage();
- $y_pos = ( $page_height - $top_margin - $block_height );
+ $y_pos = ( $page_height - $top_margin - $label_height );
$rowcount = 1;
}
else {
# warn "new row";
- $y_pos = ( $y_pos - $rowspace - $block_height );
+ $y_pos = ( $y_pos - $rowspace - $label_height );
$rowcount++;
}
$colcount = 1;
}
}
+
+
+
+
+
More information about the Koha-cvs
mailing list