[Fwd: Re: [Koha-devel] Problems with barcode generation]

24 Aug 2006


      Michael Hafen escreveu:
...
I had the same problem.  To get the barcodes I had to use a different
function entirely.
I've actually made a lot of changes to this script, but I will post the
relevant bit for your benefit.
-------------  CUT  --------------
my $zone = length($code) - 5;
      my $barcode = $pdf->xo_3of9(-font => $tr,	# The font object to use
      			    -code => $code, # Text to codify
      			    -ext  => 1,		# extended character set
      			    -extn => '012345',	# Barcode extension (if it is aplicable)
      			    -umzn => 9+$zone,	# Top limit of the finished bar
      			    -lmzn => 9+$zone,	# Bottom limit of the finished bar
      			    -zone => 3+$zone,	# Bars size
      			    -quzn => 0,		# Space destinated for legend
      			    -ofwt => 0.5,	# Bars width
      			    -fnsz => 9,		# Font size
      			    -text => ''
      			    ); # umzn +, lmzn +, zone +7
# Assigns a barcode to $gfx
      my $scale = ($labelConfig{'labelWidth'}-2)/$barcode->width();
      $gfx->formimage($barcode, $x, $y, $scale);
      # Assigns the additional information to the barcode (Legend)
      if ($text_under_label) {
          my @lines = split("\n",$text_under_label);
          $title = $lines[0];
          $author = $lines[1];
      }
      while ($text->advancewidth($title) > ($labelConfig{'labelWidth'} - 2))
{
          chop $title;
      }
      while ($text->advancewidth($author) > ($labelConfig{'labelWidth'} -
2)) {
          chop $author;
      }
my ($x_adjust_1, $x_adjust_2, $y_adjust) = (0, 0, 0);
      if ($text->advancewidth($title) < ($labelConfig{'labelWidth'} - 5)) {
          $x_adjust_1 = (($labelConfig{'labelWidth'} - 2) -
$text->advancewidth($title)) / 2;
      }
      if ($text->advancewidth($author) < ($labelConfig{'labelWidth'} - 5)) {
          $x_adjust_2 = (($labelConfig{'labelWidth'} - 2) -
$text->advancewidth($author)) / 2;
      }
      $y_adjust = ($labelConfig{'labelHeigth'} - $barcode->height - 18) / 2;
      $y_adjust = 5 if ($y_adjust < 0);
      $y_adjust += $barcode->height;
$text->translate($x + $x_adjust_1, $y + $y_adjust + 9);
      $text->text($title);
      $text->translate($x + $x_adjust_2, $y + $y_adjust);
      $text->text($author);
-------------  CUT  --------------
Hope that helps.
------------------------------------------------------------------------
Assunto:
SPAM- [Koha-devel] Problems with barcode generation
De:
Pedro Faria <pjf@eurotux.com>
Data:
Wed, 23 Aug 2006 18:10:09 +0100
Para:
koha_mailing_list <koha-devel@nongnu.org>, koha@lists.katipo.co.nz
Para:
koha_mailing_list <koha-devel@nongnu.org>, koha@lists.katipo.co.nz
CC:
Dear all,f - Numéro d'inventaire
Want to thank Henri-Damien LAURENT to fabulous help!
Now I am trying to generate barcodes.
First I wanna know if "Inventory code" asked  to generate the barcode 
is the same that we enter when adding an item (f - Numéro d'inventaire 
in additem.pl)? Because I give the same number (1000) and it says that 
there was any with that code (using Individual Codes in generator). If 
I select Continuous Range of Items from 0 to 1000 it proceeds...A bit 
odd :). Any ideas?
However it still was not ok. First I had to change some scripts 
becouse PDF::API2 has changed a bit and things are not anymore in the 
same place (e.g PDF::API::Utils is now PDF::API2::Basic::PDF::Utils). 
This I figured out myself. But now I got
Can't locate object method "barcode" via package "PDF::API2::Content" 
at /usr/local/koha/intranet/cgi-bin/barcodes/barcodesGenerator.pl line 
259
and this one I still couldn't solve. Anyone can help?
_______________________________________________
Koha-devel mailing list
Koha-devel@nongnu.org
http://lists.nongnu.org/mailman/listinfo/koha-devel
------------------------------------------------------------------------
_______________________________________________
Koha-devel mailing list
Koha-devel@nongnu.org
http://lists.nongnu.org/mailman/listinfo/koha-devel
thax for aswering. Can you attach the full barcodeGenerator.pl? This 
piece of code should replace the code under continuous generation 'if' 
and the correspondant 'else'?