<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Michael Hafen escreveu:
<blockquote cite="mid1156374138.5926.9.camel@localhost.localdomain"
type="cite">
<pre wrap="">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.
</pre>
<br>
<hr size="4" width="90%"><br>
<table class="header-part1" border="0" cellpadding="0" cellspacing="0"
width="100%">
<tbody>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Assunto:
</div>
SPAM- [Koha-devel] Problems with barcode generation</td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">De: </div>
Pedro Faria <a class="moz-txt-link-rfc2396E"
href="mailto:pjf@eurotux.com"><pjf@eurotux.com></a></td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Data: </div>
Wed, 23 Aug 2006 18:10:09 +0100</td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Para: </div>
koha_mailing_list <a class="moz-txt-link-rfc2396E"
href="mailto:koha-devel@nongnu.org"><koha-devel@nongnu.org></a>,
<a class="moz-txt-link-abbreviated"
href="mailto:koha@lists.katipo.co.nz">koha@lists.katipo.co.nz</a></td>
</tr>
</tbody>
</table>
<table class="header-part2" border="0" cellpadding="0" cellspacing="0"
width="100%">
<tbody>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">Para: </div>
koha_mailing_list <a class="moz-txt-link-rfc2396E"
href="mailto:koha-devel@nongnu.org"><koha-devel@nongnu.org></a>,
<a class="moz-txt-link-abbreviated"
href="mailto:koha@lists.katipo.co.nz">koha@lists.katipo.co.nz</a></td>
</tr>
<tr>
<td>
<div class="headerdisplayname" style="display: inline;">CC: </div>
</td>
</tr>
</tbody>
</table>
<br>
Dear all,f - Numéro d'inventaire <br>
Want to thank Henri-Damien LAURENT to fabulous help! <br>
Now I am trying to generate barcodes. <br>
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? <br>
<br>
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 <br>
<br>
Can't locate object method "barcode" via package "PDF::API2::Content"
at /usr/local/koha/intranet/cgi-bin/barcodes/barcodesGenerator.pl line
259 <br>
<br>
and this one I still couldn't solve. Anyone can help? <br>
<br>
<br>
_______________________________________________ <br>
Koha-devel mailing list <br>
<a class="moz-txt-link-abbreviated"
href="mailto:Koha-devel@nongnu.org">Koha-devel@nongnu.org</a> <br>
<a class="moz-txt-link-freetext"
href="http://lists.nongnu.org/mailman/listinfo/koha-devel">http://lists.nongnu.org/mailman/listinfo/koha-devel</a>
<br>
<pre wrap=""><hr size="4" width="90%">
_______________________________________________
Koha-devel mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Koha-devel@nongnu.org">Koha-devel@nongnu.org</a>
<a class="moz-txt-link-freetext"
href="http://lists.nongnu.org/mailman/listinfo/koha-devel">http://lists.nongnu.org/mailman/listinfo/koha-devel</a>
</pre>
</blockquote>
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'?
</body>
</html>