Lines 37-42
sub _check_params {
Link Here
|
37 |
'oblique_title', |
37 |
'oblique_title', |
38 |
'font', |
38 |
'font', |
39 |
'font_size', |
39 |
'font_size', |
|
|
40 |
'scale_width', |
41 |
'scale_height', |
40 |
'callnum_split', |
42 |
'callnum_split', |
41 |
'justify', |
43 |
'justify', |
42 |
'format_string', |
44 |
'format_string', |
Lines 225-232
sub _BAR {
Link Here
|
225 |
my $self = shift; |
227 |
my $self = shift; |
226 |
my $barcode_llx = $self->{'llx'} + $self->{'left_text_margin'}; # this places the bottom left of the barcode the left text margin distance to right of the left edge of the label ($llx) |
228 |
my $barcode_llx = $self->{'llx'} + $self->{'left_text_margin'}; # this places the bottom left of the barcode the left text margin distance to right of the left edge of the label ($llx) |
227 |
my $barcode_lly = $self->{'lly'} + $self->{'top_text_margin'}; # this places the bottom left of the barcode the top text margin distance above the bottom of the label ($lly) |
229 |
my $barcode_lly = $self->{'lly'} + $self->{'top_text_margin'}; # this places the bottom left of the barcode the top text margin distance above the bottom of the label ($lly) |
228 |
my $barcode_width = 0.8 * $self->{'width'}; # this scales the barcode width to 80% of the label width |
230 |
my $barcode_width = $self->{'scale_width'} * $self->{'width'}; # You can choose the width of barcode, default value is 0.8 : 80% of the label width |
229 |
my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 10% of the label height |
231 |
my $barcode_y_scale_factor = $self->{'scale_height'} * $self->{'height'}; # You can choose the height of barcode, default value is 0.01 : 10% of the label height |
230 |
return 0, 0, 0, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor; |
232 |
return 0, 0, 0, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor; |
231 |
} |
233 |
} |
232 |
|
234 |
|
Lines 234-241
sub _BIBBAR {
Link Here
|
234 |
my $self = shift; |
236 |
my $self = shift; |
235 |
my $barcode_llx = $self->{'llx'} + $self->{'left_text_margin'}; # this places the bottom left of the barcode the left text margin distance to right of the left edge of the label ($self->{'llx'}) |
237 |
my $barcode_llx = $self->{'llx'} + $self->{'left_text_margin'}; # this places the bottom left of the barcode the left text margin distance to right of the left edge of the label ($self->{'llx'}) |
236 |
my $barcode_lly = $self->{'lly'} + $self->{'top_text_margin'}; # this places the bottom left of the barcode the top text margin distance above the bottom of the label ($lly) |
238 |
my $barcode_lly = $self->{'lly'} + $self->{'top_text_margin'}; # this places the bottom left of the barcode the top text margin distance above the bottom of the label ($lly) |
237 |
my $barcode_width = 0.8 * $self->{'width'}; # this scales the barcode width to 80% of the label width |
239 |
my $barcode_width = $self->{'scale_width'} * $self->{'width'}; # You can choose the width of barcode, default value is 0.8 : 80% of the label width |
238 |
my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 10% of the label height |
240 |
my $barcode_y_scale_factor = $self->{'scale_height'} * $self->{'height'}; # You can choose the height of barcode, default value is 0.01 : 10% of the label height |
239 |
my $line_spacer = ($self->{'font_size'} * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.). |
241 |
my $line_spacer = ($self->{'font_size'} * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.). |
240 |
my $text_lly = ($self->{'lly'} + ($self->{'height'} - $self->{'top_text_margin'})); |
242 |
my $text_lly = ($self->{'lly'} + ($self->{'height'} - $self->{'top_text_margin'})); |
241 |
return $self->{'llx'}, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor; |
243 |
return $self->{'llx'}, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor; |
Lines 245-252
sub _BARBIB {
Link Here
|
245 |
my $self = shift; |
247 |
my $self = shift; |
246 |
my $barcode_llx = $self->{'llx'} + $self->{'left_text_margin'}; # this places the bottom left of the barcode the left text margin distance to right of the left edge of the label ($self->{'llx'}) |
248 |
my $barcode_llx = $self->{'llx'} + $self->{'left_text_margin'}; # this places the bottom left of the barcode the left text margin distance to right of the left edge of the label ($self->{'llx'}) |
247 |
my $barcode_lly = ($self->{'lly'} + $self->{'height'}) - $self->{'top_text_margin'}; # this places the bottom left of the barcode the top text margin distance below the top of the label ($self->{'lly'}) |
249 |
my $barcode_lly = ($self->{'lly'} + $self->{'height'}) - $self->{'top_text_margin'}; # this places the bottom left of the barcode the top text margin distance below the top of the label ($self->{'lly'}) |
248 |
my $barcode_width = 0.8 * $self->{'width'}; # this scales the barcode width to 80% of the label width |
250 |
my $barcode_width = $self->{'scale_width'} * $self->{'width'}; # You can choose the width of barcode, default value is 0.8 : 80% of the label width |
249 |
my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 10% of the label height |
251 |
my $barcode_y_scale_factor = $self->{'scale_height'} * $self->{'height'}; # You can choose the height of barcode, default value is 0.01 : 10% of the label height |
250 |
my $line_spacer = ($self->{'font_size'} * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.). |
252 |
my $line_spacer = ($self->{'font_size'} * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.). |
251 |
my $text_lly = (($self->{'lly'} + $self->{'height'}) - $self->{'top_text_margin'} - (($self->{'lly'} + $self->{'height'}) - $barcode_lly)); |
253 |
my $text_lly = (($self->{'lly'} + $self->{'height'}) - $self->{'top_text_margin'} - (($self->{'lly'} + $self->{'height'}) - $barcode_lly)); |
252 |
return $self->{'llx'}, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor; |
254 |
return $self->{'llx'}, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor; |
Lines 270-275
sub new {
Link Here
|
270 |
oblique_title => $params{'oblique_title'}, |
272 |
oblique_title => $params{'oblique_title'}, |
271 |
font => $params{'font'}, |
273 |
font => $params{'font'}, |
272 |
font_size => $params{'font_size'}, |
274 |
font_size => $params{'font_size'}, |
|
|
275 |
scale_width => $params{'scale_width'}, |
276 |
scale_height => $params{'scale_height'}, |
273 |
callnum_split => $params{'callnum_split'}, |
277 |
callnum_split => $params{'callnum_split'}, |
274 |
justify => $params{'justify'}, |
278 |
justify => $params{'justify'}, |
275 |
format_string => $params{'format_string'}, |
279 |
format_string => $params{'format_string'}, |