Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

[delivers #16893161] reference to unavailable package global in label…

…-create-pdf.pl
  • Loading branch information...
commit fcf2011643504cd72cf591c04d179aa6a49026b5 1 parent c4da24c
Clay Fouts authored August 11, 2011

Showing 1 changed file with 3 additions and 2 deletions. Show diff stats Hide diff stats

  1. 5  labels/label-create-pdf.pl
5  labels/label-create-pdf.pl
@@ -112,7 +112,7 @@ sub _calc_next_label_pos {
112 112
                                           );
113 113
         $pdf->Add($label_a->draw_guide_box) if $layout->get_attr('guidebox');
114 114
         my $label_a_text = $label_a->create_label();
115  
-        _print_text($label_a_text);
  115
+        _print_text($pdf, $label_a_text);
116 116
         ($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly);
117 117
         my $label_b = C4::Labels::Label->new(
118 118
                                         batch_id            => $batch_id,
@@ -163,7 +163,7 @@ sub _calc_next_label_pos {
163 163
                                           );
164 164
         $pdf->Add($label->draw_guide_box) if $layout->get_attr('guidebox');
165 165
         my $label_text = $label->create_label();
166  
-        _print_text($label_text) if $label_text;
  166
+        _print_text($pdf, $label_text) if $label_text;
167 167
         ($row_count, $col_count, $llx, $lly) = _calc_next_label_pos($row_count, $col_count, $llx, $lly);
168 168
         next LABEL_ITEMS;
169 169
 }
@@ -173,6 +173,7 @@ sub _calc_next_label_pos {
173 173
 exit;
174 174
 
175 175
 sub _print_text {
  176
+    my $pdf = shift;
176 177
     my $label_text = shift;
177 178
     foreach my $text_line (@$label_text) {
178 179
 

0 notes on commit fcf2011

Please sign in to comment.
Something went wrong with that request. Please try again.