Fixes bug in request.pl output. barcodes() subroutine is returning and array

of hashes, not an array of barcodes.
This commit is contained in:
tonnesen 2002-10-24 16:30:26 +00:00
parent c5317622be
commit d969a9bc03
1 changed files with 5 additions and 1 deletions

View File

@ -120,7 +120,11 @@ printend
my @data;
($count2,@data)=bibitems($bib);
for (my $i=0;$i<$count2;$i++){
my @barcodes=barcodes($data[$i]->{'biblioitemnumber'});
my @barcodehashes=barcodes($data[$i]->{'biblioitemnumber'});
my @barcodes;
foreach (@barcodehashes) {
push @barcodes, $_->{barcode};
}
if ($data[$i]->{'dewey'} == 0){
$data[$i]->{'dewey'}="";
}