1 package C4::Labels::Label;
7 use Algorithm::CheckDigits;
16 use version; our $VERSION = qv('1.0.0_1');
19 my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
22 my $given_params = {};
24 my @valid_label_params = (
46 foreach my $key (keys %{$given_params}) {
47 if (!(grep m/$key/, @valid_label_params)) {
48 warn sprintf('Unrecognized parameter type of "%s".', $key);
54 if (!(grep m/$_/, @valid_label_params)) {
55 warn sprintf('Unrecognized parameter type of "%s".', $_);
63 my ( $llx, $lly, $width, $height ) = @_;
64 my $obj_stream = "q\n"; # save the graphic state
65 $obj_stream .= "0.5 w\n"; # border line width
66 $obj_stream .= "1.0 0.0 0.0 RG\n"; # border color red
67 $obj_stream .= "1.0 1.0 1.0 rg\n"; # fill color white
68 $obj_stream .= "$llx $lly $width $height re\n"; # a rectangle
69 $obj_stream .= "B\n"; # fill (and a little more)
70 $obj_stream .= "Q\n"; # restore the graphic state
75 my $item_number = shift;
76 my $barcode_only = shift || 0;
77 my $dbh = C4::Context->dbh;
78 # FIXME This makes for a very bulky data structure; data from tables w/duplicate col names also gets overwritten.
79 # Something like this, perhaps, but this also causes problems because we need more fields sometimes.
80 # SELECT i.barcode, i.itemcallnumber, i.itype, bi.isbn, bi.issn, b.title, b.author
81 my $sth = $dbh->prepare("SELECT bi.*, i.*, b.* FROM items AS i, biblioitems AS bi ,biblio AS b WHERE itemnumber=? AND i.biblioitemnumber=bi.biblioitemnumber AND bi.biblionumber=b.biblionumber;");
82 $sth->execute($item_number);
84 warn sprintf('Database returned the following error: %s', $sth->errstr);
86 my $data = $sth->fetchrow_hashref;
87 # Replaced item's itemtype with the more user-friendly description...
88 my $sth1 = $dbh->prepare("SELECT itemtype,description FROM itemtypes WHERE itemtype = ?");
89 $sth1->execute($data->{'itemtype'});
91 warn sprintf('Database returned the following error: %s', $sth1->errstr);
93 my $data1 = $sth1->fetchrow_hashref;
94 $data->{'itemtype'} = $data1->{'description'};
95 $data->{'itype'} = $data1->{'description'};
96 $barcode_only ? return $data->{'barcode'} : return $data;
99 sub _get_text_fields {
100 my $format_string = shift;
101 my $csv = Text::CSV_XS->new({allow_whitespace => 1});
102 my $status = $csv->parse($format_string);
103 my @sorted_fields = map {{ 'code' => $_, desc => $_ }} $csv->fields();
104 my $error = $csv->error_input();
105 warn sprintf('Text field sort failed with this error: %s', $error) if $error;
106 return \@sorted_fields;
113 # lccn examples: 'HE8700.7 .P6T44 1983', 'BS2545.E8 H39 1996';
115 ^([a-zA-Z]+) # HE # BS
116 (\d+(?:\.\d)*) # 8700.7 # 2545
118 (\.*\D+\d*) # .P6 # .E8
120 (.*) # T44 1983 # H39 1996 # everything else (except any bracketing spaces)
123 unless (scalar @parts) {
124 warn sprintf('regexp failed to match string: %s', $_);
125 push @parts, $_; # if no match, just push the whole string.
127 push @parts, split /\s+/, pop @parts; # split the last piece into an arbitrary number of pieces at spaces
128 $debug and warn "split_lccn array: ", join(" | ", @parts), "\n";
135 s/\///g; # in theory we should be able to simply remove all segmentation markers and arrive at the correct call number...
137 ^([-a-zA-Z]*\s?(?:$possible_decimal)?) # R220.3 CD-ROM 787.87 # will require extra splitting
139 (.+) # H2793Z H32 c.2 EAS # everything else (except bracketing spaces)
142 unless (scalar @parts) {
143 warn sprintf('regexp failed to match string: %s', $_);
144 push @parts, $_; # if no match, just push the whole string.
147 if ($parts[0] =~ /^([-a-zA-Z]+)\s?($possible_decimal)$/) {
148 shift @parts; # pull off the mathching first element, like example 1
149 unshift @parts, $1, $2; # replace it with the two pieces
152 push @parts, split /\s+/, pop @parts; # split the last piece into an arbitrary number of pieces at spaces
153 $debug and print STDERR "split_ddcn array: ", join(" | ", @parts), "\n";
157 ## NOTE: Custom call number types go here. It may be necessary to create additional splitting algorithms if some custom call numbers
158 ## cannot be made to work here. Presently this splits standard non-ddcn, non-lccn fiction and biography call numbers.
163 # Split call numbers based on spaces
164 push @parts, split /\s+/, $fcn; # split the call number into an arbitrary number of pieces at spaces
165 if ($parts[-1] !~ /^.*\d-\d.*$/ && $parts[-1] =~ /^(.*\d+)(\D.*)$/) {
166 pop @parts; # pull off the matching last element
167 push @parts, $1, $2; # replace it with the two pieces
169 unless (scalar @parts) {
170 warn sprintf('regexp failed to match string: %s', $_);
173 $debug and print STDERR "split_ccn array: ", join(" | ", @parts), "\n";
177 sub _get_barcode_data {
178 my ( $f, $item, $record ) = @_;
179 my $kohatables = _desc_koha_tables();
181 my $match_kohatable = join(
184 @{ $kohatables->{'biblio'} },
185 @{ $kohatables->{'biblioitems'} },
186 @{ $kohatables->{'items'} }
193 if ( $f =~ /^'(.*)'.*/ ) {
194 # single quotes indicate a static text string.
199 elsif ( $f =~ /^($match_kohatable).*/ ) {
201 $datastring .= $item->{$f};
203 $debug and warn sprintf("The '%s' field contains no data.", $f);
208 elsif ( $f =~ /^([0-9a-z]{3})(\w)(\W?).*?/ ) {
209 my ($field,$subf,$ws) = ($1,$2,$3);
211 my ($itemtag, $itemsubfieldcode) = &GetMarcFromKohaField("items.itemnumber",'');
212 my @marcfield = $record->field($field);
214 if($field eq $itemtag) { # item-level data, we need to get the right item.
216 foreach my $itemfield (@marcfield) {
217 if ( $itemfield->subfield($itemsubfieldcode) eq $item->{'itemnumber'} ) {
218 if ($itemfield->subfield($subf)) {
219 $datastring .= $itemfield->subfield($subf) . $ws;
222 warn sprintf("The '%s' field contains no data.", $f);
227 } else { # bib-level data, we'll take the first matching tag/subfield.
228 if ($marcfield[0]->subfield($subf)) {
229 $datastring .= $marcfield[0]->subfield($subf) . $ws;
232 warn sprintf("The '%s' field contains no data.", $f);
240 warn sprintf('Failed to parse label format string: %s', $f);
241 last FIELD_LIST; # Failed to match
247 sub _desc_koha_tables {
248 my $dbh = C4::Context->dbh();
250 for my $table ( 'biblio','biblioitems','items' ) {
251 my $sth = $dbh->column_info(undef,undef,$table,'%');
252 while (my $info = $sth->fetchrow_hashref()){
253 push @{$kohatables->{$table}} , $info->{'COLUMN_NAME'} ;
260 ### This series of functions calculates the position of text and barcode on individual labels
261 ### Please *do not* add printing types which are non-atomic. Instead, build code which calls the necessary atomic printing types to form the non-atomic types. See the ALT type
262 ### in labels/label-create-pdf.pl as an example.
263 ### NOTE: Each function must be passed seven parameters and return seven even if some are 0 or undef
267 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.).
268 my $text_lly = ($self->{'lly'} + ($self->{'height'} - $self->{'top_text_margin'}));
269 return $self->{'llx'}, $text_lly, $line_spacer, 0, 0, 0, 0;
274 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 the left edge of the label ($llx)
275 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)
276 my $barcode_width = 0.8 * $self->{'width'}; # this scales the barcode width to 80% of the label width
277 my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 10% of the label height
278 return 0, 0, 0, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor;
283 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 the left edge of the label ($self->{'llx'})
284 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)
285 my $barcode_width = 0.8 * $self->{'width'}; # this scales the barcode width to 80% of the label width
286 my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 10% of the label height
287 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.).
288 my $text_lly = ($self->{'lly'} + ($self->{'height'} - $self->{'top_text_margin'}));
289 warn "Label: llx $self->{'llx'}, lly $self->{'lly'}, Text: lly $text_lly, $line_spacer, Barcode: llx $barcode_llx, lly $barcode_lly, $barcode_width, $barcode_y_scale_factor\n";
290 return $self->{'llx'}, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor;
295 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 the left edge of the label ($self->{'llx'})
296 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'})
297 my $barcode_width = 0.8 * $self->{'width'}; # this scales the barcode width to 80% of the label width
298 my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 10% of the label height
299 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.).
300 my $text_lly = (($self->{'lly'} + $self->{'height'}) - $self->{'top_text_margin'} - (($self->{'lly'} + $self->{'height'}) - $barcode_lly));
301 return $self->{'llx'}, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor;
305 my ($invocant, %params) = @_;
306 my $type = ref($invocant) || $invocant;
308 batch_id => $params{'batch_id'},
309 item_number => $params{'item_number'},
310 llx => $params{'llx'},
311 lly => $params{'lly'},
312 height => $params{'height'},
313 width => $params{'width'},
314 top_text_margin => $params{'top_text_margin'},
315 left_text_margin => $params{'left_text_margin'},
316 barcode_type => $params{'barcode_type'},
317 printing_type => $params{'printing_type'},
318 guidebox => $params{'guidebox'},
319 font => $params{'font'},
320 font_size => $params{'font_size'},
321 callnum_split => $params{'callnum_split'},
322 justify => $params{'justify'},
323 format_string => $params{'format_string'},
324 text_wrap_cols => $params{'text_wrap_cols'},
327 if ($self->{'guidebox'}) {
328 $self->{'guidebox'} = _guide_box($self->{'llx'}, $self->{'lly'}, $self->{'width'}, $self->{'height'});
330 bless ($self, $type);
336 return $self->{'printing_type'};
341 if (_check_params(@_) eq 1) {
345 if (exists($self->{$attr})) {
346 return $self->{$attr};
357 my ($text_llx, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor);
360 ($text_llx, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor) = &{"_$self->{'printing_type'}"}($self); # an obfuscated call to the correct printing type sub
362 if ($self->{'printing_type'} =~ /BIB/) {
363 $label_text = draw_label_text( $self,
366 line_spacer => $line_spacer,
369 if ($self->{'printing_type'} =~ /BAR/) {
373 width => $barcode_width,
374 y_scale_factor => $barcode_y_scale_factor,
377 return $label_text if $label_text;
381 sub draw_label_text {
382 my ($self, %params) = @_;
385 my $text_lly = $params{'lly'};
386 my $font = $self->{'font'};
387 my $item = _get_label_item($self->{'item_number'});
388 my $label_fields = _get_text_fields($self->{'format_string'});
389 my $record = GetMarcBiblio($item->{'biblionumber'});
390 # FIXME - returns all items, so you can't get data from an embedded holdings field.
391 # TODO - add a GetMarcBiblio1item(bibnum,itemnum) or a GetMarcItem(itemnum).
392 my $cn_source = ($item->{'cn_source'} ? $item->{'cn_source'} : C4::Context->preference('DefaultClassificationSource'));
393 LABEL_FIELDS: # process data for requested fields on current label
394 for my $field (@$label_fields) {
395 if ($field->{'code'} eq 'itemtype') {
396 $field->{'data'} = C4::Context->preference('item-level_itypes') ? $item->{'itype'} : $item->{'itemtype'};
399 $field->{'data'} = _get_barcode_data($field->{'code'},$item,$record);
401 ($field->{'code'} eq 'title') ? (($font =~ /T/) ? ($font = 'TI') : ($font = ($font . 'O'))) : ($font = $font);
402 my $field_data = $field->{'data'};
404 $field_data =~ s/\n//g;
405 $field_data =~ s/\r//g;
408 my @callnumber_list = ('itemcallnumber', '050a', '050b', '082a', '952o'); # Fields which hold call number data FIXME: ( 060? 090? 092? 099? )
409 if ((grep {$field->{'code'} =~ m/$_/} @callnumber_list) and ($self->{'printing_type'} eq 'BIB') and ($self->{'callnum_split'})) { # If the field contains the call number, we do some sp
410 if ($cn_source eq 'lcc') {
411 @label_lines = _split_lccn($field_data);
412 @label_lines = _split_ccn($field_data) if !@label_lines; # If it was not a true lccn, try it as a custom call number
413 push (@label_lines, $field_data) if !@label_lines; # If it was not that, send it on unsplit
414 } elsif ($cn_source eq 'ddc') {
415 @label_lines = _split_ddcn($field_data);
416 @label_lines = _split_ccn($field_data) if !@label_lines;
417 push (@label_lines, $field_data) if !@label_lines;
419 warn sprintf('Call number splitting failed for: %s. Please add this call number to bug #2500 at bugs.koha.org', $field_data);
420 push @label_lines, $field_data;
425 $field_data =~ s/\/$//g; # Here we will strip out all trailing '/' in fields other than the call number...
426 $field_data =~ s/\(/\\\(/g; # Escape '(' and ')' for the pdf object stream...
427 $field_data =~ s/\)/\\\)/g;
429 eval{$Text::Wrap::columns = $self->{'text_wrap_cols'};};
430 my @line = split(/\n/ ,wrap('', '', $field_data));
431 # If this is a title field, limit to two lines; all others limit to one... FIXME: this is rather arbitrary
432 if ($field->{'code'} eq 'title' && scalar(@line) >= 2) {
433 while (scalar(@line) > 2) {
437 while (scalar(@line) > 1) {
441 push(@label_lines, @line);
443 LABEL_LINES: # generate lines of label text for current field
444 foreach my $line (@label_lines) {
445 next LABEL_LINES if $line eq '';
446 my $string_width = C4::Creators::PDF->StrWidth($line, $font, $self->{'font_size'});
447 if ($self->{'justify'} eq 'R') {
448 $text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width);
450 elsif($self->{'justify'} eq 'C') {
451 # some code to try and center each line on the label based on font size and string point width...
452 my $whitespace = ($self->{'width'} - ($string_width + (2 * $self->{'left_text_margin'})));
453 $text_llx = (($whitespace / 2) + $params{'llx'} + $self->{'left_text_margin'});
456 $text_llx = ($params{'llx'} + $self->{'left_text_margin'});
459 text_llx => $text_llx,
460 text_lly => $text_lly,
462 font_size => $self->{'font_size'},
465 $text_lly = $text_lly - $params{'line_spacer'};
467 $font = $self->{'font'}; # reset font for next field
475 $params{'barcode_data'} = _get_label_item($self->{'item_number'}, 1) if !$params{'barcode_data'};
476 $params{'barcode_type'} = $self->{'barcode_type'} if !$params{'barcode_type'};
477 my $x_scale_factor = 1;
478 my $num_of_bars = length($params{'barcode_data'});
479 my $tot_bar_length = 0;
481 my $guard_length = 10;
482 my $hide_text = 'yes';
483 if ($params{'barcode_type'} =~ m/CODE39/) {
484 $bar_length = '17.5';
485 $tot_bar_length = ($bar_length * $num_of_bars) + ($guard_length * 2);
486 $x_scale_factor = ($params{'width'} / $tot_bar_length);
487 if ($params{'barcode_type'} eq 'CODE39MOD') {
488 my $c39 = CheckDigits('code_39'); # get modulo43 checksum
489 $params{'barcode_data'} = $c39->complete($params{'barcode_data'});
491 elsif ($params{'barcode_type'} eq 'CODE39MOD10') {
492 my $c39_10 = CheckDigits('siret'); # get modulo43 checksum
493 $params{'barcode_data'} = $c39_10->complete($params{'barcode_data'});
497 PDF::Reuse::Barcode::Code39(
500 value => "*$params{barcode_data}*",
501 xSize => $x_scale_factor,
502 ySize => $params{'y_scale_factor'},
509 warn sprintf('Barcode generation failed for item %s with this error: %s', $self->{'item_number'}, $@);
512 elsif ($params{'barcode_type'} eq 'COOP2OF5') {
513 $bar_length = '9.43333333333333';
514 $tot_bar_length = ($bar_length * $num_of_bars) + ($guard_length * 2);
515 $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
517 PDF::Reuse::Barcode::COOP2of5(
520 value => "*$params{barcode_data}*",
521 xSize => $x_scale_factor,
522 ySize => $params{'y_scale_factor'},
527 warn sprintf('Barcode generation failed for item %s with this error: %s', $self->{'item_number'}, $@);
530 elsif ( $params{'barcode_type'} eq 'INDUSTRIAL2OF5' ) {
531 $bar_length = '13.1333333333333';
532 $tot_bar_length = ($bar_length * $num_of_bars) + ($guard_length * 2);
533 $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
535 PDF::Reuse::Barcode::Industrial2of5(
538 value => "*$params{barcode_data}*",
539 xSize => $x_scale_factor,
540 ySize => $params{'y_scale_factor'},
545 warn sprintf('Barcode generation failed for item %s with this error: %s', $self->{'item_number'}, $@);
552 my $label_fields = _get_text_fields($self->{'format_string'});
553 my $item = _get_label_item($self->{'item_number'});
554 my $bib_record = GetMarcBiblio($item->{biblionumber});
555 my @csv_data = (map { _get_barcode_data($_->{'code'},$item,$bib_record) } @$label_fields);
564 C4::Labels::Label - A class for creating and manipulating label objects in Koha
568 This module provides methods for creating, and otherwise manipulating single label objects used by Koha to create and export labels.
574 Invoking the I<new> method constructs a new label object containing the supplied values. Depending on the final output format of the label data
575 the minimal required parameters change. (See the implimentation of this object type in labels/label-create-pdf.pl and labels/label-create-csv.pl
576 and labels/label-create-xml.pl for examples.) The following parameters are optionally accepted as key => value pairs:
578 C<batch_id> Batch id with which this label is associated
579 C<item_number> Item number of item to be the data source for this label
580 C<height> Height of this label (All measures passed to this method B<must> be supplied in postscript points)
581 C<width> Width of this label
582 C<top_text_margin> Top margin of this label
583 C<left_text_margin> Left margin of this label
584 C<barcode_type> Defines the barcode type to be used on labels. NOTE: At present only the following barcode types are supported in the label creator code:
592 CODE39MOD = Code 3 of 9 with modulo 43 checksum
595 CODE39MOD10 = Code 3 of 9 with modulo 10 checksum
598 COOP2OF5 = A varient of 2 of 5 barcode based on NEC's "Process 8000" code
601 INDUSTRIAL2OF5 = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)
605 C<printing_type> Defines the general layout to be used on labels. NOTE: At present there are only five printing types supported in the label creator code:
610 BIB = Only the bibliographic data is printed
613 BARBIB = Barcode proceeds bibliographic data
616 BIBBAR = Bibliographic data proceeds barcode
619 ALT = Barcode and bibliographic data are printed on alternating labels
622 BAR = Only the barcode is printed
626 C<guidebox> Setting this to '1' will result in a guide box being drawn around the labels marking the edge of each label
627 C<font> Defines the type of font to be used on labels. NOTE: The following fonts are available by default on most systems:
641 TBI = Times Bold Italic
650 CO = Courier Oblique (Italic)
653 CBO = Courier Bold Oblique
662 HBO = Helvetical Bold Oblique
666 C<font_size> Defines the size of the font in postscript points to be used on labels
667 C<callnum_split> Setting this to '1' will enable call number splitting on labels
668 C<text_justify> Defines the text justification to be used on labels. NOTE: The following justification styles are currently supported by label creator code:
683 C<format_string> Defines what fields will be printed and in what order they will be printed on labels. These include any of the data fields that may be mapped
684 to your MARC frameworks. Specify MARC subfields as a 4-character tag-subfield string: ie. 254a Enclose a whitespace-separated list of fields
685 to concatenate on one line in double quotes. ie. "099a 099b" or "itemcallnumber barcode" Static text strings may be entered in single-quotes:
686 ie. 'Some static text here.'
687 C<text_wrap_cols> Defines the column after which the text will wrap to the next line.
689 =head2 get_label_type()
691 Invoking the I<get_label_type> method will return the printing type of the label object.
694 C<my $label_type = $label->get_label_type();>
696 =head2 get_attr($attribute)
698 Invoking the I<get_attr> method will return the value of the requested attribute or -1 on errors.
701 C<my $value = $label->get_attr($attribute);>
703 =head2 create_label()
705 Invoking the I<create_label> method generates the text for that label and returns it as an arrayref of an array contianing the formatted text as well as creating the barcode
706 and writing it directly to the pdf stream. The handling of the barcode is not quite good OO form due to the linear format of PDF::Reuse::Barcode. Be aware that the instantiating
707 code is responsible to properly format the text for insertion into the pdf stream as well as the actual insertion.
710 my $label_text = $label->create_label();
712 =head2 draw_label_text()
714 Invoking the I<draw_label_text> method generates the label text for the label object and returns it as an arrayref of an array containing the formatted text. The same caveats
715 apply to this method as to C<create_label()>. This method accepts the following parameters as key => value pairs: (NOTE: The unit is the postscript point - 72 per inch)
717 C<llx> The lower-left x coordinate for the text block (The point of origin for all PDF's is the lower left of the page per ISO 32000-1)
718 C<lly> The lower-left y coordinate for the text block
719 C<top_text_margin> The top margin for the text block.
720 C<line_spacer> The number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size)
721 C<font> The font to use for this label. See documentation on the new() method for supported fonts.
722 C<font_size> The font size in points to use for this label.
723 C<justify> The style of justification to use for this label. See documentation on the new() method for supported justification styles.
726 C<my $label_text = $label->draw_label_text(
729 top_text_margin => $label_top_text_margin,
730 line_spacer => $text_leading,
732 font_size => $text_font_size,
733 justify => $text_justification,
738 Invoking the I<barcode> method generates a barcode for the label object and inserts it into the current pdf stream. This method accepts the following parameters as key => value
739 pairs (C<barcode_data> is optional and omitting it will cause the barcode from the current item to be used. C<barcode_type> is also optional. Omission results in the barcode
740 type of the current template being used.):
742 C<llx> The lower-left x coordinate for the barcode block (The point of origin for all PDF's is the lower left of the page per ISO 32000-1)
743 C<lly> The lower-left y coordinate for the barcode block
744 C<width> The width of the barcode block
745 C<y_scale_factor> The scale factor to be applied to the y axis of the barcode block
746 C<barcode_data> The data to be encoded in the barcode
747 C<barcode_type> The barcode type (See the C<new()> method for supported barcode types)
753 width => $barcode_width,
754 y_scale_factor => $barcode_y_scale_factor,
755 barcode_data => $barcode,
756 barcode_type => $barcodetype,
761 Invoking the I<csv_data> method returns an arrayref of an array containing the label data suitable for passing to Text::CSV_XS->combine() to produce csv output.
764 C<my $csv_data = $label->csv_data();>
768 Mason James <mason@katipo.co.nz>
770 Chris Nighswonger <cnighswonger AT foundations DOT edu>
774 Copyright 2006 Katipo Communications.
776 Copyright 2009 Foundations Bible College.
780 This file is part of Koha.
782 Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
783 Foundation; either version 2 of the License, or (at your option) any later version.
785 You should have received a copy of the GNU General Public License along with Koha; if not, write to the Free Software Foundation, Inc., 51 Franklin Street,
786 Fifth Floor, Boston, MA 02110-1301 USA.
788 =head1 DISCLAIMER OF WARRANTY
790 Koha is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
791 A PARTICULAR PURPOSE. See the GNU General Public License for more details.