[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/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();
     }