Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Several fixes to allow for creation of valid Code 128 barcodes.

Browse source 
A new function allows for printing of call number rather than title/author
(default behavior). These barcodes should work fine now with any scanner
capable of Code 128 (with a checksum).
This commit is contained in:
joshferraro 2005-09-12 01:52:41 +00:00
parent e7575b00ed
commit 9706e3995e
1 changed files with 24 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
barcodes/barcodesGenerator.pl
View file

@ -133,7 +133,17 @@ sub assingFilename {
my $tmpFileName = $random.'-'.$ip.'-(From '.$from.' to '.$to.')-['.$day.'.'.$month.'.'.$year.']-['.$hour.':'.$min.':'.$sec.'].pdf';
return $tmpFileName;
}
sub getCallnum {
#grabs a callnumber for the specified barcode
my ($barcode) = @_;
my $query = "select dewey from items,biblioitems where items.biblionumber=biblioitems.biblionumber and items.barcode=?";
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare($query);
$sth->execute($barcode);
my ($callnum) = $sth->fetchrow_array();
warn "Call number is:".$barcode;
return $callnum;
}
# Takes inventary codes from database and if they are between
# the interval specify by parameters, it generates the correspond barcodes
sub barcodesGenerator {
@ -143,7 +153,8 @@ sub barcodesGenerator {
# Create the query to database
# Assigns a temporary filename for the pdf file
my $tmpFileName = &assingFilename($from, $to);
if ($rangeType eq 'continuous2') {
# warn "range type: ".$rangeType;
if ($rangeType eq 'continuous') {
# Set the temp directory for pdf´s files
if (!defined($ENV{'TEMP'})) {
$ENV{'TEMP'} = '/tmp/';
@ -162,6 +173,7 @@ sub barcodesGenerator {
# Generetase checksum
my $codeC = &checksum($code);
# Generate the corresponde barcode to $code
# warn "Code is :-->".$codeC."<--";
my $barcode = $pdf->barcode(-font => $tr, # The font object to use
-type => 'ean128', # Standard of codification
-code => $codeC, # Text to codify
@ -187,8 +199,11 @@ sub barcodesGenerator {
$gfx->barcode($barcode, $x, $y , (72/$labelConfig{'systemDpi'}));
# Assigns the additional information to the barcode (Legend)
$text->translate($x - 48, $y - 22);
warn "code is ".$codeC;
if ($text_under_label) {
$text->text($text_under_label);
} else {
$text->text(getCallnum($code));
}
}
# Writes the objects added in $gfx to $page
@ -206,8 +221,8 @@ sub barcodesGenerator {
} else {
$rangeCondition = "AND (I.barcode >= " . $from . " AND I.barcode <=" . $to . " )";
}
my $query = "SELECT CONCAT('$numbersystem',REPEAT('0',((12 - LENGTH('$numbersystem')) - LENGTH(I.barcode))), I.barcode) AS Codigo, B.title, B.author FROM biblio B, items I WHERE (I.biblionumber = B.biblioNumber ) " .$rangeCondition. " AND (I.barcode <> 'FALTA') ORDER BY Codigo";
warn "above the query";
my $query = "SELECT CONCAT('$numbersystem',REPEAT('0',((12 - LENGTH('$numbersystem')) - LENGTH(I.barcode))), I.barcode) AS Codigo, I.dewey as dewey B.title, B.author FROM biblio B, items I WHERE (I.biblionumber = B.biblioNumber ) " .$rangeCondition. " AND (I.barcode <> 'FALTA') ORDER BY Codigo";
# Prepare the query
my $sth = $dbh->prepare($query);
@ -230,7 +245,7 @@ sub barcodesGenerator {
my $tr = $pdf->corefont('Helvetica-Bold');
# Barcode position
my ($page, $gfx, $text);
while (my ($code,$title,$author) = $sth->fetchrow_array) {
while (my ($code,$dewey,$title,$author) = $sth->fetchrow_array) {
# Generetase checksum
$code = &checksum($code);
# Generate the corresponde barcode to $code
@ -262,9 +277,10 @@ sub barcodesGenerator {
if ($text_under_label) {
$text->text($text_under_label);
} else {
$text->text(substr $title, 0, 30);
warn "here a dewey:".$dewey;
$text->text(substr $dewey, 0, 30);
$text->translate($x - 48, $y - 29);
$text->text(substr $author, 0, 30);
#$text->text(substr $author, 0, 30);
}
}
# Writes the objects added in $gfx to $page
@ -283,4 +299,4 @@ sub barcodesGenerator {
}
}
barcodesGenerator($from, $to, $rangeType, $individualCodes,$text_under_label);
barcodesGenerator($from, $to, $rangeType, $individualCodes,$text_under_label);