[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/barcodes label-print-pdf.pl [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/barcodes label-print-pdf.pl [dev_week] |
Date: |
Sat, 20 Oct 2007 06:45:07 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/10/20 06:45:07
Modified files:
barcodes : label-print-pdf.pl
Log message:
working with new draw_text_block_manual() sub.
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.15&r2=1.1.2.2.2.16
Patches:
Index: label-print-pdf.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-print-pdf.pl,v
retrieving revision 1.1.2.2.2.15
retrieving revision 1.1.2.2.2.16
diff -u -b -r1.1.2.2.2.15 -r1.1.2.2.2.16
--- label-print-pdf.pl 17 Jul 2007 21:42:19 -0000 1.1.2.2.2.15
+++ label-print-pdf.pl 20 Oct 2007 06:45:07 -0000 1.1.2.2.2.16
@@ -13,7 +13,7 @@
use POSIX;
-# use Smart::Comments;
+use Smart::Comments;
my $htdocs_path = C4::Context->config('intrahtdocs');
my $cgi = new CGI;
@@ -27,6 +27,7 @@
my $batch_id = $cgi->param('batch_id');
my @resultsloop = get_label_items($batch_id);
+# ## @resultsloop
my $barcodetype = $conf_data->{'barcodetype'};
my $printingtype = $conf_data->{'printingtype'};
@@ -137,6 +138,11 @@
foreach $item (@resultsloop) {
# warn "$x_pos, $y_pos, $label_width, $label_height";
my $barcode = $item->{'barcode'};
+ $item->{'itemcallnumber'} = 'HE8700.7 .P6T44 1983';
+
+
+my @fields = get_sorted_text( \$conf_data, \$item);
+
if ( $printingtype eq 'BAR' ) {
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
@@ -186,8 +192,31 @@
elsif ( $printingtype eq 'BIB' ) {
drawbox( $x_pos, $y_pos, $label_width, $label_height ) if $guidebox;
- DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
- $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
+# DrawSpineText( $y_pos, $label_height, $fontsize, $x_pos,
+# $left_text_margin, $text_wrap_cols, \$item, \$conf_data );
+
+=c
+sub draw_text_block_manual {
+ my (
+ $x_pos, $y_pos, $label_width,
+ $label_height, $fontsize, $startrow,
+ $gutter, $justify, @fields,
+ ) = @_;
+=cut
+
+ draw_text_block_manual(
+ $x_pos ,
+ $y_pos ,
+ $label_width,
+ $label_height,
+ $fontsize,
+ 0,
+ $left_text_margin ,
+ 'l',
+ @fields
+ );
+
+
CalcNextLabelPos();
}
- [Koha-cvs] koha/barcodes label-print-pdf.pl [dev_week],
Mason James <=