Lines 88-96
sub _calc_next_label_pos {
Link Here
|
88 |
sub _print_text { |
88 |
sub _print_text { |
89 |
my $label_text = shift; |
89 |
my $label_text = shift; |
90 |
foreach my $text_line (@$label_text) { |
90 |
foreach my $text_line (@$label_text) { |
91 |
$pdf->Font($text_line->{'font'}); |
91 |
$pdf->Font($layout->get_attr('font')); |
92 |
$pdf->FontSize( $text_line->{'font_size'} ); |
92 |
$pdf->FontSize( $text_line->{'font_size'} ); |
93 |
$pdf->Text( $text_line->{'text_llx'}, $text_line->{'text_lly'}, $text_line->{'line'} ); |
93 |
my $llx = $text_line->{'text_llx'}; |
|
|
94 |
my $align = ''; |
95 |
if ( $layout->get_attr('text_justify') eq 'C' ) { |
96 |
$llx += $template->get_attr('label_width')/2.0; |
97 |
$align = 'center'; |
98 |
} |
99 |
elsif ( $layout->get_attr('text_justify') eq 'R' ) { |
100 |
$llx += $template->get_attr('label_width'); |
101 |
$align = 'right'; |
102 |
} |
103 |
$pdf->Text( $llx, $text_line->{'text_lly'}, $text_line->{'line'}, $align ); |
94 |
} |
104 |
} |
95 |
} |
105 |
} |
96 |
|
106 |
|
Lines 142-148
foreach my $item (@{$items}) {
Link Here
|
142 |
font => $layout->get_attr('font'), |
152 |
font => $layout->get_attr('font'), |
143 |
font_size => $layout->get_attr('font_size'), |
153 |
font_size => $layout->get_attr('font_size'), |
144 |
callnum_split => $layout->get_attr('callnum_split'), |
154 |
callnum_split => $layout->get_attr('callnum_split'), |
145 |
justify => $layout->get_attr('text_justify'), |
|
|
146 |
format_string => $layout->get_attr('format_string'), |
155 |
format_string => $layout->get_attr('format_string'), |
147 |
text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), |
156 |
text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), |
148 |
); |
157 |
); |
Lines 165-171
foreach my $item (@{$items}) {
Link Here
|
165 |
font => $layout->get_attr('font'), |
174 |
font => $layout->get_attr('font'), |
166 |
font_size => $layout->get_attr('font_size'), |
175 |
font_size => $layout->get_attr('font_size'), |
167 |
callnum_split => $layout->get_attr('callnum_split'), |
176 |
callnum_split => $layout->get_attr('callnum_split'), |
168 |
justify => $layout->get_attr('text_justify'), |
|
|
169 |
format_string => $layout->get_attr('format_string'), |
177 |
format_string => $layout->get_attr('format_string'), |
170 |
text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), |
178 |
text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), |
171 |
); |
179 |
); |
Lines 191-197
foreach my $item (@{$items}) {
Link Here
|
191 |
font => $layout->get_attr('font'), |
199 |
font => $layout->get_attr('font'), |
192 |
font_size => $layout->get_attr('font_size'), |
200 |
font_size => $layout->get_attr('font_size'), |
193 |
callnum_split => $layout->get_attr('callnum_split'), |
201 |
callnum_split => $layout->get_attr('callnum_split'), |
194 |
justify => $layout->get_attr('text_justify'), |
|
|
195 |
format_string => $layout->get_attr('format_string'), |
202 |
format_string => $layout->get_attr('format_string'), |
196 |
text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), |
203 |
text_wrap_cols => $layout->get_text_wrap_cols(label_width => $template->get_attr('label_width'), left_text_margin => $template->get_attr('left_text_margin')), |
197 |
); |
204 |
); |
198 |
- |
|
|