|
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 |
- |
|
|